diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2023-04-07 12:14:13 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2023-04-07 12:14:57 +0200 |
| commit | ded87f826e2320358293e7cc417f3e660359cd90 (patch) | |
| tree | f5bc28f34eb5af26a338c749d7cc4ba698dc48a6 /compat-28.el | |
| parent | 98bd9c1b238633d283b1e6cfd6bb01307d57627e (diff) | |
make-separator-line: Emulate 'separator-line' for graphical displays
Diffstat (limited to 'compat-28.el')
| -rw-r--r-- | compat-28.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compat-28.el b/compat-28.el index 56be530..ac205cb 100644 --- a/compat-28.el +++ b/compat-28.el @@ -221,7 +221,9 @@ and BLUE, is normalized to have its value in [0,65535]." (compat-defun make-separator-line (&optional length) ;; <compat-tests:make-separator-line> "Make a string appropriate for usage as a visual separator line. If LENGTH is nil, use the window width." - (concat (make-string (or length (1- (window-width))) ?-) "\n")) + (if (display-graphic-p) + (propertize "\n" 'face '(:extend t :height 0.1 :inverse-video t)) + (concat (make-string (or length (1- (window-width))) ?-) "\n"))) ;;;; Defined in subr.el |