From: Glenn Morris <rgm@gnu.org>
Date: Wed, 2 Dec 2009 03:01:44 +0000 (+0000)
Subject: 2009-12-02  Michael Welsh Duggan  <mwd at cert.org>
X-Git-Tag: emacs-pretest-23.1.90~126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34b1d750119513a6c914b102ba745b1013a7c3c7;p=emacs.git

2009-12-02  Michael Welsh Duggan  <mwd at cert.org>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b9349a2fbd..1cd9b4eb121 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --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))))