(minibuffer-force-complete): Cycle the list, rather

than just dropping elements from it (bug#4504).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e216b9e1c7f972958c63cbb2feddf8c1ccac69f9..d41c8f2d0ac565f2e6d267d59281b4f42502c154 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-09-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * minibuffer.el (minibuffer-force-complete): Cycle the list, rather
+       than just dropping elements from it (bug#4504).
+
        * term.el (term-set-scroll-region): Don't move cursor any more.
        (term-handle-ansi-escape): Call term-goto here instead.
        Suggested by Ivan Kanis <apple@kanis.eu>.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 90490973f80ccbdd059cbb8537b19dd653bb5c31..8f2de068444827ceb22ec1742f2ba08eccf14a83 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -546,7 +546,9 @@ Repeated uses step through the possible completions."
       ;; completion-all-sorted-completions to nil, but we prefer not to,
       ;; so that repeated calls minibuffer-force-complete still cycle
       ;; through the previous possible completions.
-      (setq completion-all-sorted-completions (cdr all)))))
+      (let ((last (last all)))
+        (setcdr last (cons (car all) (cdr last)))
+        (setq completion-all-sorted-completions (cdr all))))))
 
 (defvar minibuffer-confirm-exit-commands
   '(minibuffer-complete minibuffer-complete-word PC-complete PC-complete-word)