(cvs-examine): Respect `find-file-visit-truename'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1b6694d069d834ad443d2581633fe1853a3ff9a..38ccf0197d39449e5407533ff9bec515775a7111 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 840e39c037e18f04dcfef005795a693b897e47d1..0565e7fce1371b165228f3bcf1182cb312745a1b 100644 (file)
--- 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")