diff options
| author | Eli Zaretskii | 2025-03-09 11:20:33 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2025-03-09 11:20:33 +0200 |
| commit | 7e89ef2ced2d06f49705aff679f1962af94d0973 (patch) | |
| tree | 4fc48213690cdb4ca3c205bf4de4b07c854da885 | |
| parent | 2322dea77cc2f3e1f1eb08a5b03f97afdd3a4cde (diff) | |
| download | emacs-7e89ef2ced2d06f49705aff679f1962af94d0973.tar.gz emacs-7e89ef2ced2d06f49705aff679f1962af94d0973.zip | |
; Fix documentation of previous change.
* lisp/display-fill-column-indicator.el
(display-fill-column-indicator-warning)
(display-fill-column-indicator-warning-face): Doc fixes.
* etc/NEWS: Announce 'display-fill-column-indicator-warning'.
(Bug#76494).
| -rw-r--r-- | etc/NEWS | 7 | ||||
| -rw-r--r-- | lisp/display-fill-column-indicator.el | 4 |
2 files changed, 9 insertions, 2 deletions
| @@ -1446,6 +1446,13 @@ commands. When nil, clicking on an inactive Emacs frame will only | |||
| 1446 | activate it. When t (the default), the click will both activate the | 1446 | activate it. When t (the default), the click will both activate the |
| 1447 | frame and be interpreted as a command. | 1447 | frame and be interpreted as a command. |
| 1448 | 1448 | ||
| 1449 | --- | ||
| 1450 | *** New user option 'display-fill-column-indicator-warning'. | ||
| 1451 | Customize it to a non-nil value to have the fill-column indicators | ||
| 1452 | change their face if the current line exceeds the 'fill-column'. The | ||
| 1453 | new face 'display-fill-column-indicator-warning-face' is used to | ||
| 1454 | highlight the fill-column indicators. By default this is disabled. | ||
| 1455 | |||
| 1449 | 1456 | ||
| 1450 | * New Modes and Packages in Emacs 31.1 | 1457 | * New Modes and Packages in Emacs 31.1 |
| 1451 | 1458 | ||
diff --git a/lisp/display-fill-column-indicator.el b/lisp/display-fill-column-indicator.el index e2395bb1f01..dbd067f5f3d 100644 --- a/lisp/display-fill-column-indicator.el +++ b/lisp/display-fill-column-indicator.el | |||
| @@ -43,7 +43,7 @@ | |||
| 43 | :link '(info-link "(emacs)Displaying Boundaries")) | 43 | :link '(info-link "(emacs)Displaying Boundaries")) |
| 44 | 44 | ||
| 45 | (defcustom display-fill-column-indicator-warning nil | 45 | (defcustom display-fill-column-indicator-warning nil |
| 46 | "Highlight fill-column-indicator when current column is too long. | 46 | "Highlight fill-column-indicator when current line is too long. |
| 47 | Non-nil means highlight fill-column-indicator when current column exceeds | 47 | Non-nil means highlight fill-column-indicator when current column exceeds |
| 48 | `display-fill-column-indicator-column'." | 48 | `display-fill-column-indicator-column'." |
| 49 | :type 'boolean | 49 | :type 'boolean |
| @@ -51,7 +51,7 @@ Non-nil means highlight fill-column-indicator when current column exceeds | |||
| 51 | 51 | ||
| 52 | (defface display-fill-column-indicator-warning-face | 52 | (defface display-fill-column-indicator-warning-face |
| 53 | '((t :inherit error :stipple nil)) | 53 | '((t :inherit error :stipple nil)) |
| 54 | "Face used to highlight `display-fill-column-indicator' when column is too long." | 54 | "Face used to highlight `display-fill-column-indicator' when lines are too long." |
| 55 | :version "31.1") | 55 | :version "31.1") |
| 56 | 56 | ||
| 57 | (defun fill-indicator--set-warning () | 57 | (defun fill-indicator--set-warning () |