diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-12-15 20:26:17 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-12-15 20:26:17 +0100 |
| commit | 8cf9bc213d5e9ea705edcdad7c0f8b6f57232070 (patch) | |
| tree | 1eb9c8207432eee3fc672ce6f34ebc4bdfa223f8 /helm-man.el | |
| parent | 4fd8fae44aa99efdd0d2a008c27706671372d214 (diff) | |
* helm-man.el (helm-c-source-man-pages): Fix.
(helm-man-woman): Allow refreshing cache.
Diffstat (limited to 'helm-man.el')
| -rw-r--r-- | helm-man.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/helm-man.el b/helm-man.el index 62e8172d..19495177 100644 --- a/helm-man.el +++ b/helm-man.el @@ -46,14 +46,12 @@ source.") `((name . "Manual Pages") (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)))))) + (unless helm-c-man-pages + (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 @@ -65,9 +63,11 @@ source.") (requires-pattern . 2))) ;;;###autoload -(defun helm-man-woman () - "Preconfigured `helm' for Man and Woman pages." - (interactive) +(defun helm-man-woman (arg) + "Preconfigured `helm' for Man and Woman pages. +With a prefix arg reinitialize the cache." + (interactive "P") + (when arg (setq helm-c-man-pages nil)) (helm-other-buffer 'helm-c-source-man-pages "*Helm man woman*")) (provide 'helm-man) |