diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:27:41 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:27:41 +0000 |
| commit | af2820894be368e6b75e339012805e8cd9054201 (patch) | |
| tree | f9b398d020944f4903f32d46e433c97c3c102ad6 /lisp/textmodes/underline.el | |
| parent | 3a6ade8ab3991522e92aa7457c43fd74efade861 (diff) | |
| download | emacs-af2820894be368e6b75e339012805e8cd9054201.tar.gz emacs-af2820894be368e6b75e339012805e8cd9054201.tar.bz2 emacs-af2820894be368e6b75e339012805e8cd9054201.zip | |
(underline-region, ununderline-region): Use printable escapes instead of
embedding literal control chars in the source.
Diffstat (limited to 'lisp/textmodes/underline.el')
| -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." (goto-char (min start end)) (while (< (point) end1) (or (looking-at "[_\^@- ]") - (insert "_")) + (insert "_\b")) (forward-char 1))))) ;;;###autoload @@ -56,7 +56,7 @@ which specify the range to operate on." (let ((end1 (make-marker))) (move-marker end1 (max start end)) (goto-char (min start end)) - (while (re-search-forward "_\\|_" end1 t) + (while (re-search-forward "_\b\\|\b_" end1 t) (delete-char -2))))) ;;; underline.el ends here |