diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 70 | ||||
| -rw-r--r-- | lisp/subr.el | 72 |
2 files changed, 72 insertions, 70 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6dc4e5666da..47d4adb0fd6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -5174,76 +5174,6 @@ and KILLP is t if a prefix arg was specified." ;; Avoid warning about delete-backward-char (with-no-warnings (delete-backward-char n killp)))) -(defvar read-char-history nil - "The default history for the `read-char-from-minibuffer' function.") - -(defvar read-char-from-minibuffer-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map minibuffer-local-map) - (define-key map [remap self-insert-command] - 'read-char-from-minibuffer-insert-char) - map) - "Keymap for the `read-char-from-minibuffer' function.") - -(defconst read-char-from-minibuffer-map-hash - (make-hash-table :weakness 'key :test 'equal)) - -(defun read-char-from-minibuffer-insert-char () - "Insert the character you type in the minibuffer and exit. -Discard all previous input before inserting and exiting the minibuffer." - (interactive) - (delete-minibuffer-contents) - (insert last-command-event) - (exit-minibuffer)) - -(defun read-char-from-minibuffer-insert-other () - "Handle inserting of a character other than allowed. -Display an error on trying to insert a disallowed character. -Also discard all previous input in the minibuffer." - (interactive) - (delete-minibuffer-contents) - (ding) - (minibuffer-message "Wrong answer") - (sit-for 2)) - -(defvar empty-history) - -(defun read-char-from-minibuffer (prompt &optional chars history) - "Read a character from the minibuffer, prompting for PROMPT. -Like `read-char', but uses the minibuffer to read and return a character. -When CHARS is non-nil, any input that is not one of CHARS is ignored. -When HISTORY is a symbol, then allows navigating in a history. -The navigation commands are `M-p' and `M-n', with `RET' to select -a character from history." - (discard-input) - (let* ((empty-history '()) - (map (if (consp chars) - (or (gethash chars read-char-from-minibuffer-map-hash) - (puthash chars - (let ((map (make-sparse-keymap))) - (set-keymap-parent map read-char-from-minibuffer-map) - (dolist (char chars) - (define-key map (vector char) - 'read-char-from-minibuffer-insert-char)) - (define-key map [remap self-insert-command] - 'read-char-from-minibuffer-insert-other) - map) - read-char-from-minibuffer-map-hash)) - read-char-from-minibuffer-map)) - (result - (read-from-minibuffer prompt nil map nil - (or history 'empty-history))) - (char - (if (> (length result) 0) - ;; We have a string (with one character), so return the first one. - (elt result 0) - ;; The default value is RET. - (when history (push "\r" (symbol-value history))) - ?\r))) - ;; Display the question with the answer. - (message "%s%s" prompt (char-to-string char)) - char)) - (defun zap-to-char (arg char) "Kill up to and including ARGth occurrence of CHAR. Case is ignored if `case-fold-search' is non-nil in the current buffer. diff --git a/lisp/subr.el b/lisp/subr.el index ea56b490871..eaec2235853 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2665,6 +2665,78 @@ floating point support." (push (cons t read) unread-command-events) nil)))))) + +(defvar read-char-history nil + "The default history for the `read-char-from-minibuffer' function.") + +(defvar read-char-from-minibuffer-map + (let ((map (make-sparse-keymap))) + (set-keymap-parent map minibuffer-local-map) + (define-key map [remap self-insert-command] + 'read-char-from-minibuffer-insert-char) + map) + "Keymap for the `read-char-from-minibuffer' function.") + +(defconst read-char-from-minibuffer-map-hash + (make-hash-table :weakness 'key :test 'equal)) + +(defun read-char-from-minibuffer-insert-char () + "Insert the character you type in the minibuffer and exit. +Discard all previous input before inserting and exiting the minibuffer." + (interactive) + (delete-minibuffer-contents) + (insert last-command-event) + (exit-minibuffer)) + +(defun read-char-from-minibuffer-insert-other () + "Handle inserting of a character other than allowed. +Display an error on trying to insert a disallowed character. +Also discard all previous input in the minibuffer." + (interactive) + (delete-minibuffer-contents) + (ding) + (minibuffer-message "Wrong answer") + (sit-for 2)) + +(defvar empty-history) + +(defun read-char-from-minibuffer (prompt &optional chars history) + "Read a character from the minibuffer, prompting for PROMPT. +Like `read-char', but uses the minibuffer to read and return a character. +When CHARS is non-nil, any input that is not one of CHARS is ignored. +When HISTORY is a symbol, then allows navigating in a history. +The navigation commands are `M-p' and `M-n', with `RET' to select +a character from history." + (discard-input) + (let* ((empty-history '()) + (map (if (consp chars) + (or (gethash chars read-char-from-minibuffer-map-hash) + (puthash chars + (let ((map (make-sparse-keymap))) + (set-keymap-parent map read-char-from-minibuffer-map) + (dolist (char chars) + (define-key map (vector char) + 'read-char-from-minibuffer-insert-char)) + (define-key map [remap self-insert-command] + 'read-char-from-minibuffer-insert-other) + map) + read-char-from-minibuffer-map-hash)) + read-char-from-minibuffer-map)) + (result + (read-from-minibuffer prompt nil map nil + (or history 'empty-history))) + (char + (if (> (length result) 0) + ;; We have a string (with one character), so return the first one. + (elt result 0) + ;; The default value is RET. + (when history (push "\r" (symbol-value history))) + ?\r))) + ;; Display the question with the answer. + (message "%s%s" prompt (char-to-string char)) + char)) + + ;; Behind display-popup-menus-p test. (declare-function x-popup-dialog "menu.c" (position contents &optional header)) |