Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 7080:4751ee5f263e | 7081:cdf928b318d7 |
|---|---|
| 152 (not buffer-read-only) | 152 (not buffer-read-only) |
| 153 (zerop (user-uid)) | 153 (zerop (user-uid)) |
| 154 (require 'vc) | 154 (require 'vc) |
| 155 (not (string-equal (user-login-name) (vc-locking-user file))) | 155 (not (string-equal (user-login-name) (vc-locking-user file))) |
| 156 (setq buffer-read-only t)) | 156 (setq buffer-read-only t)) |
| 157 (and (null vc-type) | |
| 158 (file-symlink-p buffer-file-name) | |
| 159 (let ((link-type (vc-backend-deduce (file-symlink-p buffer-file-name)))) | |
| 160 (if link-type | |
| 161 (message "Warning: symbolic link to %s-controlled source file" | |
| 162 link-type)))) | |
| 157 (force-mode-line-update) | 163 (force-mode-line-update) |
| 158 ;;(set-buffer-modified-p (buffer-modified-p)) ;;use this if Emacs 18 | 164 ;;(set-buffer-modified-p (buffer-modified-p)) ;;use this if Emacs 18 |
| 159 vc-type)) | 165 vc-type)) |
| 160 | 166 |
| 161 (defun vc-rcs-status (file) | 167 (defun vc-rcs-status (file) |