Commit 6130b96a authored by Jambunathan K's avatar Jambunathan K Committed by Juri Linkov

* lisp/icomplete.el (icomplete-forward-completions)

(icomplete-backward-completions): Handle corner case.

Fixes: debbugs:13602
parent 25721f5b
2013-02-08 Jambunathan K <kjambunathan@gmail.com>
* icomplete.el (icomplete-forward-completions)
(icomplete-backward-completions): Handle corner case (bug#13602).
2013-02-07 Michael Albinus <michael.albinus@gmx.de>
* vc/vc-hooks.el (vc-find-file-hook): `buffer-file-truename' can
......
......@@ -167,8 +167,9 @@ Second entry becomes the first and can be selected with
(interactive)
(let* ((comps (completion-all-sorted-completions))
(last (last comps)))
(setcdr last (cons (car comps) (cdr last)))
(completion--cache-all-sorted-completions (cdr comps))))
(when comps
(setcdr last (cons (car comps) (cdr last)))
(completion--cache-all-sorted-completions (cdr comps)))))
(defun icomplete-backward-completions ()
"Step backward completions by one entry.
......@@ -178,7 +179,7 @@ Last entry becomes the first and can be selected with
(let* ((comps (completion-all-sorted-completions))
(last-but-one (last comps 2))
(last (cdr last-but-one)))
(when last
(when (consp last) ; At least two elements in comps
(setcdr last-but-one (cdr last))
(push (car last) comps)
(completion--cache-all-sorted-completions comps))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment