Mercurial > emacs
diff lisp/vc-hooks.el @ 7081:cdf928b318d7
(vc-mode-line): Warn if file is not vc-registered
but is a symlink to a vc-maintained file.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 24 Apr 1994 10:00:51 +0000 |
parents | 3715d5bfad50 |
children | 8a8acd6da9be |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Sun Apr 24 08:34:14 1994 +0000 +++ b/lisp/vc-hooks.el Sun Apr 24 10:00:51 1994 +0000 @@ -154,6 +154,12 @@ (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))