271 |
(while (not (or (and (>= char ?0) (< char next-digit)) |
(while (not (or (and (>= char ?0) (< char next-digit)) |
272 |
(eq value 'keyboard-quit))) |
(eq value 'keyboard-quit))) |
273 |
;; Unread a SPC to lead to our new menu. |
;; Unread a SPC to lead to our new menu. |
274 |
(setq unread-command-events (cons ?\ unread-command-events)) |
(setq unread-command-events (cons ?\ unread-command-events)) |
275 |
(setq keys (read-key-sequence title)) |
(setq keys (read-key-sequence title)) |
276 |
(setq value |
(setq value |
277 |
(lookup-key overriding-terminal-local-map keys t) |
(lookup-key overriding-terminal-local-map keys t) |