equal
deleted
inserted
replaced
1452 (setq ecb-tip-of-the-day nil) |
1452 (setq ecb-tip-of-the-day nil) |
1453 |
1453 |
1454 ;;; ---------------------------------------------------------------- |
1454 ;;; ---------------------------------------------------------------- |
1455 (message "html") |
1455 (message "html") |
1456 |
1456 |
|
1457 (defun text2html (start end) |
|
1458 (interactive "r") |
|
1459 (save-excursion |
|
1460 (save-restriction |
|
1461 (narrow-to-region start end) |
|
1462 (goto-char (point-min)) |
|
1463 (replace-string "&" "&") |
|
1464 (goto-char (point-min)) |
|
1465 (replace-string "<" "<") |
|
1466 (goto-char (point-min)) |
|
1467 (replace-string ">" ">") |
|
1468 ))) |
|
1469 |
1457 ;;; ---------------------------------------------------------------- |
1470 ;;; ---------------------------------------------------------------- |
1458 (message "nxml") |
1471 (message "nxml") |
1459 |
1472 |
1460 (setq nxml-sexp-element-flag t) |
1473 (setq nxml-sexp-element-flag t) |
1461 (setq nxml-child-indent 2) |
1474 (setq nxml-child-indent 2) |