From 34b1d750119513a6c914b102ba745b1013a7c3c7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Dec 2009 03:01:44 +0000 Subject: [PATCH] 2009-12-02 Michael Welsh Duggan (woman-make-bufname): Handle man-pages with "." in the name. (Bug#5038) --- lisp/ChangeLog | 5 +++++ lisp/woman.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * woman.el (woman-make-bufname): Handle man-pages with "." in the + name. (Bug#5038) + 2009-12-02 Andreas Politz (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)))) -- 2.39.5