summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-11-03 18:23:24 +0000
committerRichard M. Stallman <rms@gnu.org>1996-11-03 18:23:24 +0000
commitd2df7995826a9e12ef3f9076e675cbdd72298014 (patch)
treeda8f721b1e6e987e2df8f36b154ee83f24c2b594 /lisp
parent87b82ea2a7d9c2534903d6122cf9f7e48c1bab29 (diff)
downloademacs-d2df7995826a9e12ef3f9076e675cbdd72298014.tar.gz
(comment-region): With just C-u as arg,
delete any number of comment-end delimiters from end of line.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index f2fb11feeb0..bc4bee00c02 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2264,11 +2264,11 @@ not end the comment. Blank lines do not get comments."
;; This is questionable if comment-end ends in
;; whitespace. That is pretty brain-damaged,
;; though.
- (skip-chars-backward " \t")
- (if (and (>= (- (point) (point-min)) (length ce))
- (save-excursion
- (backward-char (length ce))
- (looking-at (regexp-quote ce))))
+ (while (progn (skip-chars-backward " \t")
+ (and (>= (- (point) (point-min)) (length ce))
+ (save-excursion
+ (backward-char (length ce))
+ (looking-at (regexp-quote ce)))))
(delete-char (- (length ce)))))
(let ((count numarg))
(while (> 1 (setq count (1+ count)))