Mercurial > emacs
changeset 5767:8fef255fe6b3
(comment-region): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Feb 1994 01:13:05 +0000 |
| parents | 27a2ad893b22 |
| children | ab11e2af95ef |
| files | lisp/simple.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Fri Feb 04 01:04:15 1994 +0000 +++ b/lisp/simple.el Fri Feb 04 01:13:05 1994 +0000 @@ -1854,16 +1854,16 @@ (backward-char (length ce)) (looking-at (regexp-quote ce)))) (delete-char (- (length ce))))) - (setq count numarg) - (while (> 1 (setq count (1+ count))) - (end-of-line) - ;; this is questionable if comment-end ends in whitespace - ;; that is pretty brain-damaged though - (skip-chars-backward " \t") - (save-excursion - (backward-char (length ce)) - (if (looking-at (regexp-quote ce)) - (delete-char (length ce))))))) + (let ((count numarg)) + (while (> 1 (setq count (1+ count))) + (end-of-line) + ;; this is questionable if comment-end ends in whitespace + ;; that is pretty brain-damaged though + (skip-chars-backward " \t") + (save-excursion + (backward-char (length ce)) + (if (looking-at (regexp-quote ce)) + (delete-char (length ce)))))))) (forward-line 1)) ;; Insert at beginning and at end. (if (looking-at "[ \t]*$") ()