diff options
| author | Richard M. Stallman | 2005-07-16 18:42:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 18:42:26 +0000 |
| commit | 2c948571861839f7f1d65e8bc293e43dd88a805f (patch) | |
| tree | c9035bc66830bf5d293bd55215a0e96ef14808b9 | |
| parent | 434fc2d3ee96fe3cdfff6dd7687c7e1f3f8be76b (diff) | |
| download | emacs-2c948571861839f7f1d65e8bc293e43dd88a805f.tar.gz emacs-2c948571861839f7f1d65e8bc293e43dd88a805f.zip | |
(f90-abbrev-start): Avoid warning.
| -rw-r--r-- | lisp/progmodes/f90.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 1790 | (let (char event) | 1790 | (let (char event) |
| 1791 | (if (fboundp 'next-command-event) ; XEmacs | 1791 | (if (fboundp 'next-command-event) ; XEmacs |
| 1792 | (setq event (next-command-event) | 1792 | (setq event (next-command-event) |
| 1793 | char (event-to-character event)) | 1793 | char (and (fboundp 'event-to-character) |
| 1794 | (event-to-character event))) | ||
| 1794 | (setq event (read-event) | 1795 | (setq event (read-event) |
| 1795 | char event)) | 1796 | char event)) |
| 1796 | ;; Insert char if not equal to `?', or if abbrev-mode is off. | 1797 | ;; Insert char if not equal to `?', or if abbrev-mode is off. |