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 6b9349a2fbd01dc998a7870885cd00ba02cdd7f0..1cd9b4eb121eb69d87d821b9238427bb9fc8393a 100644 (file)
--- 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 302a96419e0706d914b22d6be3b1cfa2ea51f22c..02e20652de9db5cc00bf2ad03220ff10787237b6 100644 (file)
--- 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))))