mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* pcvs.el (uniquify-buffer-file-name): Remove advice.

Browse Source 
* uniquify.el (uniquify-list-buffers-directory-modes): New var.
(uniquify-buffer-file-name): Use it.
This commit is contained in:
Stefan Monnier 2000-11-21 20:47:49 +00:00
parent f4eda05fe5
commit f5438f0c79
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/pcvs.el
View File

@ -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 @@ The exact behavior is determined also by `cvs-dired-use-hook'."
(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)