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

(hide-ifdef-use-define-alist): Use

Browse Source 
completing-read.  Suggested by Juan-Leon Lahoz Garcia.
This commit is contained in:
Kim F. Storm 2005-02-22 20:52:39 +00:00
parent b686dd591d
commit 48d66f99eb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/hideif.el
View File

@ -958,7 +958,10 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
(defun hide-ifdef-use-define-alist (name)
"Set `hide-ifdef-env' to the define list specified by NAME."
(interactive "SUse define list: ")
(interactive
(list (completing-read "Use define list: "
hide-ifdef-define-alist nil t)))
(if (stringp name) (setq name (intern name)))
(let ((define-list (assoc name hide-ifdef-define-alist)))
(if define-list
(setq hide-ifdef-env