diff options
| author | Juri Linkov <juri@linkov.net> | 2019-09-07 23:04:24 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-09-07 23:04:24 +0300 |
| commit | a7289c0488fd55260d29685b6c1b79b8a3cd8f92 (patch) | |
| tree | ac5ff95af1a8c8d7ebcbc50b163cc01966a22719 /lisp/tab-line.el | |
| parent | 2a0164753456d0f788aa026bdd903ac76519d6ab (diff) | |
| download | emacs-a7289c0488fd55260d29685b6c1b79b8a3cd8f92.tar.gz | |
* lisp/tab-bar.el (tab-bar-make-keymap-1): Don't use fixed "Current tab".
* lisp/tab-bar.el (tab-bar-make-keymap-1):
* lisp/tab-line.el (tab-line-tab-name-add):
Add space after Unicode char to avoid char clobbering on terminals.
Diffstat (limited to 'lisp/tab-line.el')
| -rw-r--r-- | lisp/tab-line.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 92802b6d299..2122a14be67 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -113,9 +113,14 @@ "Local keymap to close `tab-line-mode' window tabs.") (defvar tab-line-separator " ") -(defvar tab-line-tab-name-ellipsis (if (char-displayable-p ?…) "…" "...")) -(defvar tab-line-tab-name-add (if (char-displayable-p ?➕) "➕" "[+]")) -(defvar tab-line-tab-name-close (if (char-displayable-p ?⮿) "⮿" "[x]")) +(defvar tab-line-tab-name-ellipsis + (if (char-displayable-p ?…) "…" "...")) +(defvar tab-line-tab-name-add + (if (char-displayable-p ?➕) "➕" "[+]")) +(defvar tab-line-tab-name-close + ;; Need to add space after Unicode char on terminals + ;; to avoid clobbering next char by wide Unicode char. + (if (char-displayable-p ?⮿) (if window-system "⮿" "⮿ ") "[x]")) (defun tab-line-tab-name (buffer &optional buffers) |