Hi,
`hide-ifdef-use-define-alist', when invoked interactivelly, does not
know how to complete to the symbols in alist `hide-ifdef-define-alist',
despite it is mandatory to enter one of them.
This is an incovenience because when you use several list is hard to
remember the exact names for them.
Since I can see in CVS this file is untouched for a lot of time, here
goes a patch so solve this (you might find a more elegant solution, I
suppose), just for the case of anyone here with time to review it and
maybe modify and/or apply.
--- hideif.el.ori Mon Feb 21 09:33:58 2005
+++ hideif.el Mon Feb 21 10:08:52 2005
@@ -1061,9 +1061,16 @@
(cons (cons name (hif-compress-define-list hide-ifdef-env))
hide-ifdef-define-alist)))
-(defun hide-ifdef-use-define-alist (name)
+(defun hide-ifdef-use-define-alist (&optional name)
"Set `hide-ifdef-env' to the define list specified by NAME."
- (interactive "SUse define list: ")
+ (interactive)
+ (unless name
+ (setq name
+ (completing-read "Use define list: "
+ (mapcar (lambda (arg)
+ (cons (symbol-name (car arg)) t))
+ 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
(setq hide-ifdef-env
--
Regards
juanleon
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
