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

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

Browse Source 
done in desktop.el instead.
This commit is contained in:
Stefan Monnier 2008-02-28 17:09:18 +00:00
parent d6e1a31bbb
commit ef9f9d309f
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
* uniquify.el (uniquify-buffer-base-name): Undo last change. Should be
done in desktop.el instead.
2008-02-28 Glenn Morris <rgm@gnu.org>
* autoinsert.el (auto-insert-alist): Update to FDL 1.2.

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>,
@ -194,11 +194,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.