mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(vc-toggle-read-only): Doc fix.

Browse Source 
(vc-mode-line): Add interactive spec.
This commit is contained in:
Roland McGrath 1992-09-27 00:45:57 +00:00
parent 510aa4ddc4
commit a61182970f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/vc-hooks.el
View File

@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Version: 4.0
;; $Id: vc-hooks.el,v 1.44 1992/07/31 06:43:05 esr Exp $
;; $Id: vc-hooks.el,v 1.2 1992/08/04 07:21:29 jimb Exp roland $
;; This file is part of GNU Emacs.
@ -96,7 +96,7 @@ the make-backup-files variable. Otherwise, prevents backups being made.")
(vc-file-setprop file 'vc-backend (cdr (vc-registered file))))))
(defun vc-toggle-read-only ()
"If the file in the current buffer id under version control, perform the
"If the file in the current buffer is under version control, perform the
logical next version-control action; otherwise, just toggle the buffer's
read-only flag."
(interactive)
@ -108,6 +108,7 @@ read-only flag."
"Set `vc-mode-string' to display type of version control for FILE.
The value is set in the current buffer, which should be the buffer
visiting FILE."
(interactive (list buffer-file-name nil))
(let ((vc-type (vc-backend-deduce file)))
(if vc-type
(progn