# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1050162299 0
# Node ID aab211655bcdd18134bffbf52aa00cbdf2228333
# Parent  0b1e9bedf711178338bac29090549da4f58f8013
(fortran-abbrev-start): Only offer help if abbrev-mode is active.

diff -r 0b1e9bedf711 -r aab211655bcd lisp/progmodes/fortran.el
--- 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)))))