From: Paul Eggert Date: Tue, 17 Sep 2019 00:22:48 +0000 (-0700) Subject: vc-cvs-revert: fix off-by-one file mode X-Git-Tag: emacs-27.0.90~1551^2~24 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b124cb8f30d575fcda97507c40f16a499640bcd5;p=emacs.git vc-cvs-revert: fix off-by-one file mode * lisp/vc/vc-cvs.el (vc-cvs-revert): 3950 (#o7556) is wrong as it keeps other-write but disables other-execute permissions. 3949 (#o7555) was intended here. Use octal notation for clarity. --- diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index d84700fc176..a9e79d7956c 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -440,7 +440,7 @@ REV is the revision to check out." (if vc-cvs-use-edit (vc-cvs-command nil 0 file "unedit") ;; Make the file read-only by switching off all w-bits - (set-file-modes file (logand (file-modes file) 3950))))) + (set-file-modes file (logand (file-modes file) #o7555))))) (defun vc-cvs-merge-file (file) "Accept a file merge request, prompting for revisions."