# HG changeset patch # User Stefan Monnier # Date 1025192148 0 # Node ID 24044f416cc3ac0d090fac24c586877e27fd0c79 # Parent 743d753b9c4bdfc103407b8abc7f3afed5b8dc79 (uniquify-delay-rationalize-file-buffer-names): 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. diff -r 743d753b9c4b -r 24044f416cc3 lisp/uniquify.el --- a/lisp/uniquify.el Thu Jun 27 14:49:22 2002 +0000 +++ b/lisp/uniquify.el Thu Jun 27 15:35:48 2002 +0000 @@ -385,21 +385,23 @@ ;; (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