aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/xml.el
diff options
context:
space:
mode:
authorMark Oteiza2016-09-28 13:08:12 -0400
committerMark Oteiza2016-09-28 13:08:12 -0400
commitcbb2e845187bfbcc62e2accc9df7891a2326608a (patch)
tree1fc3cc9a58e0646119d81cc70663dda7454f867a /lisp/xml.el
parent329e0274ec6a4ae82f86905b8cf844971b943085 (diff)
downloademacs-cbb2e845187bfbcc62e2accc9df7891a2326608a.tar.gz
emacs-cbb2e845187bfbcc62e2accc9df7891a2326608a.zip
Turn on more lexical-binding
* lisp/dom.el: * lisp/faces.el: * lisp/htmlfontify.el: Turn on lexical-binding. (htmlfontify-string): Use pushnew instead of add-to-list. * lisp/info-xref.el: * lisp/isearch.el: * lisp/man.el: * lisp/ps-def.el: * lisp/ps-print.el: * lisp/replace.el: Turn on lexical-binding. Require cl-lib at compile time. (multi-occur): Use cl-pushnew instead of add-to-list. (replace-match-string-symbols): Remove unused lexical variable. (replace-search, replace-highlight): Fix argument shadowing. * lisp/sort.el: * lisp/xml.el: Turn on lexical-binding. (xml--parse-buffer): Use push instead of add-to-list. * lisp/xt-mouse.el: Turn on lexical-binding.
Diffstat (limited to 'lisp/xml.el')
-rw-r--r--lisp/xml.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/xml.el b/lisp/xml.el
index 414300cb402..2563c13094f 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -1,4 +1,4 @@
1;;; xml.el --- XML parser 1;;; xml.el --- XML parser -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 2000-2016 Free Software Foundation, Inc. 3;; Copyright (C) 2000-2016 Free Software Foundation, Inc.
4 4
@@ -401,9 +401,9 @@ Both features can be combined by providing a cons cell
401 parse-dtd) 401 parse-dtd)
402 (setq dtd (car result)) 402 (setq dtd (car result))
403 (if (cdr result) ; possible leading comment 403 (if (cdr result) ; possible leading comment
404 (add-to-list 'xml (cdr result)))) 404 (push (cdr result) xml)))
405 (t 405 (t
406 (add-to-list 'xml result)))) 406 (push result xml))))
407 (goto-char (point-max)))) 407 (goto-char (point-max))))
408 (if parse-dtd 408 (if parse-dtd
409 (cons dtd (nreverse xml)) 409 (cons dtd (nreverse xml))