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

Fixes: debbugs:7929

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec8f794f211af36d34ee9af458095cfe40b96a8e..66783b9a5ed499a387469652f6dc12193515724c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/man.el b/lisp/man.el
index 8782b22c80453f9f064b86e62882155ed83a60ba..ed24e35f0eaacd89e895b52d007da4e42dcc2f9a 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -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 " ")))
+   " "))
+
 \f
 ;; ======================================================================
 ;; set up manual mode in buffer and build alists