emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r105211: * man.el (Man-fontify-manpag


From: Lars Magne Ingebrigtsen
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r105211: * man.el (Man-fontify-manpage): Fix message when formatting the man page.
Date: Thu, 14 Jul 2011 19:43:29 +0200
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 105211
fixes bug(s): http://debbugs.gnu.org/7929
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2011-07-14 19:43:29 +0200
message:
  * man.el (Man-fontify-manpage): Fix message when formatting the man page.
modified:
  lisp/ChangeLog
  lisp/man.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-14 17:39:00 +0000
+++ b/lisp/ChangeLog    2011-07-14 17:43:29 +0000
@@ -1,3 +1,8 @@
+2011-07-14  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * man.el (Man-fontify-manpage): Fix message when formatting the
+       man page (bug#7929).
+
 2011-07-14  Eli Zaretskii  <address@hidden>
 
        * buff-menu.el (Buffer-menu-buffer+size): Accept an additional

=== modified file 'lisp/man.el'
--- a/lisp/man.el       2011-07-14 17:39:00 +0000
+++ b/lisp/man.el       2011-07-14 17:43:29 +0000
@@ -1108,7 +1108,7 @@
       (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 @@
              (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 @@
            (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]