[Emacs-diffs] master 3f2bfe9 4/4: Keep nxml-prolog-end up to date (Bug#18871)

[Noam Postavsky]

branch: master
commit 3f2bfe9a1955df3832a78bdfbb03314875601730
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Keep nxml-prolog-end up to date (Bug#18871)
    
    The change on 2016-01-16 "lisp/nxml: Use syntax-tables for comments"
    removed the update of nxml-prolog-end, although it already failed to
    work correctly after 2013-10-07 "* lisp/nxml/nxml-mode.el: Use
    lexical-binding and syntax-propertize."
    * lisp/nxml/nxml-rap.el: New function.
    * lisp/nxml/nxml-mode.el (nxml-mode): Add it to
    after-change-functions.
---
 lisp/nxml/nxml-mode.el | 1 +
 lisp/nxml/nxml-rap.el  | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 1eb728f..5c906a9 100644
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -544,6 +544,7 @@ Many aspects this mode can be customized using
   (setq-local syntax-ppss-table sgml-tag-syntax-table)
   (setq-local syntax-propertize-function #'nxml-syntax-propertize)
   (add-hook 'change-major-mode-hook #'nxml-cleanup nil t)
+  (add-hook 'after-change-functions #'nxml-maybe-rescan-prolog nil t)
 
   ;; Emacs 23 handles the encoding attribute on the xml declaration
   ;; transparently to nxml-mode, so there is no longer a need for the below
diff --git a/lisp/nxml/nxml-rap.el b/lisp/nxml/nxml-rap.el
index 21dbade..3be413a 100644
--- a/lisp/nxml/nxml-rap.el
+++ b/lisp/nxml/nxml-rap.el
@@ -108,6 +108,12 @@ Return nil if the character at POS is not inside."
     (setq nxml-prolog-regions (xmltok-forward-prolog))
     (setq nxml-prolog-end (point))))
 
+(defun nxml-maybe-rescan-prolog (start _end _length)
+  "Reparse the prolog if START lies within it.
+`nxml-mode' adds this function on `after-change-functions'."
+  (when (<= start nxml-prolog-end)
+    (save-excursion
+      (nxml-scan-prolog))))
 
 ;;; Random access parsing