/[emacs]/emacs/lisp/progmodes/fortran.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/fortran.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.106 by gm, Wed Apr 16 11:09:28 2003 UTC revision 1.107 by gm, Sun Apr 20 13:03:04 2003 UTC
# Line 54  Line 54 
54  ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed.  ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed.
55    
56  (eval-when-compile                      ; silence compiler  (eval-when-compile                      ; silence compiler
57      (defvar dabbrev-case-fold-search)
58    (defvar imenu-case-fold-search)    (defvar imenu-case-fold-search)
59    (defvar imenu-syntax-alist))    (defvar imenu-syntax-alist))
60    
# Line 773  With non-nil ARG, uncomments the region. Line 774  With non-nil ARG, uncomments the region.
774    "Typing ;\\[help-command] or ;? lists all the Fortran abbrevs.    "Typing ;\\[help-command] or ;? lists all the Fortran abbrevs.
775  Any other key combination is executed normally."  Any other key combination is executed normally."
776    (interactive "*")    (interactive "*")
777    (let (c)    (insert last-command-char)
778      (insert last-command-char)    (let (char event)
779      (if (and abbrev-mode      (if (fboundp 'next-command-event) ; XEmacs
780               (or (eq (setq c (read-event)) ??) ; insert char if not `?'          (setq event (next-command-event)
781                   (eq c help-char)))                char (event-to-character event))
782          (setq event (read-event)
783                char event))
784        ;; Insert char if not equal to `?', or if abbrev-mode is off.
785        (if (and abbrev-mode (or (eq char ??) (eq char help-char)))
786          (fortran-abbrev-help)          (fortran-abbrev-help)
787        (setq unread-command-events (list c)))))        (setq unread-command-events (list event)))))
788    
789  (defun fortran-abbrev-help ()  (defun fortran-abbrev-help ()
790    "List the currently defined abbrevs in Fortran mode."    "List the currently defined abbrevs in Fortran mode."

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26