diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-12-15 19:59:49 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-12-15 19:59:49 +0100 |
commit | 4fd8fae44aa99efdd0d2a008c27706671372d214 (patch) | |
tree | 4944c7dc1289aceb400aa7f0937ab0f921cf99ed /helm-man.el | |
parent | d4b05f8f8ba335f9a7fdb4b7d5e557a36de0dd21 (diff) |
* helm-man.el (helm-c-source-man-pages): Use init to initialize helm-c-man-pages.
Diffstat (limited to 'helm-man.el')
-rw-r--r-- | helm-man.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/helm-man.el b/helm-man.el index c9459dd1..62e8172d 100644 --- a/helm-man.el +++ b/helm-man.el @@ -44,17 +44,18 @@ source.") (defvar helm-c-source-man-pages `((name . "Manual Pages") - (candidates . (lambda () - (if helm-c-man-pages - helm-c-man-pages - ;; XEmacs doesn't have a woman :) - (setq helm-c-man-pages - (ignore-errors - (require 'woman) - (woman-file-name "") - (sort (mapcar 'car woman-topic-all-completions) - 'string-lessp)))))) - (action ("Show with Woman" . helm-c-man-default-action)) + (init . (lambda () + (require 'woman) + (if helm-c-man-pages + helm-c-man-pages + ;; XEmacs doesn't have a woman :) + (setq helm-c-man-pages + (ignore-errors + (woman-file-name "" t) + (sort (mapcar 'car woman-topic-all-completions) + 'string-lessp)))))) + (candidates . helm-c-man-pages) + (action . (("Show with Woman" . helm-c-man-default-action))) ;; Woman does not work OS X ;; http://xahlee.org/emacs/modernization_man_page.html (action-transformer . (lambda (actions candidate) |