Commit 2f5c6024 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* man.el (Man-fontify-manpage): Fix message when formatting the man page.

Fixes: debbugs:7929
parent df9733bf
2011-07-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* man.el (Man-fontify-manpage): Fix message when formatting the
man page (bug#7929).
2011-07-14 Eli Zaretskii <eliz@gnu.org>
* buff-menu.el (Buffer-menu-buffer+size): Accept an additional
......
......@@ -1108,7 +1108,7 @@ Same for the ANSI bold and normal escape sequences."
(put-text-property (match-beginning 0)
(match-end 0)
'face Man-overstrike-face)))
(message "%s man page formatted" Man-arguments))
(message "%s man page formatted" (Man-page-from-arguments Man-arguments)))
(defun Man-highlight-references (&optional xref-man-type)
"Highlight the references on mouse-over.
......@@ -1260,16 +1260,7 @@ manpage command."
(let ((args Man-arguments))
(kill-buffer (current-buffer))
(error "Can't find the %s manpage"
;; Skip arguments and only print the page name.
(mapconcat
'identity
(delete nil
(mapcar
(lambda (elem)
(and (not (string-match "^-" elem))
elem))
(split-string args " ")))
" ")))
(Man-page-from-arguments args)))
(set-buffer-modified-p nil))))
;; Restore case-fold-search before calling
;; Man-notify-when-ready because it may switch buffers.
......@@ -1281,6 +1272,18 @@ manpage command."
(error "%s" err-mess))
))))
(defun Man-page-from-arguments (args)
;; Skip arguments and only print the page name.
(mapconcat
'identity
(delete nil
(mapcar
(lambda (elem)
(and (not (string-match "^-" elem))
elem))
(split-string args " ")))
" "))
;; ======================================================================
;; set up manual mode in buffer and build alists
......
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