Commit 438b0579 authored by Leo Liu's avatar Leo Liu
Browse files

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

parent c128ab07
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):
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment