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 |
|
|
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." |