diff options
| author | Glenn Morris | 2003-04-12 15:44:59 +0000 |
|---|---|---|
| committer | Glenn Morris | 2003-04-12 15:44:59 +0000 |
| commit | 1d97a48dc2382af40461b9f1c798bad4c99f07b7 (patch) | |
| tree | 3fa18b9914c401d95e4522805376ab678abe5d48 | |
| parent | 88ff724bdf1d947c9643ecd5c0fe915f3acf60fa (diff) | |
| download | emacs-1d97a48dc2382af40461b9f1c798bad4c99f07b7.tar.gz emacs-1d97a48dc2382af40461b9f1c798bad4c99f07b7.zip | |
(fortran-abbrev-start): Only offer help if abbrev-mode is active.
| -rw-r--r-- | lisp/progmodes/fortran.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index e3a29289e89..084320bca3d 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -784,8 +784,9 @@ Any other key combination is executed normally." | |||
| 784 | (interactive) | 784 | (interactive) |
| 785 | (let (c) | 785 | (let (c) |
| 786 | (insert last-command-char) | 786 | (insert last-command-char) |
| 787 | (if (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' | 787 | (if (and abbrev-mode |
| 788 | (eq c help-char)) | 788 | (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' |
| 789 | (eq c help-char))) | ||
| 789 | (fortran-abbrev-help) | 790 | (fortran-abbrev-help) |
| 790 | (setq unread-command-events (list c))))) | 791 | (setq unread-command-events (list c))))) |
| 791 | 792 | ||