[elpa] 01/299: * tex-bar.el (TeX-bar-TeX-button-alist, TeX-bar-TeX-buttons): Add `spell' button to run spell-checker.

[Stefan Monnier]

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

commit ea6c914f6d557e13a3f4a722fc0397e76f8bdb66
Author: Tassilo Horn <address@hidden>
Date:   Thu Dec 20 08:20:46 2012 +0000

    * tex-bar.el (TeX-bar-TeX-button-alist, TeX-bar-TeX-buttons): Add
    `spell' button to run spell-checker.
---
 ChangeLog  |    5 +++++
 tex-bar.el |   11 ++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6e04837..831c49b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-20  Tassilo Horn  <address@hidden>
+
+       * tex-bar.el (TeX-bar-TeX-button-alist, TeX-bar-TeX-buttons): Add
+       `spell' button to run spell-checker.
+
 2012-12-04  Tassilo Horn  <address@hidden>
 
        Merge revno 314 (Stefan Monnier) from emacs elpa branch: Shorten
diff --git a/tex-bar.el b/tex-bar.el
index cf7bc1d..fe89b50 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -84,7 +84,7 @@ If there is no help, the empty string is returned."
 
 (defcustom TeX-bar-TeX-buttons
   '(new-file open-file dired kill-buffer save-buffer cut copy paste undo
-            [separator nil] tex next-error view bibtex)
+            [separator nil] tex next-error view bibtex spell)
   "List of buttons available in `tex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
@@ -114,7 +114,8 @@ alists, see variable `TeX-bar-TeX-all-button-alists'."
                    (const view)
                    (const file)
                    (const bibtex)
-                   (const clean))
+                   (const clean)
+                   (const spell))
                    ;; (const latex-symbols-experimental)
               (repeat (choice (symbol :tag "Label")
                               (vector :args ((symbol :tag "Label in Emacs ")
@@ -196,7 +197,11 @@ the argument BUTTON-ALIST in function 
`toolbarx-install-toolbar'."
     (clean  :image "delete"
            :command (TeX-command "Clean" 'TeX-master-file -1)
            :help (lambda (&rest ignored)
-                   (TeX-bar-help-from-command-list "Clean"))))
+                   (TeX-bar-help-from-command-list "Clean")))
+    (spell  :image "view" ;; TODO: We probably want a custom icon.
+           :command (TeX-command "Spell" 'TeX-master-file -1)
+           :help (lambda (&rest ignored)
+                   (TeX-bar-help-from-command-list "Spell"))))
   ;; latex-symbols-experimental?
   "Alist for button definitions in TeX bar.
 Value should le a list where each element is of format (KEY .