[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.83 emacs/lisp/progmodes/f90.el:1.84
*** emacs/lisp/progmodes/f90.el:1.83    Mon Jul  4 16:59:19 2005
--- emacs/lisp/progmodes/f90.el Sat Jul 16 18:42:26 2005
***************
*** 1790,1796 ****
    (let (char event)
      (if (fboundp 'next-command-event) ; XEmacs
          (setq event (next-command-event)
!               char (event-to-character event))
        (setq event (read-event)
              char event))
      ;; Insert char if not equal to `?', or if abbrev-mode is off.
--- 1790,1797 ----
    (let (char event)
      (if (fboundp 'next-command-event) ; XEmacs
          (setq event (next-command-event)
!               char (and (fboundp 'event-to-character)
!                       (event-to-character event)))
        (setq event (read-event)
              char event))
      ;; Insert char if not equal to `?', or if abbrev-mode is off.