mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(uniquify-buffer-base-name): If the base name is an empty

Browse Source 
string, return nil to allow the caller to default to the
buffer name.  Reported by Martin Fischer <parozusa@web.de>.
This commit is contained in:
Juanma Barranquero 2008-02-27 16:39:45 +00:00
parent 70bb1e5f2a
commit 07e4bb9a30
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2008-02-27 Juanma Barranquero <lekktu@gmail.com> 2008-02-27 Juanma Barranquero <lekktu@gmail.com>
* 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. Reported by Martin Fischer <parozusa@web.de>.
* tool-bar.el (tool-bar-setup): Doc fix. * tool-bar.el (tool-bar-setup): Doc fix.
* mail/supercite.el (sc-describe): * mail/supercite.el (sc-describe):

6
lisp/uniquify.el
View File

@ -194,9 +194,11 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
;; Used in desktop.el to save the non-uniquified buffer name ;; Used in desktop.el to save the non-uniquified buffer name
(defun uniquify-buffer-base-name () (defun uniquify-buffer-base-name ()
"Return the base name of the current buffer. "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 (and uniquify-managed
(uniquify-item-base (car uniquify-managed)))) (let ((base (uniquify-item-base (car uniquify-managed))))
(if (string= base "") nil base))))
;;; Main entry point. ;;; Main entry point.