Mercurial > emacs
changeset 50651:7b04c2825a38
(cvs-examine): Respect `find-file-visit-truename'.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Sun, 20 Apr 2003 22:03:00 +0000 |
| parents | 7d6bf0335dd7 |
| children | b108545d1f24 |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Apr 20 13:04:58 2003 +0000 +++ b/lisp/ChangeLog Sun Apr 20 22:03:00 2003 +0000 @@ -1,3 +1,7 @@ +2003-04-20 Sam Steingold <sds@gnu.org> + + * pcvs.el (cvs-examine): Respect `find-file-visit-truename'. + 2003-04-20 Glenn Morris <gmorris@ast.cam.ac.uk> * which-func.el (which-func-modes): Add f90-mode.
--- a/lisp/pcvs.el Sun Apr 20 13:04:58 2003 +0000 +++ b/lisp/pcvs.el Sun Apr 20 22:03:00 2003 +0000 @@ -14,7 +14,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.49 2003/03/16 01:09:05 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.50 2003/03/19 14:34:24 monnier Exp $ ;; This file is part of GNU Emacs. @@ -964,6 +964,7 @@ (cvs-flags-query 'cvs-update-flags "cvs -n update flags"))) (when (eq flags t) (setf flags (cvs-flags-query 'cvs-update-flags nil 'noquery))) + (when find-file-visit-truename (setq directory (file-truename directory))) (cvs-cmd-do "update" directory flags nil (> (prefix-numeric-value current-prefix-arg) 8) :cvsargs '("-n")