From: Glenn Morris Date: Thu, 29 Aug 2013 01:20:05 +0000 (-0400) Subject: * nxml/nxml-util.el (nxml-debug-clear-inside): Use cl-loop rather than loop. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~62 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8201a87ea9cd06b5623462d4ae0aaffe1725c006;p=emacs.git * nxml/nxml-util.el (nxml-debug-clear-inside): Use cl-loop rather than loop. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2778c32decc..e9fab7f77c2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-08-29 Glenn Morris + * 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) : Add some bash4-isms. diff --git a/lisp/nxml/nxml-util.el b/lisp/nxml/nxml-util.el index 75479160cbb..c410aa12c83 100644 --- a/lisp/nxml/nxml-util.el +++ b/lisp/nxml/nxml-util.el @@ -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))))