Commit 521b2748 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(hide-ifdef-use-define-alist): Pass a list of

strings rather than a list of symbols to the completion function.
parent ed6773fa
......@@ -960,7 +960,9 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
"Set `hide-ifdef-env' to the define list specified by NAME."
(interactive
(list (completing-read "Use define list: "
hide-ifdef-define-alist nil t)))
(mapcar (lambda (x) (symbol-name (car x)))
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
......@@ -972,5 +974,5 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
(provide 'hideif)
;;; arch-tag: c6381d17-a59a-483a-b945-658f22277981
;; arch-tag: c6381d17-a59a-483a-b945-658f22277981
;;; hideif.el ends here
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