Bill Clementson <[EMAIL PROTECTED]> writes:
Hi Bill,
>> Or do you have a better idea?
>
> Something like the following should work:
>
> (defvar anything-c-man-pages nil "All man pages on system")
>
> (defvar anything-c-source-man-pages
> `((name . "Manual Pages")
> (candidates . (lambda ()
> (if (not anything-c-man-pages)
> (when (require 'woman nil t)
> (woman-file-name "")
> (setq anything-c-man-pages
> (sort (mapcar 'car
> woman-topic-all-completions)
> 'string-lessp)))
> anything-c-man-pages)))
> (action . (("Show with Woman" . woman)))
> (requires-pattern . 2)))
Oh, yes. I added something like this for the man and the info source.
Bye,
Tassilo
--
Fighting patents one by one will never eliminate the danger of software
patents, any more than swatting mosquitoes will eliminate malaria.
(Richard M. Stallman)
_______________________________________________
gnu-emacs-sources mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
