diff options
| author | Glenn Morris | 2009-12-02 03:02:10 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-12-02 03:02:10 +0000 |
| commit | c79fb97624d147cbefb7ebf1d0dd6e5270624faa (patch) | |
| tree | 61bd97f7b9be27a2a88a487e65567fecd729c35e | |
| parent | 34b1d750119513a6c914b102ba745b1013a7c3c7 (diff) | |
| download | emacs-c79fb97624d147cbefb7ebf1d0dd6e5270624faa.tar.gz emacs-c79fb97624d147cbefb7ebf1d0dd6e5270624faa.zip | |
Comment.
| -rw-r--r-- | lisp/woman.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 02e20652de9..e19df4b7fec 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -1649,6 +1649,8 @@ decompress the file if appropriate. See the documentation for the | |||
| 1649 | 1649 | ||
| 1650 | (defun woman-make-bufname (bufname) | 1650 | (defun woman-make-bufname (bufname) |
| 1651 | "Create an unambiguous buffer name from BUFNAME." | 1651 | "Create an unambiguous buffer name from BUFNAME." |
| 1652 | ;; See Bug#5038. Any compression extension has already been removed. | ||
| 1653 | ;; Go from eg "host.conf.5" to "5 host.conf". | ||
| 1652 | (let ((dot (string-match "\\.[^.]*\\'" bufname))) | 1654 | (let ((dot (string-match "\\.[^.]*\\'" bufname))) |
| 1653 | (if dot (setq bufname (concat | 1655 | (if dot (setq bufname (concat |
| 1654 | (substring bufname (1+ dot)) " " | 1656 | (substring bufname (1+ dot)) " " |