[Emacs-diffs] /srv/bzr/emacs/trunk r102549: cl-macs `loop' fix for bug#7492.

[Glenn Morris]

------------------------------------------------------------
revno: 102549
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-12-02 09:36:45 -0800
message:
  cl-macs `loop' fix for bug#7492.
  
  * lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause):
  Avoid infinite loop over windows.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-02 17:34:35 +0000
+++ b/lisp/ChangeLog    2010-12-02 17:36:45 +0000
@@ -1,5 +1,8 @@
 2010-12-02  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/cl-macs.el (cl-parse-loop-clause):
+       Avoid infinite loop over windows.  (Bug#7492)
+
        * progmodes/flymake.el (flymake-check-file-limit):
        Allow nil to mean "no limit".
        (flymake-check-patch-master-file-buffer): Update for above change.

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2010-11-08 19:09:21 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2010-12-02 17:36:45 +0000
@@ -965,16 +965,25 @@
 
               ((memq word '(window windows))
                (let ((scr (and (memq (car loop-args) '(in of)) (cl-pop2 
loop-args)))
-                     (temp (make-symbol "--cl-var--")))
+                     (temp (make-symbol "--cl-var--"))
+                     (minip (make-symbol "--cl-minip--")))
                  (push (list var (if scr
                                      (list 'frame-selected-window scr)
                                    '(selected-window)))
                        loop-for-bindings)
+                 ;; If we started in the minibuffer, we need to
+                 ;; ensure that next-window will bring us back there
+                 ;; at some point.  (Bug#7492).
+                 ;; (Consider using walk-windows instead of loop if
+                 ;; you care about such things.)
+                 (push (list minip `(minibufferp (window-buffer ,var)))
+                       loop-for-bindings)
                  (push (list temp nil) loop-for-bindings)
                  (push (list 'prog1 (list 'not (list 'eq var temp))
                              (list 'or temp (list 'setq temp var)))
                        loop-body)
-                 (push (list var (list 'next-window var)) loop-for-steps)))
+                 (push (list var (list 'next-window var minip))
+                       loop-for-steps)))
 
               (t
                (let ((handler (and (symbolp word)