Mercurial > emacs
changeset 64119:b83cb76e940c
(hide-ifdef-use-define-alist): Pass a list of
strings rather than a list of symbols to the completion function.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 07 Jul 2005 04:31:17 +0000 |
| parents | 565aeb1f7662 |
| children | e82544c1e32b |
| files | lisp/progmodes/hideif.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/hideif.el Thu Jul 07 01:51:48 2005 +0000 +++ b/lisp/progmodes/hideif.el Thu Jul 07 04:31:17 2005 +0000 @@ -960,7 +960,9 @@ "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 @@ (provide 'hideif) -;;; arch-tag: c6381d17-a59a-483a-b945-658f22277981 +;; arch-tag: c6381d17-a59a-483a-b945-658f22277981 ;;; hideif.el ends here