* lisp/nxml/nxml-mode.el (nxml-mode): Use add-function

This avoids calling the internal function `buffer-substring--filter`
from `nxml.el`.

(nxml--buffer-substring-filter): Adjust accordingly.

diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 5a3499dd165f371c141dc79997d148b6766f2110..b7d1b190e8542508231daf462ee8e6b9b57deaa1 100644 (file)
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -540,7 +540,8 @@ Many aspects this mode can be customized using
          (nxml-scan-prolog)))))
   (setq-local syntax-ppss-table sgml-tag-syntax-table)
   (setq-local syntax-propertize-function #'nxml-syntax-propertize)
-  (setq-local filter-buffer-substring-function #'nxml--buffer-substring-filter)
+  (add-function :filter-return (local 'filter-buffer-substring-function)
+                #'nxml--buffer-substring-filter)
   (add-hook 'change-major-mode-hook #'nxml-cleanup nil t)
 
   (when (not (and (buffer-file-name) (file-exists-p (buffer-file-name))))
@@ -565,18 +566,16 @@ Many aspects this mode can be customized using
 
   (with-demoted-errors (rng-nxml-mode-init)))
 
-(defun nxml--buffer-substring-filter (beg end &optional delete)
-  (let ((string (buffer-substring--filter beg end delete)))
-    ;; The `rng-state' property is huge, so don't copy it to the kill
-    ;; ring.  This avoids problems when saving the kill ring with
-    ;; savehist.
-    (when (seq-find (lambda (elem)
-                      (plist-get (nth 2 elem) 'rng-state))
-                    (object-intervals string))
-      (remove-text-properties 0 (length string)
-                              '(rng-state nil fontified nil)
-                              string))
-    string))
+(defun nxml--buffer-substring-filter (string)
+  ;; The `rng-state' property is huge, so don't copy it to the kill ring.
+  ;; This avoids problems when saving the kill ring with savehist.
+  (when (seq-find (lambda (elem)
+                    (plist-get (nth 2 elem) 'rng-state))
+                  (object-intervals string))
+    (remove-text-properties 0 (length string)
+                            '(rng-state nil fontified nil)
+                            string))
+    string)
 
 (defun nxml-cleanup ()
   "Clean up after nxml-mode."