diff options
| author | Richard M. Stallman | 1993-03-06 06:08:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-06 06:08:40 +0000 |
| commit | d654e8ce599567b96d4e04f6b12a6353dacfd00f (patch) | |
| tree | d799fb993c755c4fafe7de02ddc10b1e5e6f33ea | |
| parent | 07f6d4ae18f768326e24a6559d0808f5f01aec32 (diff) | |
| download | emacs-d654e8ce599567b96d4e04f6b12a6353dacfd00f.tar.gz emacs-d654e8ce599567b96d4e04f6b12a6353dacfd00f.zip | |
(fortran-abbrev-start): Handle any kind of event.
(fortran-window-create-momentarily): Likewise.
| -rw-r--r-- | lisp/progmodes/fortran.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 5a987da372b..e4035940726 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -466,8 +466,8 @@ Any other key combination is executed normally." | |||
| 466 | (interactive) | 466 | (interactive) |
| 467 | (let (c) | 467 | (let (c) |
| 468 | (insert last-command-char) | 468 | (insert last-command-char) |
| 469 | (if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?' | 469 | (if (or (eq (setq c (read-event)) ??) ;insert char if not equal to `?' |
| 470 | (= c help-char)) | 470 | (eq c help-char)) |
| 471 | (fortran-abbrev-help) | 471 | (fortran-abbrev-help) |
| 472 | (setq unread-command-events (list c))))) | 472 | (setq unread-command-events (list c))))) |
| 473 | 473 | ||
| @@ -533,7 +533,7 @@ See also `fortran-window-create'." | |||
| 533 | (save-window-excursion | 533 | (save-window-excursion |
| 534 | (if (not (equal (fortran-window-create) 'error)) | 534 | (if (not (equal (fortran-window-create) 'error)) |
| 535 | (progn (message "Type SPC to continue editing.") | 535 | (progn (message "Type SPC to continue editing.") |
| 536 | (let ((char (read-char))) | 536 | (let ((char (read-event))) |
| 537 | (or (equal char (string-to-char " ")) | 537 | (or (equal char (string-to-char " ")) |
| 538 | (setq unread-command-events (list char))))))) | 538 | (setq unread-command-events (list char))))))) |
| 539 | (fortran-window-create))) | 539 | (fortran-window-create))) |