[Emacs-diffs] emacs/lisp ChangeLog woman.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/12/02 03:01:48

Modified files:
        lisp           : ChangeLog woman.el 

Log message:
        2009-12-02  Michael Welsh Duggan  <mwd at cert.org>
        
        (woman-make-bufname): Handle man-pages with "." in the name.  (Bug#5038)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16793&r2=1.16794
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/woman.el?cvsroot=emacs&r1=1.82&r2=1.83

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16793
retrieving revision 1.16794
diff -u -b -r1.16793 -r1.16794
--- ChangeLog   2 Dec 2009 03:00:41 -0000       1.16793
+++ ChangeLog   2 Dec 2009 03:01:44 -0000       1.16794
@@ -1,3 +1,8 @@
+2009-12-02  Michael Welsh Duggan  <address@hidden>
+
+       * woman.el (woman-make-bufname): Handle man-pages with "." in the
+       name.  (Bug#5038)
+
 2009-12-02  Andreas Politz  <address@hidden>  (tiny change)
 
        * ido.el (ido-file-internal): Handle filenames at point that do

Index: woman.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/woman.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- woman.el    1 Sep 2009 07:24:19 -0000       1.82
+++ woman.el    2 Dec 2009 03:01:48 -0000       1.83
@@ -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))))