mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(vc-mode-line): Warn if file is not vc-registered

Browse source 
but is a symlink to a vc-maintained file.
This commit is contained in:
Richard M. Stallman 1994-04-24 10:00:51 +00:00
parent 147a661590
commit 8d51c5cc39
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc-hooks.el
View file

@ -154,6 +154,12 @@ visiting FILE."
(require 'vc)
(not (string-equal (user-login-name) (vc-locking-user file)))
(setq buffer-read-only t))
(and (null vc-type)
(file-symlink-p buffer-file-name)
(let ((link-type (vc-backend-deduce (file-symlink-p buffer-file-name))))
(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))