procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* vc-sccs.el (vc-sccs-find-file-hook): Fix cut and paste error.
This commit is contained in:
Dan Nicolaescu 2009-07-16 20:52:53 +00:00
parent 137987ab43
commit d56fdcd249
3 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

4
lisp/vc-rcs.el
View file

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

4
lisp/vc-sccs.el
View file

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