Skip to content

Commit

Permalink
(comment-region): With just C-u as arg,
Browse files Browse the repository at this point in the history
delete any number of comment-end delimiters from end of line.
  • Loading branch information
Richard M. Stallman committed Nov 3, 1996
1 parent 87b82ea commit d2df799
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions lisp/simple.el
Expand Up @@ -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))
(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)))
Expand Down

0 comments on commit d2df799

Please sign in to comment.