# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1222714628 0
# Node ID 29b6eeebe3bfce251003a603c3329e83c31fbf35
# Parent  e2ffa2e0c265838a60a9af3a097565dfed9fcee6
* vc-hooks.el (vc-file-clearprops): Check, that FILE is a string.

diff -r e2ffa2e0c265 -r 29b6eeebe3bf lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Mon Sep 29 11:31:10 2008 +0000
+++ b/lisp/vc-hooks.el	Mon Sep 29 18:57:08 2008 +0000
@@ -238,7 +238,10 @@
 
 (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: