Mercurial > emacs

changeset 64395:16a2152f8d11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-abbrev-start): Avoid warning.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 2005 18:42:26 +0000
parents f0ee06ae643c
children 52c5faa47a88
files lisp/progmodes/f90.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/f90.el	Sat Jul 16 18:41:15 2005 +0000
+++ b/lisp/progmodes/f90.el	Sat Jul 16 18:42:26 2005 +0000
@@ -1790,7 +1790,8 @@
   (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.