Mercurial > emacs
changeset 33701:19782a8038a3
* pcvs.el (uniquify-buffer-file-name): Remove advice.
* uniquify.el (uniquify-list-buffers-directory-modes): New var.
(uniquify-buffer-file-name): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 21 Nov 2000 20:47:49 +0000 |
| parents | 32c5f03d36c9 |
| children | 683f3781ab81 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 1 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Tue Nov 21 20:42:39 2000 +0000 +++ b/lisp/pcvs.el Tue Nov 21 20:47:49 2000 +0000 @@ -14,7 +14,7 @@ ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management ;; Version: $Name: $ -;; Revision: $Id: pcvs.el,v 1.16 2000/11/09 12:07:39 fx Exp $ +;; Revision: $Id: pcvs.el,v 1.17 2000/11/09 23:55:05 monnier Exp $ ;; This file is part of GNU Emacs. @@ -2113,19 +2113,6 @@ (add-hook 'after-save-hook 'cvs-mark-buffer-changed) -;; -;; hook into uniquify -;; - -;; Don't suck in advice.el unless necessary. -(eval-after-load "uniquify" - '(defadvice uniquify-buffer-file-name (after pcl-cvs-uniquify activate) - (or ad-return-value - (save-excursion - (set-buffer (ad-get-arg 0)) - (when (eq major-mode 'cvs-mode) - (setq ad-return-value list-buffers-directory)))))) - (provide 'pcvs)