branch: externals/auctex
commit d81321326b9a547be168bfecee7165ffd58e32c8
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Improve tool bar appearance
* toolbar-x.el (toolbarx-emacs-add-button): Use built-in separator.
Add :vert-only property to suppress labels unless vertical alignment
is specified for labels.
Reindent the codes.
* preview.el.in (preview-mode-setup): Add :vert-only property as well.
---
preview.el.in | 3 ++-
toolbar-x.el | 29 ++++++++++++++++-------------
2 files changed, 18 insertions(+), 14 deletions(-)
diff --git a/preview.el.in b/preview.el.in
index cd3825e..fd92a2c 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -3068,7 +3068,8 @@ pp")
(define-key LaTeX-mode-map [tool-bar preview]
`(menu-item "Preview at point" preview-at-point
:image ,preview-tb-icon
- :help "Preview on/off at point")))
+ :help "Preview on/off at point"
+ :vert-only t)))
(when buffer-file-name
(let* ((filename (expand-file-name buffer-file-name))
format-cons)
diff --git a/toolbar-x.el b/toolbar-x.el
index d95ca59..8f07bea 100644
--- a/toolbar-x.el
+++ b/toolbar-x.el
@@ -1116,19 +1116,22 @@ function `toolbar-install-toolbar'."
(cadr (memq :visible filtered-props))))
(button (cons (memq :button filtered-props)
(cadr (memq :button filtered-props))))
- (menuitem (append
- (list 'menu-item
- (toolbarx-make-string-from-symbol symbol)
- command
- :image image-descriptor)
- (when (car help)
- (list :help (cdr help)))
- (when (car enable)
- (list :enable (cdr enable)))
- (when (car visible)
- (list :visible (cdr visible)))
- (when (car button)
- (list :button (cdr button)))))
+ (menuitem (if (eq symbol 'separator)
+ '(menu-item "--")
+ (append
+ (list 'menu-item
+ (toolbarx-make-string-from-symbol symbol)
+ command
+ :image image-descriptor)
+ (when (car help)
+ (list :help (cdr help)))
+ (when (car enable)
+ (list :enable (cdr enable)))
+ (when (car visible)
+ (list :visible (cdr visible)))
+ (when (car button)
+ (list :button (cdr button)))
+ '(:vert-only t))))
(key-not-used
(let* ((count 0)
(symb symbol))
