Mercurial > hg > xemacs-beta
comparison lisp/psgml/psgml-html.el @ 203:850242ba4a81 r20-3b28
Import from CVS: tag r20-3b28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:02:21 +0200 |
| parents | b980b6286996 |
| children |
comparison
equal
deleted
inserted
replaced
| 202:61eefc8fc970 | 203:850242ba4a81 |
|---|---|
| 738 (save-excursion | 738 (save-excursion |
| 739 (goto-char begin) | 739 (goto-char begin) |
| 740 (while (search-forward "&" end t) | 740 (while (search-forward "&" end t) |
| 741 (forward-char -1) | 741 (forward-char -1) |
| 742 (delete-char 1) | 742 (delete-char 1) |
| 743 (insert "&")) | 743 (insert "&") |
| 744 (setq end (+ 4 end))) | |
| 744 (goto-char begin) | 745 (goto-char begin) |
| 745 (while (search-forward "<" end t) | 746 (while (search-forward "<" end t) |
| 746 (forward-char -1) | 747 (forward-char -1) |
| 747 (delete-char 1) | 748 (delete-char 1) |
| 748 (insert "<")) | 749 (insert "<") |
| 750 (setq end (+ 3 end))) | |
| 749 (goto-char begin) | 751 (goto-char begin) |
| 750 (while (search-forward ">" end t) | 752 (while (search-forward ">" end t) |
| 751 (forward-char -1) | 753 (forward-char -1) |
| 752 (delete-char 1) | 754 (delete-char 1) |
| 753 (insert ">")))) | 755 (insert ">") |
| 756 (setq end (+ 3 end))))) | |
| 754 | 757 |
| 755 ;;{{{ html-helper-insert-new-buffer-strings | 758 ;;{{{ html-helper-insert-new-buffer-strings |
| 756 | 759 |
| 757 (tempo-define-template "html-skeleton" html-helper-new-buffer-template | 760 (tempo-define-template "html-skeleton" html-helper-new-buffer-template |
| 758 nil | 761 nil |