From 2c948571861839f7f1d65e8bc293e43dd88a805f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 2005 18:42:26 +0000 Subject: [PATCH] (f90-abbrev-start): Avoid warning. --- lisp/progmodes/f90.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 99d33553f53..02fe9c5f117 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1790,7 +1790,8 @@ Any other key combination is executed normally." (let (char event) (if (fboundp 'next-command-event) ; XEmacs (setq event (next-command-event) - char (event-to-character event)) + char (and (fboundp 'event-to-character) + (event-to-character event))) (setq event (read-event) char event)) ;; Insert char if not equal to `?', or if abbrev-mode is off. -- 2.39.2