diff options
| author | Jim Blandy | 1992-11-16 01:34:30 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-11-16 01:34:30 +0000 |
| commit | b8ec3aa307ef2d4e35d134523cdc49295953a10b (patch) | |
| tree | 2f6a4b00c0fa6df5f0e32a2a4215b4475ad1fb69 | |
| parent | 4b43edddc036e90dd2c4f430d644fda57b938d60 (diff) | |
| download | emacs-b8ec3aa307ef2d4e35d134523cdc49295953a10b.tar.gz emacs-b8ec3aa307ef2d4e35d134523cdc49295953a10b.zip | |
* bytecomp.el: Declare unread-command-char an obsolete variable.
* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
vip-prefix-arg-com): Use unread-command-event instead of
unread-command-char; respect its new semantics.
* fortran.el (fortran-abbrev-start, fortran-window-create-momentarily):
Same.
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 7ce4d7b810a..2b2428b3977 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -542,7 +542,7 @@ Any other key combination is executed normally." | |||
| 542 | (if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?' | 542 | (if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?' |
| 543 | (= c help-char)) | 543 | (= c help-char)) |
| 544 | (fortran-abbrev-help) | 544 | (fortran-abbrev-help) |
| 545 | (setq unread-command-char c)))) | 545 | (setq unread-command-event c)))) |
| 546 | 546 | ||
| 547 | (defun fortran-abbrev-help () | 547 | (defun fortran-abbrev-help () |
| 548 | "List the currently defined abbrevs in Fortran mode." | 548 | "List the currently defined abbrevs in Fortran mode." |
| @@ -605,7 +605,7 @@ See also `fortran-window-create'." | |||
| 605 | (progn (message "Type SPC to continue editing.") | 605 | (progn (message "Type SPC to continue editing.") |
| 606 | (let ((char (read-char))) | 606 | (let ((char (read-char))) |
| 607 | (or (equal char (string-to-char " ")) | 607 | (or (equal char (string-to-char " ")) |
| 608 | (setq unread-command-char char)))))) | 608 | (setq unread-command-event char)))))) |
| 609 | (fortran-window-create))) | 609 | (fortran-window-create))) |
| 610 | 610 | ||
| 611 | (defun fortran-split-line () | 611 | (defun fortran-split-line () |