mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Juanma Barranquero 2008-02-27 16:38:37 +00:00
parent 4fbbba1d35
commit 0eb2977e77
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -2,7 +2,7 @@
* uniquify.el (uniquify-buffer-base-name): If the base name is an
empty string, return nil to allow the caller to default to the
buffer name.
buffer name. Reported by Martin Fischer <parozusa@web.de>.
2008-02-26 Jason Rumney <jasonr@gnu.org>

3
lisp/uniquify.el
View file

@ -192,7 +192,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
;; Used in desktop.el to save the non-uniquified buffer name
(defun uniquify-buffer-base-name ()
"Return the base name of the current buffer.
Return nil if the buffer is not managed by uniquify."
Return nil if the buffer is not managed by uniquify,
or if the base name is empty."
(and uniquify-managed
(let ((base (uniquify-item-base (car uniquify-managed))))
(if (string= base "") nil base))))