(f90-abbrev-start): Avoid warning.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 99d33553f53aa8f7013839e17720f1c01ff47cce..02fe9c5f117663d26a007b2a6d51d029708a5848 100644 (file)
--- 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.