• # emacs rulz

    Posté par . En réponse au message Possibilité de saisir du texte entre < et >. Évalué à 2.

    (defvar xml-escape-translate-map
    `(
    ("&" . "&amp;") ; keep this one in first position
    ("<" . "&lt;")
    (">" . "&gt;")
    ("'" . "&apos;")
    ("\"" . "&quot;")
    )
    nil)

    (defvar xml-escape-search-for
    (mapconcat (lambda (entry) (car entry)) xml-escape-translate-map "\\|"))

    (defun xml-escape ()
    "escape XML special characters"
    (interactive)
    (if (mark)
    (let ((save-point (point-marker)))
    (if (> (point) (mark)) (exchange-point-and-mark))
    (while (re-search-forward xml-escape-search-for (mark) t)
    (replace-match
    (cdr (assoc (match-string 0) xml-escape-translate-map)) t t))
    (goto-char save-point)
    )))


    c'est beau la technologie.