[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/uniquify.el,v [EMACS_22_BASE]
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/uniquify.el,v [EMACS_22_BASE] |
Date: |
Tue, 12 Feb 2008 14:32:57 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Juanma Barranquero <lektu> 08/02/12 14:32:56
Index: uniquify.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/uniquify.el,v
retrieving revision 1.62.2.7
retrieving revision 1.62.2.8
diff -u -b -r1.62.2.7 -r1.62.2.8
--- uniquify.el 7 Jan 2008 02:44:10 -0000 1.62.2.7
+++ uniquify.el 12 Feb 2008 14:32:56 -0000 1.62.2.8
@@ -189,6 +189,13 @@
(make-variable-buffer-local 'uniquify-managed)
(put 'uniquify-managed 'permanent-local t)
+;; 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."
+ (and uniquify-managed
+ (uniquify-item-base (car uniquify-managed))))
+
;;; Main entry point.
(defun uniquify-rationalize-file-buffer-names (base dirname newbuf)
@@ -489,7 +496,7 @@
(dolist (buf buffers)
(set-buffer (car buf))
(rename-buffer (cdr buf) t))))
- ;; continue standard uploading
+ ;; continue standard unloading
nil)
(provide 'uniquify)
- [Emacs-diffs] Changes to emacs/lisp/uniquify.el,v [EMACS_22_BASE],
Juanma Barranquero <=