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

(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."
;; 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))
(backward-char (length ce))
(looking-at (regexp-quote ce))))
(while (progn (skip-chars-backward " \t")
(and (>= (- (point) (point-min)) (length ce))
(backward-char (length ce))
(looking-at (regexp-quote ce)))))
(delete-char (- (length ce)))))
(let ((count numarg))
(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