diff options
| author | Karl Heuer | 1994-03-14 21:27:41 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-14 21:27:41 +0000 |
| commit | af2820894be368e6b75e339012805e8cd9054201 (patch) | |
| tree | f9b398d020944f4903f32d46e433c97c3c102ad6 | |
| parent | 3a6ade8ab3991522e92aa7457c43fd74efade861 (diff) | |
| download | emacs-af2820894be368e6b75e339012805e8cd9054201.tar.gz emacs-af2820894be368e6b75e339012805e8cd9054201.zip | |
(underline-region, ununderline-region): Use printable escapes instead of
embedding literal control chars in the source.
| -rw-r--r-- | lisp/textmodes/underline.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el index 269acd01b93..78c7d8b9e9b 100644 --- a/lisp/textmodes/underline.el +++ b/lisp/textmodes/underline.el | |||
| @@ -43,7 +43,7 @@ which specify the range to operate on." | |||
| 43 | (goto-char (min start end)) | 43 | (goto-char (min start end)) |
| 44 | (while (< (point) end1) | 44 | (while (< (point) end1) |
| 45 | (or (looking-at "[_\^@- ]") | 45 | (or (looking-at "[_\^@- ]") |
| 46 | (insert "_")) | 46 | (insert "_\b")) |
| 47 | (forward-char 1))))) | 47 | (forward-char 1))))) |
| 48 | 48 | ||
| 49 | ;;;###autoload | 49 | ;;;###autoload |
| @@ -56,7 +56,7 @@ which specify the range to operate on." | |||
| 56 | (let ((end1 (make-marker))) | 56 | (let ((end1 (make-marker))) |
| 57 | (move-marker end1 (max start end)) | 57 | (move-marker end1 (max start end)) |
| 58 | (goto-char (min start end)) | 58 | (goto-char (min start end)) |
| 59 | (while (re-search-forward "_\\|_" end1 t) | 59 | (while (re-search-forward "_\b\\|\b_" end1 t) |
| 60 | (delete-char -2))))) | 60 | (delete-char -2))))) |
| 61 | 61 | ||
| 62 | ;;; underline.el ends here | 62 | ;;; underline.el ends here |