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

(current-fill-column): If fill-column is nil, return nil.

Browse source
This commit is contained in:
Richard M. Stallman 1995-06-29 03:21:26 +00:00
parent 8f066a20b2
commit 1e87252ca9
1 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/textmodes/fill.el
View file

@ -72,21 +72,22 @@ subtracted from `fill-column'.
The fill column to use for a line is the first column at which the column
number equals or exceeds the local fill-column - right-margin difference."
(save-excursion
(let* ((here (progn (beginning-of-line) (point)))
(here-col 0)
(eol (progn (end-of-line) (point)))
margin fill-col change col)
;; Look separately at each region of line with a different right-margin
(while (and (setq margin (get-text-property here 'right-margin)
fill-col (- fill-column (or margin 0))
change (text-property-not-all here eol
'right-margin margin))
(progn (goto-char (1- change))
(setq col (current-column))
(< col fill-col)))
(setq here change
here-col col))
(max here-col fill-col))))
(if fill-column
(let* ((here (progn (beginning-of-line) (point)))
(here-col 0)
(eol (progn (end-of-line) (point)))
margin fill-col change col)
;; Look separately at each region of line with a different right-margin.
(while (and (setq margin (get-text-property here 'right-margin)
fill-col (- fill-column (or margin 0))
change (text-property-not-all
here eol 'right-margin margin))
(progn (goto-char (1- change))
(setq col (current-column))
(< col fill-col)))
(setq here change
here-col col))
(max here-col fill-col)))))
(defun canonically-space-region (beg end)
"Remove extra spaces between words in region.