Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
delete any number of comment-end delimiters from end of line.
This commit is contained in:
Richard M. Stallman 1996-11-03 18:23:24 +00:00
parent 7e02c4ddef
commit 5c8ddcfb2e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -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)))