Mercurial > emacs
diff lisp/subr.el @ 1622:dd7b72d023ad
* subr.el (lambda): Don't use backquotes in lambda's definition.
* 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.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 16 Nov 1992 01:43:07 +0000 |
parents | acdf9d64d086 |
children | dc26bbe7cf61 |
line wrap: on
line diff
--- a/lisp/subr.el Mon Nov 16 01:42:04 1992 +0000 +++ b/lisp/subr.el Mon Nov 16 01:43:07 1992 +0000 @@ -65,7 +65,7 @@ (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 @@ (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 @@ "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