From: Glenn Morris <rgm@gnu.org>
Date: Sat, 12 Apr 2003 15:44:59 +0000 (+0000)
Subject: (fortran-abbrev-start): Only offer help if abbrev-mode is active.
X-Git-Tag: ttn-vms-21-2-B4~10537
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d97a48dc2382af40461b9f1c798bad4c99f07b7;p=emacs.git

(fortran-abbrev-start): Only offer help if abbrev-mode is active.
---

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