Mercurial > emacs
changeset 50561:aab211655bcd
(fortran-abbrev-start): Only offer help if abbrev-mode is active.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 12 Apr 2003 15:44:59 +0000 |
| parents | 0b1e9bedf711 |
| children | 6ee9d94eaca3 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Sat Apr 12 04:28:43 2003 +0000 +++ b/lisp/progmodes/fortran.el Sat Apr 12 15:44:59 2003 +0000 @@ -784,8 +784,9 @@ (interactive) (let (c) (insert last-command-char) - (if (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' - (eq c help-char)) + (if (and abbrev-mode + (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' + (eq c help-char))) (fortran-abbrev-help) (setq unread-command-events (list c)))))