diff options
Diffstat (limited to 'lisp/nxml/nxml-mode.el')
| -rw-r--r-- | lisp/nxml/nxml-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el index 934dabee90d..1e0e692be26 100644 --- a/lisp/nxml/nxml-mode.el +++ b/lisp/nxml/nxml-mode.el @@ -29,7 +29,7 @@ (when (featurep 'mucs) (error "nxml-mode is not compatible with Mule-UCS")) -(eval-when-compile (require 'cl)) ; for assert +(eval-when-compile (require 'cl-lib)) (require 'xmltok) (require 'nxml-enc) @@ -930,16 +930,16 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound." (nxml-debug-change "nxml-fontify-matcher" (point) bound) (when (< (point) nxml-prolog-end) - ;; prolog needs to be fontified in one go, and + ;; Prolog needs to be fontified in one go, and ;; nxml-extend-region makes sure we start at BOB. - (assert (bobp)) + (cl-assert (bobp)) (nxml-fontify-prolog) (goto-char nxml-prolog-end)) (let (xmltok-dependent-regions xmltok-errors) (while (and (nxml-tokenize-forward) - (<= (point) bound)) ; intervals are open-ended + (<= (point) bound)) ; Intervals are open-ended. (nxml-apply-fontify-rule))) (setq nxml-last-fontify-end (point))) |