mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(uniquify-unload-function): New function and var.

Browse source
This commit is contained in:
Juanma Barranquero 2007-10-29 13:25:08 +00:00
parent aa6c181234
commit 2513e3fdc2
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/uniquify.el
View file

@ -473,6 +473,26 @@ For use on `kill-buffer-hook'."
(file-name-nondirectory filename)
(file-name-directory filename) ad-return-value))))
;;; The End
(defun uniquify-unload-function ()
(save-current-buffer
(let ((buffers nil))
(dolist (buf (buffer-list))
(set-buffer buf)
(when uniquify-managed
(push (cons buf (uniquify-item-base (car uniquify-managed))) buffers)))
(dolist (fun '(rename-buffer create-file-buffer))
(ad-remove-advice fun 'after (intern (concat (symbol-name fun) "-uniquify")))
(ad-update fun))
(dolist (buf buffers)
(set-buffer (car buf))
(rename-buffer (cdr buf) t))))
;; continue standard uploading
nil)
(defvar uniquify-unload-function 'uniquify-unload-function)
(provide 'uniquify)
;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065