Mercurial > emacs

changeset 60213:de939ef4dd88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hide-ifdef-use-define-alist): Use completing-read. Suggested by Juan-Leon Lahoz Garcia.
author Kim F. Storm <storm@cua.dk>
date Tue, 22 Feb 2005 20:52:39 +0000
parents 084dd82bd7a5
children 7cc86e0f08f6
files lisp/progmodes/hideif.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/hideif.el	Tue Feb 22 20:52:19 2005 +0000
+++ b/lisp/progmodes/hideif.el	Tue Feb 22 20:52:39 2005 +0000
@@ -958,7 +958,10 @@
 
 (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