From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 7 Jul 2005 04:31:17 +0000 (+0000)
Subject: (hide-ifdef-use-define-alist): Pass a list of
X-Git-Tag: emacs-pretest-22.0.90~8332
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=521b27480a1b197c24be63e23d8d236aa80237d1;p=emacs.git

(hide-ifdef-use-define-alist): Pass a list of
strings rather than a list of symbols to the completion function.
---

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 94dad8874e9..35524b4a363 100644
--- 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