diff options
| -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 20ffa315001..a7e6d30bd5c 100644 --- a/lisp/textmodes/underline.el +++ b/lisp/textmodes/underline.el | |||
| @@ -37,7 +37,7 @@ | |||
| 37 | Works by overstriking underscores. | 37 | Works by overstriking underscores. |
| 38 | Called from program, takes two arguments START and END | 38 | Called from program, takes two arguments START and END |
| 39 | which specify the range to operate on." | 39 | which specify the range to operate on." |
| 40 | (interactive "r") | 40 | (interactive "*r") |
| 41 | (save-excursion | 41 | (save-excursion |
| 42 | (let ((end1 (make-marker))) | 42 | (let ((end1 (make-marker))) |
| 43 | (move-marker end1 (max start end)) | 43 | (move-marker end1 (max start end)) |
| @@ -52,7 +52,7 @@ which specify the range to operate on." | |||
| 52 | "Remove all underlining (overstruck underscores) in the region. | 52 | "Remove all underlining (overstruck underscores) in the region. |
| 53 | Called from program, takes two arguments START and END | 53 | Called from program, takes two arguments START and END |
| 54 | which specify the range to operate on." | 54 | which specify the range to operate on." |
| 55 | (interactive "r") | 55 | (interactive "*r") |
| 56 | (save-excursion | 56 | (save-excursion |
| 57 | (let ((end1 (make-marker))) | 57 | (let ((end1 (make-marker))) |
| 58 | (move-marker end1 (max start end)) | 58 | (move-marker end1 (max start end)) |