diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-07 04:31:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-07-07 04:31:17 +0000 |
| commit | 521b27480a1b197c24be63e23d8d236aa80237d1 (patch) | |
| tree | 9f70f9c3b1c4577eb94eb4184283532f0ca65bea /lisp/progmodes/hideif.el | |
| parent | ed6773fa23b9c8e858cbe91642db7251dbe60947 (diff) | |
| download | emacs-521b27480a1b197c24be63e23d8d236aa80237d1.tar.gz | |
(hide-ifdef-use-define-alist): Pass a list of
strings rather than a list of symbols to the completion function.
Diffstat (limited to 'lisp/progmodes/hideif.el')
| -rw-r--r-- | lisp/progmodes/hideif.el | 6 |
1 files 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 |