[Emacs-diffs] trunk r117462: * lisp/man.el (Man-bgproc-sentinel): Use `Man-page-from-arguments'

[Juri Linkov]

------------------------------------------------------------
revno: 117462
revision-id: address@hidden
parent: address@hidden
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Wed 2014-07-02 03:57:53 +0300
message:
  * lisp/man.el (Man-bgproc-sentinel): Use `Man-page-from-arguments'
  for the message about the man page cleaned up.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/man.el                    man.el-20091113204419-o5vbwnq5f7feedwu-582

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-01 23:54:59 +0000
+++ b/lisp/ChangeLog    2014-07-02 00:57:53 +0000
@@ -21,11 +21,14 @@
        `Man-bgproc-filter'.  Move the call of `Man-mode' to
        `Man-getpage-in-background'.  Use `quit-restore-window'
        instead of `kill-buffer'.  Use `message' instead of `error'
-       because errors are catched by process sentinel.
+       because errors are caught by process sentinel.
        (Man-mode): Move calls of `Man-build-page-list',
        `Man-strip-page-headers', `Man-unindent', `Man-goto-page' to
        `Man-bgproc-sentinel'.  Doc fix.  (Bug#2588, bug#5054, bug#9084, 
bug#17831)
 
+       * man.el (Man-bgproc-sentinel): Use `Man-page-from-arguments'
+       for the message about the man page cleaned up.
+
 2014-07-01  Mario Lang  <address@hidden>
 
        * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of

=== modified file 'lisp/man.el'
--- a/lisp/man.el       2014-07-01 23:54:59 +0000
+++ b/lisp/man.el       2014-07-02 00:57:53 +0000
@@ -1432,7 +1432,8 @@
                (if Man-fontify-manpage-flag
                    (message "%s man page formatted"
                             (Man-page-from-arguments Man-arguments))
-                 (message "%s man page cleaned up" Man-arguments))
+                 (message "%s man page cleaned up"
+                          (Man-page-from-arguments Man-arguments)))
                (unless (and (processp process)
                             (not (eq (process-status process) 'exit)))
                  (setq mode-line-process nil))