352 |
;; generate-new-buffer, which is called only by Lisp functions |
;; generate-new-buffer, which is called only by Lisp functions |
353 |
;; create-file-buffer and rename-uniquely. Rename-uniquely generally |
;; create-file-buffer and rename-uniquely. Rename-uniquely generally |
354 |
;; isn't used for buffers visiting files, so it's sufficient to hook |
;; isn't used for buffers visiting files, so it's sufficient to hook |
355 |
;; rename-buffer and create-file-buffer. (Setting find-file-hooks isn't |
;; rename-buffer and create-file-buffer. (Setting find-file-hook isn't |
356 |
;; sufficient.) |
;; sufficient.) |
357 |
|
|
358 |
(defadvice rename-buffer (after rename-buffer-uniquify activate) |
(defadvice rename-buffer (after rename-buffer-uniquify activate) |