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

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

Browse Source
This commit is contained in:
Sam Steingold 2003-04-20 22:03:00 +00:00
parent d1389042e7
commit 160181b884
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

3
lisp/pcvs.el
View File

@ -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")