Mercurial > emacs
changeset 16508:fd19350c1405
(comment-region): With just C-u as arg,
delete any number of comment-end delimiters from end of line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Nov 1996 18:23:24 +0000 |
| parents | 08855b88e955 |
| children | 75d463b202b5 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sun Nov 03 17:09:27 1996 +0000 +++ b/lisp/simple.el Sun Nov 03 18:23:24 1996 +0000 @@ -2264,11 +2264,11 @@ ;; 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)))