Commit 35863d77 authored by Karl Heuer's avatar Karl Heuer
Browse files

(finder-find-library): Re-instate (with a different

implementation) so that `locate-library' can find compressed files.
(finder-commentary): Use it.
parent 183e4bd6
...@@ -224,9 +224,19 @@ arguments compiles from `load-path'." ...@@ -224,9 +224,19 @@ arguments compiles from `load-path'."
(shrink-window-if-larger-than-buffer) (shrink-window-if-larger-than-buffer)
(finder-summary))) (finder-summary)))
;; Search for a file named FILE on `load-path', also trying compressed
;; versions if jka-compr is in use.
(defun finder-find-library (library)
(or (locate-library library t)
(if (rassq 'jka-compr-handler file-name-handler-alist)
(or (locate-library (concat library ".gz") t)
(locate-library (concat library ".Z") t)
;; last resort for MS-DOG et al
(locate-library (concat library "z"))))))
(defun finder-commentary (file) (defun finder-commentary (file)
(interactive) (interactive)
(let* ((str (lm-commentary (locate-library file)))) (let* ((str (lm-commentary (finder-find-library file))))
(if (null str) (if (null str)
(error "Can't find any Commentary section")) (error "Can't find any Commentary section"))
(pop-to-buffer "*Finder*") (pop-to-buffer "*Finder*")
...@@ -295,7 +305,7 @@ arguments compiles from `load-path'." ...@@ -295,7 +305,7 @@ arguments compiles from `load-path'."
"\\<finder-mode-map>\\[finder-select] = select, \\[finder-mouse-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"))) "\\<finder-mode-map>\\[finder-select] = select, \\[finder-mouse-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help")))
(defun finder-exit () (defun finder-exit ()
"Exit Finder mode and kill the buffer" "Exit Finder mode and kill the buffer."
(interactive) (interactive)
(or (one-window-p t) (or (one-window-p t)
(delete-window)) (delete-window))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment