Mercurial > emacs
changeset 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 | 4751ee5f263e |
| children | 70b62e9d773b |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
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))