diff options
| author | Richard M. Stallman | 1996-11-03 18:23:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-11-03 18:23:24 +0000 |
| commit | 5c8ddcfb2e80329e8ea1f57f52e23731a85b47f3 (patch) | |
| tree | 077e07a70d51f39f7f8e862b9b068ae296eb84d3 | |
| parent | 7e02c4ddef547e171dd5e81682b705930311b7fd (diff) | |
| download | emacs-5c8ddcfb2e80329e8ea1f57f52e23731a85b47f3.tar.gz emacs-5c8ddcfb2e80329e8ea1f57f52e23731a85b47f3.zip | |
(comment-region): With just C-u as arg,
delete any number of comment-end delimiters from end of line.
| -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." | |||
| 2264 | ;; This is questionable if comment-end ends in | 2264 | ;; This is questionable if comment-end ends in |
| 2265 | ;; whitespace. That is pretty brain-damaged, | 2265 | ;; whitespace. That is pretty brain-damaged, |
| 2266 | ;; though. | 2266 | ;; though. |
| 2267 | (skip-chars-backward " \t") | 2267 | (while (progn (skip-chars-backward " \t") |
| 2268 | (if (and (>= (- (point) (point-min)) (length ce)) | 2268 | (and (>= (- (point) (point-min)) (length ce)) |
| 2269 | (save-excursion | 2269 | (save-excursion |
| 2270 | (backward-char (length ce)) | 2270 | (backward-char (length ce)) |
| 2271 | (looking-at (regexp-quote ce)))) | 2271 | (looking-at (regexp-quote ce))))) |
| 2272 | (delete-char (- (length ce))))) | 2272 | (delete-char (- (length ce))))) |
| 2273 | (let ((count numarg)) | 2273 | (let ((count numarg)) |
| 2274 | (while (> 1 (setq count (1+ count))) | 2274 | (while (> 1 (setq count (1+ count))) |