diff options
| author | Richard M. Stallman | 1994-04-29 06:25:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-29 06:25:49 +0000 |
| commit | 1d888548752f9c2b09ba31f411c70d3dea1fba17 (patch) | |
| tree | 0d847b35da12811e57b248eea66f98852fa8539a | |
| parent | c96dcc01cd149407a36cfefb8123b95c552d0b95 (diff) | |
| download | emacs-1d888548752f9c2b09ba31f411c70d3dea1fba17.tar.gz emacs-1d888548752f9c2b09ba31f411c70d3dea1fba17.zip | |
(vc-mode-line): Fix previous change.
| -rw-r--r-- | lisp/vc-hooks.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 48e3ea6424d..0704cdb6aaf 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -155,8 +155,8 @@ visiting FILE." | |||
| 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) | 157 | (and (null vc-type) |
| 158 | (file-symlink-p buffer-file-name) | 158 | (file-symlink-p file) |
| 159 | (let ((link-type (vc-backend-deduce (file-symlink-p buffer-file-name)))) | 159 | (let ((link-type (vc-backend-deduce (file-symlink-p file)))) |
| 160 | (if link-type | 160 | (if link-type |
| 161 | (message "Warning: symbolic link to %s-controlled source file" | 161 | (message "Warning: symbolic link to %s-controlled source file" |
| 162 | link-type)))) | 162 | link-type)))) |