procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fortran-abbrev-start): Handle any kind of event.

Browse source 
(fortran-window-create-momentarily): Likewise.
This commit is contained in:
Richard M. Stallman 1993-03-06 06:08:40 +00:00
parent 07f6d4ae18
commit d654e8ce59
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/fortran.el
View file

@ -466,8 +466,8 @@ Any other key combination is executed normally."
(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 @@ See also `fortran-window-create'."
(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)))