diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2008-09-29 18:58:08 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2008-09-29 18:58:08 +0000 |
| commit | 613658d4b2f4b5a48dc5cb3340f17b3520cbe5e8 (patch) | |
| tree | c4191643a59c1cc9116d60e4fd4918eac203b050 /lisp/vc-hooks.el | |
| parent | 69ad666d70dbf92ab66b4aaa291e8d806514b9e3 (diff) | |
| download | emacs-613658d4b2f4b5a48dc5cb3340f17b3520cbe5e8.tar.gz | |
* vc-hooks.el (vc-file-clearprops): Check, that FILE is a string.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 8d17eeac699..78814726365 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -238,7 +238,10 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]': (defun vc-file-clearprops (file) "Clear all VC properties of FILE." - (setplist (intern file vc-file-prop-obarray) nil)) + ;; Sometimes, Tramp runs into trouble, FILE is nil then. We shall + ;; avoid an error in this case. + (when (stringp file) + (setplist (intern file vc-file-prop-obarray) nil))) ;; We keep properties on each symbol naming a backend as follows: |