# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1259722904 0
# Node ID 1168a9885b5d13b5acb9c8ca8db98600e352ea75
# Parent  b78c33f367a0d968dd0aca1e754344623238dff1
2009-12-02  Michael Welsh Duggan  <mwd at cert.org>

(woman-make-bufname): Handle man-pages with "." in the name.  (Bug#5038)

diff -r b78c33f367a0 -r 1168a9885b5d lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 02 03:00:41 2009 +0000
+++ b/lisp/ChangeLog	Wed Dec 02 03:01:44 2009 +0000
@@ -1,3 +1,8 @@
+2009-12-02  Michael Welsh Duggan  <mwd@cert.org>
+
+	* woman.el (woman-make-bufname): Handle man-pages with "." in the
+	name.  (Bug#5038)
+
 2009-12-02  Andreas Politz  <politza@fh-trier.de>  (tiny change)
 
 	* ido.el (ido-file-internal): Handle filenames at point that do
diff -r b78c33f367a0 -r 1168a9885b5d lisp/woman.el
--- a/lisp/woman.el	Wed Dec 02 03:00:41 2009 +0000
+++ b/lisp/woman.el	Wed Dec 02 03:01:44 2009 +0000
@@ -1649,7 +1649,7 @@
 
 (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))))