# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1109105559 0
# Node ID de939ef4dd888a11399d959180f9361be66f59a9
# Parent  084dd82bd7a5fc951b648a4744c714c51e8564d2
(hide-ifdef-use-define-alist): Use
completing-read.  Suggested by Juan-Leon Lahoz Garcia.

diff -r 084dd82bd7a5 -r de939ef4dd88 lisp/progmodes/hideif.el
--- 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