Commit d1583c48 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

Only output the man page name on failures

* man.el (Man-bgproc-sentinel): Skip any arguments and only output
the man page name.

Fixes: debbugs:6935
parent 0bb23927
...@@ -10,6 +10,9 @@ ...@@ -10,6 +10,9 @@
2011-07-14 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-07-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* man.el (Man-bgproc-sentinel): Skip any arguments and only output
the man page name (bug#7929).
* image.el (put-image): Mention the `put-image' overlay property * image.el (put-image): Mention the `put-image' overlay property
(bug#7834). (bug#7834).
......
...@@ -1257,12 +1257,20 @@ manpage command." ...@@ -1257,12 +1257,20 @@ manpage command."
(Man-mode) (Man-mode)
(if (not Man-page-list) (if (not Man-page-list)
(let ((args Man-arguments)) (let ((args Man-arguments))
(kill-buffer (current-buffer)) (kill-buffer (current-buffer))
(error "Can't find the %s manpage" args))) (error "Can't find the %s manpage"
;; Skip arguments and only print the page name.
(set-buffer-modified-p nil) (mapconcat
)) 'identity
(delete nil
(mapcar
(lambda (elem)
(and (not (string-match "^-" elem))
elem))
(split-string args " ")))
" ")))
(set-buffer-modified-p nil))))
;; Restore case-fold-search before calling ;; Restore case-fold-search before calling
;; Man-notify-when-ready because it may switch buffers. ;; Man-notify-when-ready because it may switch buffers.
......
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