[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111692: * lisp/icomplete.el (icomple
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111692: * lisp/icomplete.el (icomplete-forward-completions) |
Date: |
Fri, 08 Feb 2013 09:53:55 +0200 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111692
fixes bug: http://debbugs.gnu.org/13602
author: Jambunathan K <address@hidden>
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-08 09:53:55 +0200
message:
* lisp/icomplete.el (icomplete-forward-completions)
(icomplete-backward-completions): Handle corner case.
modified:
lisp/ChangeLog
lisp/icomplete.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-02-07 08:50:04 +0000
+++ b/lisp/ChangeLog 2013-02-08 07:53:55 +0000
@@ -1,3 +1,8 @@
+2013-02-08 Jambunathan K <address@hidden>
+
+ * icomplete.el (icomplete-forward-completions)
+ (icomplete-backward-completions): Handle corner case (bug#13602).
+
2013-02-07 Michael Albinus <address@hidden>
* vc/vc-hooks.el (vc-find-file-hook): `buffer-file-truename' can
=== modified file 'lisp/icomplete.el'
--- a/lisp/icomplete.el 2013-01-04 08:20:49 +0000
+++ b/lisp/icomplete.el 2013-02-08 07:53:55 +0000
@@ -167,8 +167,9 @@
(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 @@
(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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111692: * lisp/icomplete.el (icomplete-forward-completions),
Juri Linkov <=