aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-11-16 01:34:30 +0000
committerJim Blandy1992-11-16 01:34:30 +0000
commitb8ec3aa307ef2d4e35d134523cdc49295953a10b (patch)
tree2f6a4b00c0fa6df5f0e32a2a4215b4475ad1fb69
parent4b43edddc036e90dd2c4f430d644fda57b938d60 (diff)
downloademacs-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.el4
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 ()