# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1120710677 0
# Node ID b83cb76e940c9694fc0ee0a15dee47e8da12e68b
# Parent  565aeb1f7662a5c3a633cd2449e63604a7359609
(hide-ifdef-use-define-alist): Pass a list of
strings rather than a list of symbols to the completion function.

diff -r 565aeb1f7662 -r b83cb76e940c lisp/progmodes/hideif.el
--- 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