diff options
| author | Paul Eggert | 2019-09-16 17:22:48 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-09-16 17:23:11 -0700 |
| commit | b124cb8f30d575fcda97507c40f16a499640bcd5 (patch) | |
| tree | 1eec4aa52f5a36575e3c47a87e64cf334241ecad | |
| parent | 8635147ccba1fc8e1010010da8c3f8e467562f76 (diff) | |
| download | emacs-b124cb8f30d575fcda97507c40f16a499640bcd5.tar.gz emacs-b124cb8f30d575fcda97507c40f16a499640bcd5.zip | |
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.
| -rw-r--r-- | lisp/vc/vc-cvs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 440 | (if vc-cvs-use-edit | 440 | (if vc-cvs-use-edit |
| 441 | (vc-cvs-command nil 0 file "unedit") | 441 | (vc-cvs-command nil 0 file "unedit") |
| 442 | ;; Make the file read-only by switching off all w-bits | 442 | ;; Make the file read-only by switching off all w-bits |
| 443 | (set-file-modes file (logand (file-modes file) 3950))))) | 443 | (set-file-modes file (logand (file-modes file) #o7555))))) |
| 444 | 444 | ||
| 445 | (defun vc-cvs-merge-file (file) | 445 | (defun vc-cvs-merge-file (file) |
| 446 | "Accept a file merge request, prompting for revisions." | 446 | "Accept a file merge request, prompting for revisions." |