From 521b27480a1b197c24be63e23d8d236aa80237d1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 7 Jul 2005 04:31:17 +0000 Subject: [PATCH] (hide-ifdef-use-define-alist): Pass a list of strings rather than a list of symbols to the completion function. --- lisp/progmodes/hideif.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.39.2