[elpa] externals/auctex d813213 12/26: Improve tool bar appearance

[Tassilo Horn]

branch: externals/auctex
commit d81321326b9a547be168bfecee7165ffd58e32c8
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@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))