diff options
| author | Sam Steingold <sds@gnu.org> | 2003-04-20 22:03:00 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2003-04-20 22:03:00 +0000 |
| commit | 160181b88406a54a60e84d34a09437c4107b1244 (patch) | |
| tree | 716c948f235626799b87312c22d25294e21d3f4e /lisp/pcvs.el | |
| parent | d1389042e78ebd76c3bf24712bc8429c4e28b938 (diff) | |
| download | emacs-160181b88406a54a60e84d34a09437c4107b1244.tar.gz | |
(cvs-examine): Respect `find-file-visit-truename'.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 840e39c037e..0565e7fce13 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -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 @@ Optional argument NOSHOW if non-nil means not to display the buffer." (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") |