diff options
| author | Stephen Eglen <stephen@gnu.org> | 2002-09-26 15:52:31 +0000 |
|---|---|---|
| committer | Stephen Eglen <stephen@gnu.org> | 2002-09-26 15:52:31 +0000 |
| commit | 4e141ed744f843814cf1bcc0d0fe5a5f674419f6 (patch) | |
| tree | d9e616fed7224d2654e0245e6e9a08996f8ab6e8 /lisp | |
| parent | 3bcd2096bb3dcfb06b74214e598d6c10329e544e (diff) | |
| download | emacs-4e141ed744f843814cf1bcc0d0fe5a5f674419f6.tar.gz emacs-4e141ed744f843814cf1bcc0d0fe5a5f674419f6.tar.bz2 emacs-4e141ed744f843814cf1bcc0d0fe5a5f674419f6.zip | |
(iswitchb-completions): Test that iswitchb-common-match-string is a
string, before printing common completions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/iswitchb.el | 3 |
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)) |