Commit 5c8ddcfb authored by Richard M. Stallman's avatar Richard M. Stallman

(comment-region): With just C-u as arg,

delete any number of comment-end delimiters from end of line.
parent 7e02c4dd
...@@ -2264,11 +2264,11 @@ not end the comment. Blank lines do not get comments." ...@@ -2264,11 +2264,11 @@ not end the comment. Blank lines do not get comments."
;; This is questionable if comment-end ends in ;; This is questionable if comment-end ends in
;; whitespace. That is pretty brain-damaged, ;; whitespace. That is pretty brain-damaged,
;; though. ;; though.
(skip-chars-backward " \t") (while (progn (skip-chars-backward " \t")
(if (and (>= (- (point) (point-min)) (length ce)) (and (>= (- (point) (point-min)) (length ce))
(save-excursion (save-excursion
(backward-char (length ce)) (backward-char (length ce))
(looking-at (regexp-quote ce)))) (looking-at (regexp-quote ce)))))
(delete-char (- (length ce))))) (delete-char (- (length ce)))))
(let ((count numarg)) (let ((count numarg))
(while (> 1 (setq count (1+ count))) (while (> 1 (setq count (1+ count)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment