procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(center-line): Use current-left-margin function, not variable.

Browse source
This commit is contained in:
Richard M. Stallman 1995-01-19 04:04:28 +00:00
parent a72632181c
commit 11fbdf1f6c
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/textmodes/text-mode.el
View file

@ -147,15 +147,14 @@ This means adjusting the indentation so that it equals
the distance between the end of the text and `fill-column'."
(interactive)
(save-excursion
(let (line-length)
(let ((lm (current-left-margin))
line-length)
(beginning-of-line)
(delete-horizontal-space)
(end-of-line)
(delete-horizontal-space)
(setq line-length (current-column))
(beginning-of-line)
(indent-to
(+ left-margin
(/ (- fill-column left-margin line-length) 2))))))
(indent-line-to
(+ lm (/ (- (fill-column) lm line-length) 2))))))
;;; text-mode.el ends here