mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 06:00:41 -08:00
Code Issues Projects Releases Wiki Activity

(uniquify-buffer-file-name): Wrap advice in

Browse source 
eval-after-load.
This commit is contained in:
Dave Love 2000-11-09 12:07:39 +00:00
parent 7bb054a550
commit ddc7ec4fd6
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/pcvs.el
View file

@ -14,7 +14,7 @@
;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
;; Keywords: CVS, version control, release management ;; Keywords: CVS, version control, release management
;; Version: $Name: $ ;; 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. ;; 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 ;; hook into uniquify
;; ;;
(defadvice uniquify-buffer-file-name (after pcl-cvs-uniquify activate) ;; Don't suck in advice.el unless necessary.
(or ad-return-value (eval-after-load "uniquify"
(save-excursion '(defadvice uniquify-buffer-file-name (after pcl-cvs-uniquify activate)
(set-buffer (ad-get-arg 0)) (or ad-return-value
(when (eq major-mode 'cvs-mode) (save-excursion
(setq ad-return-value list-buffers-directory))))) (set-buffer (ad-get-arg 0))
(when (eq major-mode 'cvs-mode)
(setq ad-return-value list-buffers-directory))))))
(provide 'pcvs) (provide 'pcvs)