2568 |
;; replaced when unbreaking a line (in fill-delete-newlines). It is added to |
;; replaced when unbreaking a line (in fill-delete-newlines). It is added to |
2569 |
;; newline characters by fill-newline when the default behavior of |
;; newline characters by fill-newline when the default behavior of |
2570 |
;; fill-delete-newlines is not what we want. |
;; fill-delete-newlines is not what we want. |
2571 |
(unless (featurep 'xemacs) |
(unless (featurep 'xemacs) |
2572 |
;; COMPATIBILITY for Emacs < 22.1 |
;; COMPATIBILITY for Emacs < 22.1 |
2573 |
(add-to-list 'text-property-default-nonsticky '(fill-space . t))) |
(add-to-list 'text-property-default-nonsticky '(fill-space . t))) |
2574 |
|
|
2628 |
;; `LaTeX-fill-move-to-break-point' if the char before point matches |
;; `LaTeX-fill-move-to-break-point' if the char before point matches |
2629 |
;; `LaTeX-nospace-between-char-regexp'. |
;; `LaTeX-nospace-between-char-regexp'. |
2630 |
(backward-char 1) |
(backward-char 1) |
2631 |
(if (re-search-backward (concat " \\|\n\\|" LaTeX-nospace-between-char-regexp) linebeg t) |
(when (re-search-backward |
2632 |
(forward-char 1) |
(concat " \\|\n\\|" LaTeX-nospace-between-char-regexp) linebeg 'move) |
2633 |
(skip-chars-backward "^ \n"))) |
(forward-char 1))) |
2634 |
(skip-chars-backward "^ \n")) |
(skip-chars-backward "^ \n")) |
2635 |
;; Prevent infinite loops: If we cannot find a place to break |
;; Prevent infinite loops: If we cannot find a place to break |
2636 |
;; while searching backward, search forward again. |
;; while searching backward, search forward again. |