(iswitchb-completions): Test that iswitchb-common-match-string is a

string, before printing common completions.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2aa6353cf02..82937573af9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-26  Stephen Eglen  <stephen@gnu.org>
+
+        * iswitchb.el (iswitchb-completions): Test that
+        iswitchb-common-match-string is a string, before printing common
+        completions.
+
 2002-09-24  Simon Josefsson  <jas@extundo.com>
 
         * mail/mail-extr.el (mail-extr-ignore-single-names): Change default.
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 0b283d0ae77..d24f737851b 100644
--- 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))