[Emacs-diffs] /srv/bzr/emacs/trunk r112095: * ido.el (ido-chop): Fix bug#10994.

[Leo Liu]

------------------------------------------------------------
revno: 112095
fixes bug: http://debbugs.gnu.org/10994
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Wed 2013-03-20 11:05:34 +0800
message:
  * ido.el (ido-chop): Fix bug#10994.
modified:
  lisp/ChangeLog
  lisp/ido.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-19 15:12:40 +0000
+++ b/lisp/ChangeLog    2013-03-20 03:05:34 +0000
@@ -1,3 +1,7 @@
+2013-03-20  Leo Liu  <address@hidden>
+
+       * ido.el (ido-chop): Fix bug#10994.
+
 2013-03-19  Dmitry Gutov  <address@hidden>
 
        * whitespace.el (whitespace-font-lock, whitespace-font-lock-mode):

=== modified file 'lisp/ido.el'
--- a/lisp/ido.el       2013-03-12 02:08:21 +0000
+++ b/lisp/ido.el       2013-03-20 03:05:34 +0000
@@ -3150,13 +3150,15 @@
     (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