Hi Tassilo,
Tassilo Horn <[EMAIL PROTECTED]> writes:
> 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.
Yep, works fine now - thanks!
- Bill
_______________________________________________
gnu-emacs-sources mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
