mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(widget-choose): Avoid ugly error for function keys.

Browse Source
This commit is contained in:
Richard M. Stallman 2007-01-02 21:15:09 +00:00
parent 4bafae499a
commit 421be07036
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/wid-edit.el
View File

@ -275,14 +275,15 @@ minibuffer."
keys keys
(char 0) (char 0)
(arg 1)) (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))) (eq value 'keyboard-quit)))
;; Unread a SPC to lead to our new menu. ;; Unread a SPC to lead to our new menu.
(setq unread-command-events (cons ?\s unread-command-events)) (setq unread-command-events (cons ?\s unread-command-events))
(setq keys (read-key-sequence title)) (setq keys (read-key-sequence title))
(setq value (setq value
(lookup-key overriding-terminal-local-map keys t) (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) (cond ((eq value 'scroll-other-window)
(let ((minibuffer-scroll-window (let ((minibuffer-scroll-window
(get-buffer-window buf))) (get-buffer-window buf)))