Mercurial > emacs
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 ", ") " ") "")