aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/woman.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/woman.el b/lisp/woman.el
index 02e20652de9..e19df4b7fec 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1649,6 +1649,8 @@ decompress the file if appropriate. See the documentation for the
1649 1649
1650(defun woman-make-bufname (bufname) 1650(defun woman-make-bufname (bufname)
1651 "Create an unambiguous buffer name from BUFNAME." 1651 "Create an unambiguous buffer name from BUFNAME."
1652 ;; See Bug#5038. Any compression extension has already been removed.
1653 ;; Go from eg "host.conf.5" to "5 host.conf".
1652 (let ((dot (string-match "\\.[^.]*\\'" bufname))) 1654 (let ((dot (string-match "\\.[^.]*\\'" bufname)))
1653 (if dot (setq bufname (concat 1655 (if dot (setq bufname (concat
1654 (substring bufname (1+ dot)) " " 1656 (substring bufname (1+ dot)) " "