Commit 8f88db14 authored by Stefan Monnier's avatar Stefan Monnier

Fix recent bootstrap problems

* src/syntax.c (parse_sexp_propertize): Fix last fix.
* lisp/nxml/nxml-mode.el (nxml-comment-quote-nested): Fix paren typo.
* lisp/emacs-lisp/lisp-mode.el: Require cl-lib for cl-progv.
parent 8c909d75
......@@ -28,6 +28,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(defvar font-lock-comment-face)
(defvar font-lock-doc-face)
(defvar font-lock-keywords-case-fold-search)
......@@ -1351,9 +1351,9 @@ of the inserted start-tag or nil if none was inserted."
(defun nxml-comment-quote-nested (cs ce unp)
(defun nxml-comment-quote-nested (_cs _ce unp)
"Quote nested comments in buffer.
See `comment-quote-nested-function' for more information.")
See `comment-quote-nested-function' for more information."
(goto-char (point-min))
(while (re-search-forward "-[\\]*-" nil t)
......@@ -499,7 +499,8 @@ parse_sexp_propertize (ptrdiff_t charpos)
gl_state.e_property = syntax_propertize__done;
gl_state.e_property_truncated = true;
else if (gl_state.e_property_truncated)
else if (gl_state.e_property_truncated
&& gl_state.e_property < syntax_propertize__done)
{ /* When moving backward, e_property might be set without resetting
e_property_truncated, so the e_property_truncated flag may
occasionally be left raised spuriously. This should be rare. */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment