[Emacs-diffs] emacs/lisp ChangeLog vc-hooks.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/11/23 05:10:55

Modified files:
        lisp           : ChangeLog vc-hooks.el 

Log message:
        (vc-follow-link): Complete last change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14840&r2=1.14841
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.272&r2=1.273

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14840
retrieving revision 1.14841
diff -u -b -r1.14840 -r1.14841
--- ChangeLog   23 Nov 2008 05:04:27 -0000      1.14840
+++ ChangeLog   23 Nov 2008 05:10:53 -0000      1.14841
@@ -1,3 +1,7 @@
+2008-11-23  Stefan Monnier  <address@hidden>
+
+       * vc-hooks.el (vc-follow-link): Complete last change.
+
 2008-11-23  Juanma Barranquero  <address@hidden>
 
        * textmodes/remember.el (remember-region): Doc fix.

Index: vc-hooks.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.272
retrieving revision 1.273
diff -u -b -r1.272 -r1.273
--- vc-hooks.el 22 Nov 2008 05:23:44 -0000      1.272
+++ vc-hooks.el 23 Nov 2008 05:10:55 -0000      1.273
@@ -853,7 +853,7 @@
   (let* ((true-buffer (find-buffer-visiting buffer-file-truename))
         (this-buffer (current-buffer)))
     (if (eq true-buffer this-buffer)
-       (progn
+       (let ((truename buffer-file-truename))
          (kill-buffer this-buffer)
          ;; In principle, we could do something like set-visited-file-name.
          ;; However, it can't be exactly the same as set-visited-file-name.