mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Trailing whitespace deleted.

Browse source
This commit is contained in:
Juanma Barranquero 2003-02-04 12:29:42 +00:00
parent 37d1e6800c
commit f1180544bb
73 changed files with 420 additions and 420 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/newcomment.el
View file

@ -262,7 +262,7 @@ This is obsolete because you might as well use \\[newline-and-indent]."
(if (and comment-quote-nested (<= (length ce) 1)) "" "+")
(regexp-quote (substring ce 1))
"\\)"))))))
(defun comment-quote-re (str unp)
(concat (regexp-quote (substring str 0 1))
"\\\\" (if unp "+" "*")
@ -789,7 +789,7 @@ rather than at left margin."
(unless block (setq cce nil))
;; Continuation defaults to the same as CS and CE.
(unless ccs (setq ccs cs cce ce))
(save-excursion
(goto-char end)
;; If the end is not at the end of a line and the comment-end
@ -811,7 +811,7 @@ rather than at left margin."
(end-of-line)
(setq max-indent (max max-indent (current-column)))
(not (or (eobp) (progn (forward-line) nil)))))
;; Inserting ccs can change max-indent by (1- tab-width).
(setq max-indent
(+ max-indent (max (length cs) (length ccs)) tab-width -1))
@ -824,7 +824,7 @@ rather than at left margin."
cs ce ccs cce min-indent max-indent block)))
(setq cs (car csce))
(setq ce (cdr csce))))
(goto-char (point-min))
;; Loop over all lines from BEG to END.
(while