mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

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

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

Fixes: debbugs:13602
This commit is contained in:
Jambunathan K 2013-02-08 09:53:55 +02:00 committed by Juri Linkov
parent 25721f5bb5
commit 6130b96ae7
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

7
lisp/icomplete.el
View File

@ -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))))