* ido.el (ido-chop): Fix bug#10994.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c111a66335f00cd18adf7ffce268183e0a749b3..59cf8bac5fb00e93581abedcb017224ecb0813e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-20  Leo Liu  <sdl.web@gmail.com>
+
+       * ido.el (ido-chop): Fix bug#10994.
+
 2013-03-19  Dmitry Gutov  <dgutov@yandex.ru>
 
        * whitespace.el (whitespace-font-lock, whitespace-font-lock-mode):

diff --git a/lisp/ido.el b/lisp/ido.el
index 589f44175ebe6f82c25efee5025d4e73d6acfcdd..7ace1811daaabe7b6a60b146f122e9a6a89865cc 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3150,13 +3150,15 @@ for first matching file."
     (exit-minibuffer)))
 
 (defun ido-chop (items elem)
-  "Remove all elements before ELEM and put them at the end of ITEMS."
+  "Remove all elements before ELEM and put them at the end of ITEMS.
+Use `eq' for comparison."
   (let ((ret nil)
        (next nil)
        (sofar nil))
     (while (not ret)
       (setq next (car items))
-      (if (equal next elem)
+      ;; Use `eq' to avoid bug http://debbugs.gnu.org/10994
+      (if (eq next elem)
          (setq ret (append items (nreverse sofar)))
        ;; else
        (progn