equal
deleted
inserted
replaced
3506 "Pretty-print XML." |
3506 "Pretty-print XML." |
3507 (interactive) |
3507 (interactive) |
3508 (goto-char (point-min)) |
3508 (goto-char (point-min)) |
3509 (while (re-search-forward ">[ \t\n\r]+<" nil t) |
3509 (while (re-search-forward ">[ \t\n\r]+<" nil t) |
3510 (replace-match ">\n<")) |
3510 (replace-match ">\n<")) |
|
3511 (goto-char (point-min)) |
3511 (while (re-search-forward "><" nil t) |
3512 (while (re-search-forward "><" nil t) |
3512 (replace-match ">\n<")) |
3513 (replace-match ">\n<")) |
3513 (indent-region (point-min) (point-max)) |
3514 (indent-region (point-min) (point-max)) |
3514 (goto-char (point-min))) |
3515 (goto-char (point-min))) |
3515 |
3516 |