# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767181651 0
# Node ID cdf928b318d7a38abaf0e47ae3fec8c68064c980
# Parent  4751ee5f263e45deed7bd6250d837f753dd974a8
(vc-mode-line): Warn if file is not vc-registered
but is a symlink to a vc-maintained file.

diff -r 4751ee5f263e -r cdf928b318d7 lisp/vc-hooks.el
--- 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))