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

completing-read.  Suggested by Juan-Leon Lahoz Garcia.

1 files changed, 4 insertions, 1 deletions

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