From: Kim F. Storm <storm@cua.dk>
Date: Tue, 22 Feb 2005 20:52:39 +0000 (+0000)
Subject: (hide-ifdef-use-define-alist): Use
X-Git-Tag: ttn-vms-21-2-B4~2154
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48d66f99eb3112e8312666d543b49c0177653ba8;p=emacs.git

(hide-ifdef-use-define-alist): Use
completing-read.  Suggested by Juan-Leon Lahoz Garcia.
---

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index aabc2f5783c..da6b6f772b6 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -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