diff options
| author | Richard M. Stallman | 1997-08-04 03:42:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-04 03:42:58 +0000 |
| commit | cf66807ecde2df70eefee5d52271c102e2695033 (patch) | |
| tree | 524964abda50078b2fd361498078427ca8b38f4b | |
| parent | e65db7b8cfd19b76026a690c3cd792d9b949642b (diff) | |
| download | emacs-cf66807ecde2df70eefee5d52271c102e2695033.tar.gz emacs-cf66807ecde2df70eefee5d52271c102e2695033.zip | |
(delay-uniquify-rationalize-file-buffer-names):
Don't delete this function from kill-buffer-hook, if it is disabled.
| -rw-r--r-- | lisp/uniquify.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 3ece1e28537..8bb0b734bad 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el | |||
| @@ -413,9 +413,7 @@ For use on, eg, `kill-buffer-hook', to rationalize *after* buffer deletion." | |||
| 413 | (if (and uniquify-buffer-name-style | 413 | (if (and uniquify-buffer-name-style |
| 414 | uniquify-after-kill-buffer-p) | 414 | uniquify-after-kill-buffer-p) |
| 415 | (add-hook 'post-command-hook | 415 | (add-hook 'post-command-hook |
| 416 | 'delayed-uniquify-rationalize-file-buffer-names) | 416 | 'delayed-uniquify-rationalize-file-buffer-names))) |
| 417 | (remove-hook 'kill-buffer-hook | ||
| 418 | 'delay-uniquify-rationalize-file-buffer-names))) | ||
| 419 | 417 | ||
| 420 | (defun delayed-uniquify-rationalize-file-buffer-names () | 418 | (defun delayed-uniquify-rationalize-file-buffer-names () |
| 421 | "Rerationalize buffer names and remove self from `post-command-hook'. | 419 | "Rerationalize buffer names and remove self from `post-command-hook'. |