emacs-diffs
[Top][All Lists]
Advanced

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]