From be550ccc612bdfae9d976c1f0d81b41e0a5140d5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 12 Apr 2003 15:45:59 +0000 Subject: [PATCH] (f90-abbrev-start): Only offer help if abbrev-mode is active. --- lisp/progmodes/f90.el | 4 ++-- 1 file 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." (setq c (if (fboundp 'next-command-event) ; XEmacs (event-to-character (next-command-event)) (read-event))) - ;; Insert char if not equal to `?'. - (if (or (eq c ??) (eq c help-char)) + ;; Insert char if not equal to `?', or if abbrev-mode is off. + (if (and abbrev-mode (or (eq c ??) (eq c help-char))) (f90-abbrev-help) (setq unread-command-events (list c))))) -- 2.39.2