diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-04-07 13:51:46 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-04-07 13:51:46 +0200 |
| commit | ed6707cbaca099c832e8fc197a94cb158d83a089 (patch) | |
| tree | 16f3ea9c9f1fd6b9953197d90c62d1a6812a7803 | |
| parent | 532b92edf52bc526d1789e3706679e204b84149c (diff) | |
make-separator-line: Ensure that argument length is respected
| -rw-r--r-- | compat-28.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compat-28.el b/compat-28.el index af982d4..cfbf48b 100644 --- a/compat-28.el +++ b/compat-28.el @@ -222,7 +222,8 @@ and BLUE, is normalized to have its value in [0,65535]." "Make a string appropriate for usage as a visual separator line. If LENGTH is nil, use the window width." ;; :extend is only supported on Emacs 27 and newer - (if (and (eval-when-compile (> emacs-major-version 26)) (display-graphic-p)) + (if (and (eval-when-compile (> emacs-major-version 26)) + (not length) (display-graphic-p)) (propertize "\n" 'face '(:extend t :height 0.1 :inverse-video t)) (concat (make-string (or length (1- (window-width))) ?-) "\n"))) |