andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(widget-menu-max-shortcuts): New variable.

Browse source 
(widget-choose): Don't use single-char shortcuts if # items
exceeds that many.  Use minibuffer instead.
This commit is contained in:
Karl Heuer 1998-09-13 03:36:27 +00:00
parent 65f2da7e91
commit 703c3a110b
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/wid-edit.el
View file

@ -176,7 +176,13 @@ Larger menus are read through the minibuffer."
:group 'widgets
:type 'integer)
(defcustom widget-menu-minibuffer-flag (string-match "XEmacs" emacs-version)
(defcustom widget-menu-max-shortcuts 40
"Largest number of items for which it works to choose one with a character.
For a larger number of items, the minibuffer is used."
:group 'widgets
:type 'integer)
(defcustom widget-menu-minibuffer-flag nil
"*Control how to ask for a choice from the keyboard.
Non-nil means use the minibuffer;
nil means read a single character."
@ -202,7 +208,8 @@ minibuffer."
;; We are in Emacs-19, pressed by the mouse
(x-popup-menu event
(list title (cons "" items))))
(widget-menu-minibuffer-flag
((or widget-menu-minibuffer-flag
(> (length items) widget-menu-max-shortcuts))
;; Read the choice of name from the minibuffer.
(setq items (widget-remove-if 'stringp items))
(let ((val (completing-read (concat title ": ") items nil t)))