Mercurial > emacs

changeset 75061:5de4748cd80f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-choose): Avoid ugly error for function keys.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 Jan 2007 21:15:09 +0000
parents a222d1be5012
children 08cc7ab326d5
files lisp/wid-edit.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/wid-edit.el	Tue Jan 02 21:03:49 2007 +0000
+++ b/lisp/wid-edit.el	Tue Jan 02 21:15:09 2007 +0000
@@ -275,14 +275,15 @@
 		     keys
 		     (char 0)
 		     (arg 1))
-		 (while (not (or (and (>= char ?0) (< char next-digit))
+		 (while (not (or (and (integerp char)
+				      (>= char ?0) (< char next-digit))
 				 (eq value 'keyboard-quit)))
 		   ;; Unread a SPC to lead to our new menu.
 		   (setq unread-command-events (cons ?\s unread-command-events))
 		   (setq keys (read-key-sequence title))
 		   (setq value
 			 (lookup-key overriding-terminal-local-map keys t)
-			 char (string-to-char (substring keys 1)))
+			 char (aref keys 1))
 		   (cond ((eq value 'scroll-other-window)
 			  (let ((minibuffer-scroll-window
 				 (get-buffer-window buf)))