mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(fill-indent-according-to-mode): New var.

Browse Source 
(fill-region-as-paragraph): Use it.
This commit is contained in:
Stefan Monnier 2000-11-10 11:43:55 +00:00
parent 4301cf6633
commit 178932de25
2 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,3 +1,18 @@
2000-11-10 Stefan Monnier <monnier@cs.yale.edu>
* textmodes/fill.el (fill-indent-according-to-mode): New var.
(fill-region-as-paragraph): Use it.
* textmodes/tex-mode.el (standard-latex-block-names): Add "math".
(latex-mode): Tweak tex-*-(head|trail)er regexps.
Tweak paragraph regexps to allow a leading [ \t]*.
(tex-latex-block): Insert a newline if necessary.
(latex-insert-item): Only insert a newline if necessary.
(tex-guess-main-file): New function.
(tex-main-file): Use it. Add arg `realfile'. Trim `.tex'.
Set tex-main-file if TeX-master is provided.
(tex-latex-indent-syntax-table): Map ( and ) to punctuation.
2000-11-10 Gerd Moellmann <gerd@gnu.org>
* startup.el (command-line): Set the default tooltip-mode

21
lisp/textmodes/fill.el
View File

@ -120,6 +120,9 @@ This function is used when `adaptive-fill-regexp' does not match."
:type 'function
:group 'fill)
(defvar fill-indent-according-to-mode nil
"Whether or not filling should try to use the major mode's indentation.")
(defun current-fill-column ()
"Return the fill-column to use for this line.
The fill-column to use for a buffer is stored in the variable `fill-column',
@ -193,7 +196,7 @@ Remove indentation from each line."
(defun fill-common-string-prefix (s1 s2)
"Return the longest common prefix of strings S1 and S2, or nil if none."
(let ((cmp (compare-strings s1 nil nil s2 nil nil)))
(if (eq cmp t)
(if (eq cmp t)
s1
(setq cmp (1- (abs cmp)))
(unless (zerop cmp)
@ -380,10 +383,10 @@ space does not end a sentence, so don't break a line there."
(backward-char 1)
(setq oneleft t)))
(setq to (point))
;;; ;; If there was no newline, and there is text in the paragraph, then
;;; ;; create a newline.
;;; (if (and (not oneleft) (> to from-plus-indent))
;;; (newline))
;; ;; If there was no newline, and there is text in the paragraph, then
;; ;; create a newline.
;; (if (and (not oneleft) (> to from-plus-indent))
;; (newline))
(goto-char from-plus-indent))
(if (not (> to (point)))
@ -642,7 +645,13 @@ space does not end a sentence, so don't break a line there."
;; Give newline the properties of the space(s) it replaces
(set-text-properties (1- (point)) (point)
(text-properties-at (point)))
(indent-to-left-margin)
(if (or fill-prefix
(not fill-indent-according-to-mode)
(memq indent-line-function
;; Brain dead "indenting" functions.
'(indent-relative-maybe indent-relative)))
(indent-to-left-margin)
(indent-according-to-mode))
;; Insert the fill prefix after indentation.
;; Set prefixcol so whitespace in the prefix won't get lost.
(and fill-prefix (not (equal fill-prefix ""))