[elpa] 03/299: * tex-bar.el (TeX-bar-LaTeX-buttons, TeX-bar-LaTeX-button-alist): Also add spell button.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit de382e28c63c4a0b1aa3156296ba7675825bcbf7
Author: Tassilo Horn <address@hidden>
Date:   Thu Dec 20 08:51:42 2012 +0000

    * tex-bar.el (TeX-bar-LaTeX-buttons, TeX-bar-LaTeX-button-alist):
    Also add spell button.
---
 ChangeLog  |    3 +++
 tex-bar.el |    7 ++++++-
 2 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7e07d73..54166b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2012-12-20  Tassilo Horn  <address@hidden>
 
+       * tex-bar.el (TeX-bar-LaTeX-buttons, TeX-bar-LaTeX-button-alist):
+       Also add spell button.
+
        * images/spell.xpm: New image, copied from Emacs.
 
        * tex-bar.el (TeX-bar-TeX-button-alist): Use it for the spell
diff --git a/tex-bar.el b/tex-bar.el
index d1740b5..32ed5ee 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -231,7 +231,7 @@ format of the argument MEANING-ALIST in the mentioned 
function."
 
 (defcustom TeX-bar-LaTeX-buttons
   '(new-file open-file dired kill-buffer save-buffer cut copy paste undo
-             [separator nil] latex next-error view bibtex)
+             [separator nil] latex next-error view bibtex spell)
   "List of buttons available in `latex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
@@ -262,6 +262,7 @@ alists, see variable `TeX-bar-LaTeX-all-button-alists'."
                    (const file)
                    (const bibtex)
                    (const clean)
+                   (const spell)
                    (const latex-symbols-experimental))
               (repeat (choice (symbol :tag "Label")
                               (vector :args ((symbol :tag "Label in Emacs ")
@@ -344,6 +345,10 @@ the argument BUTTON-ALIST in function 
`toolbarx-install-toolbar'."
            :command (TeX-command "Clean" 'TeX-master-file -1)
            :help (lambda (&rest ignored)
                    (TeX-bar-help-from-command-list "Clean")))
+    (spell  :image "spell"
+           :command (TeX-command "Spell" 'TeX-master-file -1)
+           :help (lambda (&rest ignored)
+                   (TeX-bar-help-from-command-list "Spell")))
     (latex-symbols-experimental . (:alias :eval-group
                                          LaTeX-symbols-toolbar-switch-contents
                                          LaTeX-symbols-toolbar-contents)))