[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105211: * man.el (Man-fontify-manpage): Fix message when formatting the man page.,
Lars Magne Ingebrigtsen <=