1 45c2bb2a 2022-10-17 lh ;; -*- lexical-binding: t; -*-
 2 45c2bb2a 2022-10-17 lh (require 'xml)
 3 45c2bb2a 2022-10-17 lh 
 4 45c2bb2a 2022-10-17 lh (defun lh/xml-escape-region (beg end ARG)
 5 45c2bb2a 2022-10-17 lh   (interactive "r\nP")
 6 45c2bb2a 2022-10-17 lh   (when (not (region-active-p))
 7 45c2bb2a 2022-10-17 lh     (setq beg (point-min))
 8 45c2bb2a 2022-10-17 lh     (setq end (point-max)))
 9 45c2bb2a 2022-10-17 lh   (let* ((text (buffer-substring-no-properties beg end))
10 45c2bb2a 2022-10-17 lh          (escaped (if ARG
11 45c2bb2a 2022-10-17 lh                       (with-temp-buffer
12 45c2bb2a 2022-10-17 lh                         (save-excursion
13 45c2bb2a 2022-10-17 lh                           (insert text))
14 45c2bb2a 2022-10-17 lh                         (xml-parse-string))
15 45c2bb2a 2022-10-17 lh                     (xml-escape-string text))))
16 45c2bb2a 2022-10-17 lh     (delete-region beg end)
17 45c2bb2a 2022-10-17 lh     (insert escaped)))
18 45c2bb2a 2022-10-17 lh 
19 45c2bb2a 2022-10-17 lh (provide 'lh-xml)