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

string, before printing common completions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2aa6353cf02f1ff20b1b827b9d83aeae7577e667..82937573af9a1e9cacf24231110bac78441473d2 100644 (file)
--- 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 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))