* vc-rcs.el (vc-rcs-find-file-hook):

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3591f99e499e7c8cb66cb2e2998fef2a1788dd1..fc87eecda2a4d459bf8136b07fb4c0c00510d8e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-16  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * 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  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-wait-for-output): Handle the case when

diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index ec30ca4576ccc26dc9e567db8e81e66c887f6c31..8e6eb62ae758d3309c255ae601dc6fccb2f9e4b9 100644 (file)
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -824,8 +824,8 @@ systime, or nil if there is none.  Also, reposition point."
   ;; 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)))
 
 \f
 ;;;

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index 6e9c2dd3fc6056b9ba8b34680c02d84341f0ebfc..9236f604f80249b2246119120a25ec3928b21cd0 100644 (file)
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -395,8 +395,8 @@ revert all subfiles."
   ;; 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)))
 
 \f
 ;;;