[Emacs-diffs] trunk r114061: * nxml/nxml-util.el (nxml-debug-clear-inside): Use cl-loop rather than loop.

[Glenn Morris]

------------------------------------------------------------
revno: 114061
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-08-28 21:20:05 -0400
message:
  * nxml/nxml-util.el (nxml-debug-clear-inside): Use cl-loop rather than loop.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/nxml/nxml-util.el         
nxmlutil.el-20091113204419-o5vbwnq5f7feedwu-7819

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-29 01:17:10 +0000
+++ b/lisp/ChangeLog    2013-08-29 01:20:05 +0000
@@ -1,5 +1,8 @@
 2013-08-29  Glenn Morris  <address@hidden>
 
+       * nxml/nxml-util.el (nxml-debug-clear-inside):
+       Use cl-loop rather than loop.
+
        * net/eww.el (eww-mode-map): Lower-case menu bar entries look bad.
 
        * progmodes/sh-script.el (sh-builtins) <bash>: Add some bash4-isms.

=== modified file 'lisp/nxml/nxml-util.el'
--- a/lisp/nxml/nxml-util.el    2013-08-09 21:22:44 +0000
+++ b/lisp/nxml/nxml-util.el    2013-08-29 01:20:05 +0000
@@ -45,7 +45,7 @@
 
 (defmacro nxml-debug-clear-inside (start end)
   (when nxml-debug
-    `(loop for overlay in (overlays-in ,start ,end)
+    `(cl-loop for overlay in (overlays-in ,start ,end)
            if (overlay-get overlay 'nxml-inside-debug)
            do (delete-overlay overlay)
            finally (nxml-debug-change "nxml-clear-inside" ,start ,end))))