Mercurial > emacs

diff lisp/map-ynp.el @ 1821:04fb1d3d6992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes since January 18th
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:58:16 +0000
parents 46528118f75d
children 2b04be5e47e6
line wrap: on
line diff
--- a/lisp/map-ynp.el	Tue Jan 26 01:56:29 1993 +0000
+++ b/lisp/map-ynp.el	Tue Jan 26 01:58:16 1993 +0000
@@ -100,7 +100,7 @@
 	 prompt char elt tail
 	 (next (if (or (symbolp list)
 		       (subrp list)
-		       (compiled-function-p list)
+		       (byte-code-function-p list)
 		       (and (consp list)
 			    (eq (car list) 'lambda)))
 		   (function (lambda ()
@@ -157,7 +157,7 @@
 			   (funcall actor elt)
 			   (setq actions (1+ actions))))))
 		  ((= ?? char)
-		   (setq unread-command-event help-char)
+		   (setq unread-command-events (list help-char))
 		   (setq next (` (lambda ()
 				   (setq next '(, next))
 				   '(, elt)))))