summaryrefslogtreecommitdiff
path: root/lisp/woman.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2009-12-02 03:01:44 +0000
committerGlenn Morris <rgm@gnu.org>2009-12-02 03:01:44 +0000
commit34b1d750119513a6c914b102ba745b1013a7c3c7 (patch)
tree3267c5332d19647093ef1236e45a3437b368ab25 /lisp/woman.el
parentb2d5f31abf3d04628c9fe858fd80592e4f649097 (diff)
downloademacs-34b1d750119513a6c914b102ba745b1013a7c3c7.tar.gz
2009-12-02 Michael Welsh Duggan <mwd at cert.org>
(woman-make-bufname): Handle man-pages with "." in the name. (Bug#5038)
Diffstat (limited to 'lisp/woman.el')
-rw-r--r--lisp/woman.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/woman.el b/lisp/woman.el
index 302a96419e0..02e20652de9 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1649,7 +1649,7 @@ decompress the file if appropriate. See the documentation for the
(defun woman-make-bufname (bufname)
"Create an unambiguous buffer name from BUFNAME."
- (let ((dot (string-match "\\." bufname)))
+ (let ((dot (string-match "\\.[^.]*\\'" bufname)))
(if dot (setq bufname (concat
(substring bufname (1+ dot)) " "
(substring bufname 0 dot))))