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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/07/16 20:52:57

Modified files:
        lisp           : ChangeLog vc-rcs.el vc-sccs.el 

Log message:
        * vc-rcs.el (vc-rcs-find-file-hook):
        * vc-sccs.el (vc-sccs-find-file-hook): Fix cut and paste error.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15816&r2=1.15817
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-rcs.el?cvsroot=emacs&r1=1.87&r2=1.88
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-sccs.el?cvsroot=emacs&r1=1.63&r2=1.64

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15816
retrieving revision 1.15817
diff -u -b -r1.15816 -r1.15817
--- ChangeLog   16 Jul 2009 10:24:07 -0000      1.15816
+++ ChangeLog   16 Jul 2009 20:52:53 -0000      1.15817
@@ -1,3 +1,8 @@
+2009-07-16  Dan Nicolaescu  <address@hidden>
+
+       * vc-rcs.el (vc-rcs-find-file-hook):
+       * vc-sccs.el (vc-sccs-find-file-hook): Fix cut and paste error.
+
 2009-07-16  Michael Albinus  <address@hidden>
 
        * net/tramp.el (tramp-wait-for-output): Handle the case when

Index: vc-rcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -b -r1.87 -r1.88
--- vc-rcs.el   26 Jun 2009 23:54:00 -0000      1.87
+++ vc-rcs.el   16 Jul 2009 20:52:57 -0000      1.88
@@ -824,8 +824,8 @@
   ;; If the file is locked by some other user, make
   ;; the buffer read-only.  Like this, even root
   ;; cannot modify a file that someone else has locked.
-  (stringp (vc-state buffer-file-name 'RCS))
-  (setq buffer-read-only t))
+  (and (stringp (vc-state buffer-file-name 'RCS))
+       (setq buffer-read-only t)))
 
 
 ;;;

Index: vc-sccs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- vc-sccs.el  23 Jun 2009 06:35:43 -0000      1.63
+++ vc-sccs.el  16 Jul 2009 20:52:57 -0000      1.64
@@ -395,8 +395,8 @@
   ;; If the file is locked by some other user, make
   ;; the buffer read-only.  Like this, even root
   ;; cannot modify a file that someone else has locked.
-  (stringp (vc-state buffer-file-name 'SCCS))
-  (setq buffer-read-only t))
+  (and (stringp (vc-state buffer-file-name 'SCCS))
+       (setq buffer-read-only t)))
 
 
 ;;;