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

strings rather than a list of symbols to the completion function.

(hide-ifdef-use-define-alist): Pass a list of
strings rather than a list of symbols to the completion function.
521b2748 · Stefan Monnier · ed6773fa · 521b2748
Commit 521b2748 authored Jul 07, 2005 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/progmodes/hideif.el lisp/progmodes/hideif.el +4 -2

No files found.
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -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