# HG changeset patch
# User Stephen Eglen <stephen@gnu.org>
# Date 1033055459 0
# Node ID b604605851eadb305afa926a0810c4b6e4e10b32
# Parent  2e93b2eb38c8fea62236cf99c13ae28fdb74f20d
(iswitchb-completions): Test that iswitchb-common-match-string is a
string, before printing common completions.

diff -r 2e93b2eb38c8 -r b604605851ea lisp/iswitchb.el
--- a/lisp/iswitchb.el	Thu Sep 26 10:17:02 2002 +0000
+++ b/lisp/iswitchb.el	Thu Sep 26 15:50:59 2002 +0000
@@ -1260,7 +1260,8 @@
 
 	      ;; 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))