163 |
(defvar TeX-fold-unfolded-face 'TeX-fold-unfolded-face |
(defvar TeX-fold-unfolded-face 'TeX-fold-unfolded-face |
164 |
"Face for folded content when it is temporarily opened.") |
"Face for folded content when it is temporarily opened.") |
165 |
|
|
166 |
|
(defvar TeX-fold-ellipsis "..." |
167 |
|
"String used as display string for overlays instead of a zero-length string.") |
168 |
|
|
169 |
(defvar TeX-fold-open-spots nil) |
(defvar TeX-fold-open-spots nil) |
170 |
(make-variable-buffer-local 'TeX-fold-open-spots) |
(make-variable-buffer-local 'TeX-fold-open-spots) |
171 |
|
|
592 |
"[Error: No content found]"))) |
"[Error: No content found]"))) |
593 |
(display-string (if (listp computed) (car computed) computed)) |
(display-string (if (listp computed) (car computed) computed)) |
594 |
(face (when (listp computed) (cadr computed)))) |
(face (when (listp computed) (cadr computed)))) |
595 |
|
;; Cater for zero-length display strings. |
596 |
|
(when (string= display-string "") (setq display-string TeX-fold-ellipsis)) |
597 |
;; Add a linebreak to the display string and adjust the overlay end |
;; Add a linebreak to the display string and adjust the overlay end |
598 |
;; in case of an overfull line. |
;; in case of an overfull line. |
599 |
(when (TeX-fold-overfull-p ov-start ov-end display-string) |
(when (TeX-fold-overfull-p ov-start ov-end display-string) |