changeset 95857:5d1e0dab59fb

(map-y-or-n-p): Accept non-char events.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 12 Jun 2008 20:43:03 +0000
parents f13a77e0e34f
children d719efd8c628
files lisp/ChangeLog lisp/emacs-lisp/map-ynp.el
diffstat 2 files changed, 12 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Jun 12 20:25:47 2008 +0000
+++ b/lisp/ChangeLog	Thu Jun 12 20:43:03 2008 +0000
@@ -1,8 +1,11 @@
+2008-06-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/map-ynp.el (map-y-or-n-p): Accept non-char events.
+
 2008-06-12  Chong Yidong  <cyd@stupidchicken.com>
 
-	* longlines.el (longlines-search-forward)
-	(longlines-search-backward, longlines-re-search-forward): Use a
-	smarter search-spaces-regexp.
+	* longlines.el (longlines-search-forward, longlines-search-backward)
+	(longlines-re-search-forward): Use a smarter search-spaces-regexp.
 
 2008-06-12  Sam Steingold  <sds@gnu.org>
 
@@ -11,8 +14,7 @@
 
 2008-06-12  Chong Yidong  <cyd@stupidchicken.com>
 
-	* menu-bar.el (menu-set-font): Renamed x-font-dialog to
-	x-select-font.
+	* menu-bar.el (menu-set-font): Rename x-font-dialog to x-select-font.
 
 2008-06-12  Glenn Morris  <rgm@gnu.org>
 
@@ -21,8 +23,8 @@
 
 	* term/mac-win.el (x-toolkit-scroll-bars): Check bound.
 
-	* progmodes/cperl-mode.el (cperl-info-on-command): Use
-	display-pixel-height rather than x-display-pixel-height.
+	* progmodes/cperl-mode.el (cperl-info-on-command):
+	Use display-pixel-height rather than x-display-pixel-height.
 
 	* mail/rmailedit.el (rmail-cease-edit):
 	* vc-dispatcher.el (vc-dir-mode): Check tool-bar-mode is bound.
--- a/lisp/emacs-lisp/map-ynp.el	Thu Jun 12 20:25:47 2008 +0000
+++ b/lisp/emacs-lisp/map-ynp.el	Thu Jun 12 20:43:03 2008 +0000
@@ -112,10 +112,9 @@
 		use-menus t
 		mouse-event last-nonmenu-event))
       (setq user-keys (if action-alist
-			  (concat (mapconcat (function
-					      (lambda (elt)
-						(key-description
-						 (char-to-string (car elt)))))
+			  (concat (mapconcat (lambda (elt)
+                                               (key-description
+                                                (vector (car elt))))
 					     action-alist ", ")
 				  " ")
 			"")