mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* subr.el (lambda): Don't use backquotes in lambda's definition.

Browse Source 
* 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.
	* subr.el (read-quoted-char, momentary-string-display): Same.
This commit is contained in:
Jim Blandy 1992-11-16 01:43:07 +00:00
parent ca3e10c715
commit d77c36e880
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/subr.el
View File

@ -65,7 +65,7 @@ Optional argument PROMPT specifies a string to use to prompt the user."
(and prompt (message (setq prompt
(format "%s %c" prompt char)))))
((> count 0)
(setq unread-command-char char count 259))
(setq unread-command-event char count 259))
(t (setq code char count 259))))
(logand 255 code)))
@ -330,7 +330,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
(single-key-description exit-char))
(let ((char (read-char)))
(or (eq char exit-char)
(setq unread-command-char char))))
(setq unread-command-event char))))
(if insert-end
(save-excursion
(delete-region pos insert-end)))
@ -413,6 +413,8 @@ and then modifies one entry in it."
"Macro which allows one to write (lambda ...) for anonymous functions.
This is instead of having to write (function (lambda ...)) or
'(lambda ...), the latter of which won't get byte-compiled."
(` (function (lambda (,@ cdr)))))
;; Note that this definition should not use backquotes; subr.el should not
;; depend on backquote.el.
(list 'function (cons 'lambda cdr)))
;;; subr.el ends here