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-delay-rationalize-file-buffer-names):

Browse source 
Rename from delay-uniquify-rationalize-file-buffer-names.
Only rationalize if the buffer is under uniquify control.
(uniquify-delayed-rationalize-file-buffer-names):
Rename from delayed-uniquify-rationalize-file-buffer-names.
This commit is contained in:
Stefan Monnier 2002-06-27 15:35:48 +00:00
parent 9d5d96a6bd
commit 2ff96ab3e7
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/uniquify.el
View file

@ -385,21 +385,23 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
;; (This ought to set some global variables so the work is done only for
;; buffers with names similar to the deleted buffer. -MDE)
(defun delay-uniquify-rationalize-file-buffer-names ()
(defun uniquify-delay-rationalize-file-buffer-names ()
"Add `delayed-uniquify-rationalize-file-buffer-names' to `post-command-hook'.
For use on, eg, `kill-buffer-hook', to rationalize *after* buffer deletion."
(if (and uniquify-buffer-name-style
uniquify-after-kill-buffer-p)
uniquify-after-kill-buffer-p
;; Rationalizing is costly, so don't do it for temp buffers.
(uniquify-buffer-file-name (current-buffer)))
(add-hook 'post-command-hook
'delayed-uniquify-rationalize-file-buffer-names)))
'uniquify-delayed-rationalize-file-buffer-names)))
(defun delayed-uniquify-rationalize-file-buffer-names ()
(defun uniquify-delayed-rationalize-file-buffer-names ()
"Rerationalize buffer names and remove self from `post-command-hook'.
See also `delay-rationalize-file-buffer-names' for hook setter."
(uniquify-rationalize-file-buffer-names)
(remove-hook 'post-command-hook
'delayed-uniquify-rationalize-file-buffer-names))
'uniquify-delayed-rationalize-file-buffer-names))
(add-hook 'kill-buffer-hook 'delay-uniquify-rationalize-file-buffer-names)
(add-hook 'kill-buffer-hook 'uniquify-delay-rationalize-file-buffer-names)
;;; uniquify.el ends here