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

[Glenn Morris]

Index: emacs/lisp/progmodes/fortran.el
diff -c emacs/lisp/progmodes/fortran.el:1.106 
emacs/lisp/progmodes/fortran.el:1.107
*** emacs/lisp/progmodes/fortran.el:1.106       Wed Apr 16 07:09:28 2003
--- emacs/lisp/progmodes/fortran.el     Sun Apr 20 09:03:04 2003
***************
*** 54,59 ****
--- 54,60 ----
  ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed.
  
  (eval-when-compile                    ; silence compiler
+   (defvar dabbrev-case-fold-search)
    (defvar imenu-case-fold-search)
    (defvar imenu-syntax-alist))
  
***************
*** 773,785 ****
    "Typing ;\\[help-command] or ;? lists all the Fortran abbrevs.
  Any other key combination is executed normally."
    (interactive "*")
!   (let (c)
!     (insert last-command-char)
!     (if (and abbrev-mode
!              (or (eq (setq c (read-event)) ??) ; insert char if not `?'
!                  (eq c help-char)))
        (fortran-abbrev-help)
!       (setq unread-command-events (list c)))))
  
  (defun fortran-abbrev-help ()
    "List the currently defined abbrevs in Fortran mode."
--- 774,790 ----
    "Typing ;\\[help-command] or ;? lists all the Fortran abbrevs.
  Any other key combination is executed normally."
    (interactive "*")
!   (insert last-command-char)
!   (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.
!     (if (and abbrev-mode (or (eq char ??) (eq char help-char)))
        (fortran-abbrev-help)
!       (setq unread-command-events (list event)))))
  
  (defun fortran-abbrev-help ()
    "List the currently defined abbrevs in Fortran mode."