Only output the man page name on failures

* man.el (Man-bgproc-sentinel): Skip any arguments and only output
the man page name.

Fixes: debbugs:6935

1 files changed, 13 insertions, 5 deletions

diff --git a/lisp/man.el b/lisp/man.el
index b5a70395e59..8782b22c804 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1257,12 +1257,20 @@ manpage command."
 	  (Man-mode)
 
 	  (if (not Man-page-list)
-	      (let ((args Man-arguments))
+ 	      (let ((args Man-arguments))
 		(kill-buffer (current-buffer))
-		(error "Can't find the %s manpage" args)))
-
-          (set-buffer-modified-p nil)
-          ))
+		(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 " ")))
+			" ")))
+	    (set-buffer-modified-p nil))))
 	;; Restore case-fold-search before calling
 	;; Man-notify-when-ready because it may switch buffers.