Mercurial > emacs
changeset 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 | ec2c000b8b69 |
| children | bdd72dc49c66 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
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