changeset 98394:29b6eeebe3bf

* vc-hooks.el (vc-file-clearprops): Check, that FILE is a string.
author Michael Albinus <michael.albinus@gmx.de>
date Mon, 29 Sep 2008 18:57:08 +0000
parents e2ffa2e0c265
children d804e034c14f
files lisp/vc-hooks.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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: