diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-14 11:55:52 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-14 12:13:31 +0200 |
| commit | 2a05479c221d4a13b15ed731e4eb1c0de99e97ed (patch) | |
| tree | 2b28f1c72560050896e5461e068316fc59bbd4bd /lisp/icomplete.el | |
| parent | ddecd864cfeced3e8a01d1b58ef8dcffd177c0f8 (diff) | |
| download | emacs-2a05479c221d4a13b15ed731e4eb1c0de99e97ed.tar.gz | |
; Fix typos: prefer American spelling
Diffstat (limited to 'lisp/icomplete.el')
| -rw-r--r-- | lisp/icomplete.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 381ad5466f5..b1fcf9ae712 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -840,13 +840,13 @@ by `group-function''s second \"transformation\" protocol." while (listp r) count 1)) repeat total-space - for neighbour = nil + for neighbor = nil if (and preds (> space-above 0)) do - (push (setq neighbour (pop preds)) scroll-above) + (push (setq neighbor (pop preds)) scroll-above) (cl-decf space-above) else if (consp succs) collect - (setq neighbour (pop succs)) into scroll-below-aux - while neighbour + (setq neighbor (pop succs)) into scroll-below-aux + while neighbor finally (setq scroll-below scroll-below-aux)) ;; Halfway there... (let* ((selected (propertize (car comps) 'icomplete-selected t)) |