mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(uniquify-buffer-base-name): Undo last change.

Browse Source
This commit is contained in:
Stefan Monnier 2008-02-28 19:46:59 +00:00
parent 13dbab28a0
commit 42b4ee207b
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
* uniquify.el (uniquify-buffer-base-name): Undo last change.
2008-02-28 Daiki Ueno <ueno@unixuser.org>
* international/utf-7.el (utf-7-encode): Never skip the trailing - for

8
lisp/uniquify.el
View File

@ -72,7 +72,7 @@
;; Add uniquify-list-buffers-directory-modes
;; Stefan Monnier <monnier@cs.yale.edu> 17 Nov 2000
;; Algorithm and data structure changed to reduce consing with lots of buffers
;; Francesco Potortì <pot@gnu.org> (ideas by rms and monnier) 2001-07-18
;; Francesco Potortì <pot@gnu.org> (ideas by rms and monnier) 2001-07-18
;; Valuable feedback was provided by
;; Paul Smith <psmith@baynetworks.com>,
@ -192,11 +192,9 @@ 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,
or if the base name is empty."
Return nil if the buffer is not managed by uniquify."
(and uniquify-managed
(let ((base (uniquify-item-base (car uniquify-managed))))
(if (string= base "") nil base))))
(uniquify-item-base (car uniquify-managed))))
;;; Main entry point.