HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Checked emerge-xtra.texi
[bpt/emacs.git]
/
lisp
/
icomplete.el
diff --git
a/lisp/icomplete.el
b/lisp/icomplete.el
index
53876f4
..
a971965
100644
(file)
--- a/
lisp/icomplete.el
+++ b/
lisp/icomplete.el
@@
-1,6
+1,6
@@
;;; icomplete.el --- minibuffer completion incremental feedback
;;; icomplete.el --- minibuffer completion incremental feedback
-;; Copyright (C) 1992-1994, 1997, 1999, 2001-201
1
+;; Copyright (C) 1992-1994, 1997, 1999, 2001-201
2
;; Free Software Foundation, Inc.
;; Author: Ken Manheimer <klm@i.am>
;; Free Software Foundation, Inc.
;; Author: Ken Manheimer <klm@i.am>
@@
-347,7
+347,9
@@
are exhibited within the square braces.)"
(setq prospects nil)
(while (and comps (not limit))
(setq comp
(setq prospects nil)
(while (and comps (not limit))
(setq comp
- (if prefix-len (substring (car comps) prefix-len) (car comps))
+ (if (and prefix-len (<= prefix-len (length (car comps))))
+ (substring (car comps) prefix-len)
+ (car comps))
comps (cdr comps))
(cond ((string-equal comp "") (setq most-is-exact t))
((member comp prospects))
comps (cdr comps))
(cond ((string-equal comp "") (setq most-is-exact t))
((member comp prospects))