From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Jul 2005 18:42:26 +0000 (+0000)
Subject: (f90-abbrev-start): Avoid warning.
X-Git-Tag: emacs-pretest-22.0.90~8082
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c948571861839f7f1d65e8bc293e43dd88a805f;p=emacs.git

(f90-abbrev-start): Avoid warning.
---

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.