Mercurial > emacs
changeset 2028:87f2d4cbbaf4
(fortran-abbrev-start): Handle any kind of event.
(fortran-window-create-momentarily): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 Mar 1993 06:08:40 +0000 |
| parents | fe4784e44fb1 |
| children | c06b592ca52b |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Sat Mar 06 06:06:10 1993 +0000 +++ b/lisp/progmodes/fortran.el Sat Mar 06 06:08:40 1993 +0000 @@ -466,8 +466,8 @@ (interactive) (let (c) (insert last-command-char) - (if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?' - (= c help-char)) + (if (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' + (eq c help-char)) (fortran-abbrev-help) (setq unread-command-events (list c))))) @@ -533,7 +533,7 @@ (save-window-excursion (if (not (equal (fortran-window-create) 'error)) (progn (message "Type SPC to continue editing.") - (let ((char (read-char))) + (let ((char (read-event))) (or (equal char (string-to-char " ")) (setq unread-command-events (list char))))))) (fortran-window-create)))