diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-01-02 21:15:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-01-02 21:15:09 +0000 |
| commit | 421be070361daada7d3e9560144a3aa35af8bed9 (patch) | |
| tree | dcd83e4e4dda1a90f99878f3d67b2467a5685b17 /lisp/wid-edit.el | |
| parent | 4bafae499a6a73a04d2f23092ef34a7f1daafb56 (diff) | |
| download | emacs-421be070361daada7d3e9560144a3aa35af8bed9.tar.gz | |
(widget-choose): Avoid ugly error for function keys.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 7d572363e0f..935d2b7719d 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -275,14 +275,15 @@ minibuffer." 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))) |