Commit 48d66f99 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

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

completing-read.  Suggested by Juan-Leon Lahoz Garcia.
parent b686dd59
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment