From 48d66f99eb3112e8312666d543b49c0177653ba8 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 22 Feb 2005 20:52:39 +0000 Subject: [PATCH] (hide-ifdef-use-define-alist): Use completing-read. Suggested by Juan-Leon Lahoz Garcia. --- lisp/progmodes/hideif.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.5