mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(vc-mode-line): Do nothing if FILE is nil.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-19 21:58:38 +00:00
parent e89a7d771b
commit 19021bfb36
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lisp/vc-hooks.el
View File

@ -134,28 +134,29 @@ of the buffer."
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)))
(setq vc-mode
(and vc-type
(concat " " (or label (symbol-name vc-type))
(if (and vc-rcs-status (eq vc-type 'RCS))
(vc-rcs-status file)))))
;; Even root shouldn't modify a registered file without locking it first.
(and vc-type
(not buffer-read-only)
(zerop (user-uid))
(require 'vc)
(not (string-equal (user-login-name) (vc-locking-user file)))
(setq buffer-read-only t))
(and (null vc-type)
(file-symlink-p file)
(let ((link-type (vc-backend-deduce (file-symlink-p file))))
(if link-type
(message "Warning: symbolic link to %s-controlled source file"
link-type))))
(force-mode-line-update)
;;(set-buffer-modified-p (buffer-modified-p)) ;;use this if Emacs 18
vc-type))
(if file
(let ((vc-type (vc-backend-deduce file)))
(setq vc-mode
(and vc-type
(concat " " (or label (symbol-name vc-type))
(if (and vc-rcs-status (eq vc-type 'RCS))
(vc-rcs-status file)))))
;; Even root shouldn't modify a registered file without locking it first.
(and vc-type
(not buffer-read-only)
(zerop (user-uid))
(require 'vc)
(not (string-equal (user-login-name) (vc-locking-user file)))
(setq buffer-read-only t))
(and (null vc-type)
(file-symlink-p file)
(let ((link-type (vc-backend-deduce (file-symlink-p file))))
(if link-type
(message "Warning: symbolic link to %s-controlled source file"
link-type))))
(force-mode-line-update)
;;(set-buffer-modified-p (buffer-modified-p)) ;;use this if Emacs 18
vc-type)))
(defun vc-rcs-status (file)
;; Return string for placement in modeline by `vc-mode-line'.