Commit 1d888548 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-mode-line): Fix previous change.

parent c96dcc01
......@@ -155,8 +155,8 @@ visiting FILE."
(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))))
(file-symlink-p file)
(let ((link-type (vc-backend-deduce (file-symlink-p file))))
(if link-type
(message "Warning: symbolic link to %s-controlled source file"
link-type))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment