diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/tab-bar.el | 28 | ||||
| -rw-r--r-- | lisp/tab-line.el | 8 |
2 files changed, 14 insertions, 22 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 3fe750908b5..13829efe94c 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -102,25 +102,21 @@ (when (and tab-bar-mode (not (get-text-property 0 'display tab-bar-new-button))) ;; This file is pre-loaded so only here we can use the right data-directory: - (let ((file (expand-file-name "images/tabs/new.xpm" data-directory))) - (when (file-exists-p file) - (add-text-properties 0 (length tab-bar-new-button) - `(display (image :type xpm - :file ,file - :margin (2 . 0) - :ascent center)) - tab-bar-new-button)))) + (add-text-properties 0 (length tab-bar-new-button) + `(display (image :type xpm + :file "tabs/new.xpm" + :margin (2 . 0) + :ascent center)) + tab-bar-new-button)) (when (and tab-bar-mode (not (get-text-property 0 'display tab-bar-close-button))) ;; This file is pre-loaded so only here we can use the right data-directory: - (let ((file (expand-file-name "images/tabs/close.xpm" data-directory))) - (when (file-exists-p file) - (add-text-properties 0 (length tab-bar-close-button) - `(display (image :type xpm - :file ,file - :margin (2 . 0) - :ascent center)) - tab-bar-close-button)))) + (add-text-properties 0 (length tab-bar-close-button) + `(display (image :type xpm + :file "tabs/close.xpm" + :margin (2 . 0) + :ascent center)) + tab-bar-close-button)) (when tab-bar-mode (global-set-key [(control shift iso-lefttab)] 'tab-previous) diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 4397cae255f..5f2dd3e6dd0 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -130,9 +130,7 @@ If nil, don't show the new tab button." (defvar tab-line-new-button (propertize " + " 'display `(image :type xpm - :file ,(expand-file-name - "images/tabs/new.xpm" - data-directory) + :file "tabs/new.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-add-map @@ -160,9 +158,7 @@ If nil, don't show it at all." (defvar tab-line-close-button (propertize " x" 'display `(image :type xpm - :file ,(expand-file-name - "images/tabs/close.xpm" - data-directory) + :file "tabs/close.xpm" :margin (2 . 0) :ascent center) 'keymap tab-line-tab-close-map |