diff options
| author | Mark Oteiza | 2016-09-28 13:08:12 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2016-09-28 13:08:12 -0400 |
| commit | cbb2e845187bfbcc62e2accc9df7891a2326608a (patch) | |
| tree | 1fc3cc9a58e0646119d81cc70663dda7454f867a /lisp/xml.el | |
| parent | 329e0274ec6a4ae82f86905b8cf844971b943085 (diff) | |
| download | emacs-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.el | 6 |
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)) |