Mercurial > emacs
changeset 12590:a771c59393e7
(vc-mode-line, vc-find-file-hook): Moved the test for
version-controlled symbolic link from the former to the latter.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Jul 1995 20:55:46 +0000 |
| parents | 9aaf593a2be2 |
| children | 7caa97ba6a7b |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Tue Jul 18 20:52:39 1995 +0000 +++ b/lisp/vc-hooks.el Tue Jul 18 20:55:46 1995 +0000 @@ -746,13 +746,6 @@ (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 @@ ;; 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)