diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-11-03 18:23:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-11-03 18:23:24 +0000 |
| commit | d2df7995826a9e12ef3f9076e675cbdd72298014 (patch) | |
| tree | da8f721b1e6e987e2df8f36b154ee83f24c2b594 /lisp | |
| parent | 87b82ea2a7d9c2534903d6122cf9f7e48c1bab29 (diff) | |
| download | emacs-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.el | 10 |
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))) |