diff options
| author | Glenn Morris | 2003-04-12 15:45:59 +0000 |
|---|---|---|
| committer | Glenn Morris | 2003-04-12 15:45:59 +0000 |
| commit | be550ccc612bdfae9d976c1f0d81b41e0a5140d5 (patch) | |
| tree | 9d194863029740a41d50cbfbd2530bda7eade10a | |
| parent | 1d97a48dc2382af40461b9f1c798bad4c99f07b7 (diff) | |
| download | emacs-be550ccc612bdfae9d976c1f0d81b41e0a5140d5.tar.gz emacs-be550ccc612bdfae9d976c1f0d81b41e0a5140d5.zip | |
(f90-abbrev-start): Only offer help if abbrev-mode is active.
| -rw-r--r-- | lisp/progmodes/f90.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 05619ce1370..db26449b4c0 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -1677,8 +1677,8 @@ Any other key combination is executed normally." | |||
| 1677 | (setq c (if (fboundp 'next-command-event) ; XEmacs | 1677 | (setq c (if (fboundp 'next-command-event) ; XEmacs |
| 1678 | (event-to-character (next-command-event)) | 1678 | (event-to-character (next-command-event)) |
| 1679 | (read-event))) | 1679 | (read-event))) |
| 1680 | ;; Insert char if not equal to `?'. | 1680 | ;; Insert char if not equal to `?', or if abbrev-mode is off. |
| 1681 | (if (or (eq c ??) (eq c help-char)) | 1681 | (if (and abbrev-mode (or (eq c ??) (eq c help-char))) |
| 1682 | (f90-abbrev-help) | 1682 | (f90-abbrev-help) |
| 1683 | (setq unread-command-events (list c))))) | 1683 | (setq unread-command-events (list c))))) |
| 1684 | 1684 | ||