diff options
author | Richard M. Stallman <[email protected]> | 1995-07-18 20:55:46 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-07-18 20:55:46 +0000 |
commit | 45fc7cc3c58ab3748b27ad9cc796560c64de4bec (patch) | |
tree | 3c87c8143c70026ff589266d607b90c62c375059 | |
parent | 6aa1372974aa293dc103acaf046c82d1b0e6665e (diff) |
(vc-mode-line, vc-find-file-hook): Moved the test for
version-controlled symbolic link from the former to the latter.
-rw-r--r-- | lisp/vc-hooks.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index f4153a00ee..88ef2dbe1f 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -746,13 +746,6 @@ control system name." (zerop (user-uid)) (not (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 (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)) @@ -800,7 +793,13 @@ control system name." ;; Use this variable, not make-backup-files, ;; because this is for things that depend on the file name. (make-local-variable 'backup-inhibited) - (setq backup-inhibited t)))))))) + (setq backup-inhibited t)))) + ((let* ((link (file-symlink-p buffer-file-name)) + (link-type (and link (vc-backend link)))) + (if link-type + (message + "Warning: symbolic link to %s-controlled source file" + link-type)))))))) (add-hook 'find-file-hooks 'vc-find-file-hook) |