diff options
| author | Dave Love <[email protected]> | 2000-11-09 12:07:39 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-11-09 12:07:39 +0000 |
| commit | ddc7ec4fd6ee4eed6f6b02bbee3f1c2005e2c20b (patch) | |
| tree | b1d9d6e6f01e121da8db92e76f423422a47264ab /lisp | |
| parent | 7bb054a550ed97384cb71d4c4c9abedae360d159 (diff) | |
(uniquify-buffer-file-name): Wrap advice in
eval-after-load.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/pcvs.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 3db0eaccfe..35bf89598d 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -14,7 +14,7 @@ ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/[email protected] ;; Keywords: CVS, version control, release management ;; Version: $Name: $ -;; Revision: $Id: pcvs.el,v 1.14 2000/11/03 22:34:26 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.15 2000/11/06 07:17:33 monnier Exp $ ;; This file is part of GNU Emacs. @@ -2112,12 +2112,14 @@ The exact behavior is determined also by `cvs-dired-use-hook'." ;; hook into 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))))) +;; 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) |