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.

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index f8b935eb90b..fec9467bbb7 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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)
diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 8b0dc9278c5..0e2fca349a5 100644
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -1351,9 +1351,9 @@ of the inserted start-tag or nil if none was inserted."
                             start-tag-indent)))))
     inserted-start-tag-pos))
 
-(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))
   (save-match-data
     (while (re-search-forward "-[\\]*-" nil t)