diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
| commit | dbc4e1c12940079cad7b24e1654a0badcda8d6fc (patch) | |
| tree | e0fbea5b15bd13d2839c8b59b624cec80f31bfd8 /lisp/subr.el | |
| parent | 72766144811cd7258b2a59e56f6e3657537ea508 (diff) | |
| download | emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.tar.gz emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.tar.bz2 emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.zip | |
JimB's changes since January 18th
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 5ae06d130ef..23256306b89 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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-event char count 259)) + (setq unread-command-events (list char) count 259)) (t (setq code char count 259)))) (logand 255 code))) @@ -222,6 +222,7 @@ Accept any number of arguments, but ignore them." (fset 'show-buffer 'set-window-buffer) (fset 'buffer-flush-undo 'buffer-disable-undo) (fset 'eval-current-buffer 'eval-buffer) +(fset 'compiled-function-p 'byte-code-function-p) ; alternate names (fset 'string= 'string-equal) @@ -229,7 +230,6 @@ Accept any number of arguments, but ignore them." (fset 'move-marker 'set-marker) (fset 'eql 'eq) (fset 'not 'null) -(fset 'numberp 'integerp) (fset 'rplaca 'setcar) (fset 'rplacd 'setcdr) (fset 'beep 'ding) ;preserve lingual purtity @@ -325,7 +325,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-event char)))) + (setq unread-command-events (list char))))) (if insert-end (save-excursion (delete-region pos insert-end))) |