(defun perlbrew-set-current-woman-path ()
"Set the path to the current brew's /man directory."
- (remove-if (lambda (path) (string-match (concat "^" perlbrew-perls-dir) path)) woman-path))
- (if perlbrew-current-brew
- (add-to-list 'woman-path
- (concat (file-name-directory perlbrew-perls-dir) perlbrew-current-brew
+ (eval-after-load "woman"
+ (remove-if (lambda (path) (string-match (concat "^" perlbrew-perls-dir) path)) woman-path))
+ (if perlbrew-current-brew
+ (add-to-list 'woman-path
+ (concat (file-name-directory perlbrew-perls-dir) perlbrew-current-brew
+ (setq woman-cached-data nil))))
(defun perlbrew-set-current-brew (brew)
(if (perlbrew-brew-exists brew)
(setq perlbrew-current-brew brew)
-(defun perlbrew--rebuild-woman-cache ()
- "Lifted straight from woman.el code."
- (message "Building list of manual directory expansions...")
- (setq woman-expanded-directory-path
- (woman-expand-directory-path woman-manpath woman-path))
- (message "Building completion list of all manual topics...")
- (setq woman-topic-all-completions
- (woman-topic-all-completions woman-expanded-directory-path))
;;; perlbrew.el ends here