andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(f90-abbrev-start): Avoid warning.

Browse source
This commit is contained in:
Richard M. Stallman 2005-07-16 18:42:26 +00:00
parent 434fc2d3ee
commit 2c94857186
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/f90.el
View file

@ -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.