(cvs-fileinfo-from-entries): Deal with Solaris'

[gnu-emacs] / lisp / iswitchb.el

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 0b283d0ae779ca66dd8881dafe383efc5c20e80e..d24f737851b02750c0497b07e5ffcc854ce38c60 100644 (file)
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -1260,7 +1260,8 @@ Modified from `icomplete-completions'."
 
              ;; put in common completion item -- what you get by
              ;; pressing tab
-             (if (> (length iswitchb-common-match-string) (length name))
+             (if (and (stringp iswitchb-common-match-string)
+                      (> (length iswitchb-common-match-string) (length name)))
                  (concat open-bracket-determined
                          (substring iswitchb-common-match-string
                                     (length name))