equal
deleted
inserted
replaced
3331 (interactive "r") |
3331 (interactive "r") |
3332 (save-excursion |
3332 (save-excursion |
3333 (save-restriction |
3333 (save-restriction |
3334 (narrow-to-region start end) |
3334 (narrow-to-region start end) |
3335 (goto-char (point-min)) |
3335 (goto-char (point-min)) |
3336 (while (search-forward "&") (replace-match "&")) |
3336 (while (search-forward "&" nil t) (replace-match "&")) |
3337 (goto-char (point-min)) |
3337 (goto-char (point-min)) |
3338 (while (search-forward "<") (replace-match "<")) |
3338 (while (search-forward "<" nil t) (replace-match "<")) |
3339 (goto-char (point-min)) |
3339 (goto-char (point-min)) |
3340 (while (search-forward ">") (replace-match ">")) |
3340 (while (search-forward ">" nil t) (replace-match ">")) |
3341 ))) |
3341 ))) |
3342 |
3342 |
3343 (defun my-html-charref-from-char (char) |
3343 (defun my-html-charref-from-char (char) |
3344 (format "&#%d;" char) |
3344 (format "&#%d;" char) |
3345 ) |
3345 ) |