# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1050876180 0
# Node ID 7b04c2825a383807db19c5406def01e32b6ebfa3
# Parent  7d6bf0335dd77567dda08eeeff834b34ee047fee
(cvs-examine): Respect `find-file-visit-truename'.

diff -r 7d6bf0335dd7 -r 7b04c2825a38 lisp/ChangeLog
--- 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.
diff -r 7d6bf0335dd7 -r 7b04c2825a38 lisp/pcvs.el
--- 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")