Variable: toolbarx-default-toolbar-meaning-alist

toolbarx-default-toolbar-meaning-alist is a variable defined in toolbar-x.el.

Value

((separator :image "sep" :command t :enable nil :help "")
 (new-file :image "new" :command find-file :enable
	   (not
	    (window-minibuffer-p
	     (frame-selected-window menu-updating-frame)))
	   :help "Specify a new file's name, to edit the file")
 (open-file :image "open" :command menu-find-file-existing :enable
	    (not
	     (window-minibuffer-p
	      (frame-selected-window menu-updating-frame)))
	    :help "Read a file into an Emacs buffer")
 (dired :image "diropen" :command dired :help "Read a directory, operate on its files")
 (save-buffer :image "save" :command save-buffer :enable
	      (and
	       (buffer-modified-p)
	       (buffer-file-name
		(buffer-base-buffer))
	       (not
		(window-minibuffer-p
		 (frame-selected-window menu-updating-frame))))
	      :help "Save current buffer to its file" :visible
	      (or
	       (buffer-file-name
		(buffer-base-buffer))
	       (not
		(eq 'special
		    (get major-mode 'mode-class)))))
 (write-file :image "saveas" :command write-file :enable
	     (not
	      (window-minibuffer-p
	       (frame-selected-window menu-updating-frame)))
	     :help "Write current buffer to another file" :visible
	     (or
	      (buffer-file-name
	       (buffer-base-buffer))
	      (not
	       (eq 'special
		   (get major-mode 'mode-class)))))
 (undo :image "undo" :command undo :enable
       (and
	(not buffer-read-only)
	(not
	 (eq t buffer-undo-list))
	(if
	    (eq last-command #'undo)
	    pending-undo-list
	  (consp buffer-undo-list)))
       :help "Undo last operation" :visible
       (not
	(eq 'special
	    (get major-mode 'mode-class))))
 (cut :image "cut" :help "Delete text in region and copy it to the clipboard" :command clipboard-kill-region :visible
      (not
       (eq 'special
	   (get major-mode 'mode-class))))
 (copy :image "copy" :help "Copy text in region to the clipboard" :command clipboard-kill-ring-save)
 (paste :image "paste" :help "Paste text from clipboard" :command clipboard-yank :visible
	(not
	 (eq 'special
	     (get major-mode 'mode-class))))
 (search-forward :command nonincremental-search-forward :help "Search forward for a string" :image "search")
 (search-replace :image "search-replace" :command query-replace :help "Replace string interactively, ask about each occurrence")
 (print-buffer :image "print" :command print-buffer :help "Print current buffer with page headings")
 (customize :image "preferences" :command customize :help "Edit preferences (customize)")
 (help :image "help" :command
       (lambda nil
	 (interactive)
	 (popup-menu menu-bar-help-menu))
       :help "Pop up the Help menu")
 (kill-buffer :command kill-this-buffer :enable
	      (kill-this-buffer-enabled-p)
	      :help "Discard current buffer" :image "close")
 (exit-emacs :image "exit" :command save-buffers-kill-emacs :help "Offer to save unsaved buffers, then exit Emacs")
 (spell-buffer :image "spell" :command ispell-buffer :help "Check spelling of selected buffer")
 (info :image "info" :command info :help "Enter Info, the documentation browser"))

Documentation

A meaning alist with definition of the default buttons.

The following buttons are available:

  open-file, dired, save-buffer,
  undo, cut, copy, paste, search-replace, print-buffer,
  spell-buffer, info.
  new-file, write-file, search-forward,
  customize, help, kill-buffer, exit-emacs.

To reproduce the default toolbar with use as BUTTON in toolbarx-install-toolbar:

(toolbarx-install-toolbar
 '((open-file dired kill-buffer save-buffer write-file undo cut
               copy paste search-forward print-buffer customize help))
 toolbarx-default-toolbar-meaning-alist)

Ps.: there are more buttons available than suggested in the expression above.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/toolbar-x.el
(defconst toolbarx-default-toolbar-meaning-alist
  '((separator :image "sep" :command t :enable nil :help "")

    (new-file
     :image "new"
     :command find-file
     :enable (not (window-minibuffer-p
                    (frame-selected-window menu-updating-frame)))
     :help "Specify a new file's name, to edit the file")

    (open-file :image "open"
               :command menu-find-file-existing
               :enable (not (window-minibuffer-p
                             (frame-selected-window menu-updating-frame)))
               :help "Read a file into an Emacs buffer")

    (dired :image "diropen"
           :command dired
           :help "Read a directory, operate on its files")

    (save-buffer :image "save"
                 :command save-buffer
                 :enable (and
                           (buffer-modified-p)
                           (buffer-file-name (buffer-base-buffer))
                           (not (window-minibuffer-p
                                 (frame-selected-window menu-updating-frame))))
                 :help "Save current buffer to its file"
                 :visible (or (buffer-file-name (buffer-base-buffer))
                              (not (eq 'special
                                       (get major-mode 'mode-class)))))

    (write-file :image "saveas"
                :command write-file
                :enable (not
                         (window-minibuffer-p
                          (frame-selected-window menu-updating-frame)))
                :help "Write current buffer to another file"
                :visible (or (buffer-file-name (buffer-base-buffer))
                             (not (eq 'special (get major-mode 'mode-class)))))

    (undo :image "undo"
          :command undo
          :enable (and (not buffer-read-only)
                        (not (eq t buffer-undo-list))
                        (if (eq last-command #'undo)
                            pending-undo-list
                          (consp buffer-undo-list)))
          :help "Undo last operation"
          :visible (not (eq 'special (get major-mode 'mode-class))))

    (cut :image "cut"
         :help "Delete text in region and copy it to the clipboard"
         :command clipboard-kill-region
         :visible (not (eq 'special (get major-mode 'mode-class))))

    (copy :image "copy"
          :help "Copy text in region to the clipboard"
          :command clipboard-kill-ring-save)

    (paste :image "paste"
           :help "Paste text from clipboard"
           :command clipboard-yank
           :visible (not (eq 'special (get major-mode 'mode-class))))

    (search-forward :command nonincremental-search-forward
                    :help "Search forward for a string"
                    :image "search")

    (search-replace
     :image "search-replace"
     :command query-replace
     :help "Replace string interactively, ask about each occurrence")

    (print-buffer :image "print"
                  :command print-buffer
                  :help "Print current buffer with page headings")

    (customize :image "preferences"
               :command customize
               :help "Edit preferences (customize)")

    (help :image "help"
          :command (lambda () (interactive) (popup-menu menu-bar-help-menu))
          :help "Pop up the Help menu")

    (kill-buffer :command kill-this-buffer
                 :enable (kill-this-buffer-enabled-p)
                 :help "Discard current buffer"
                 :image "close")

    (exit-emacs :image "exit"
                :command save-buffers-kill-emacs
                :help "Offer to save unsaved buffers, then exit Emacs")

    (spell-buffer :image "spell"
                  :command ispell-buffer
                  :help "Check spelling of selected buffer")

    (info :image "info"
          :command info
          :help "Enter Info, the documentation browser"))
  "A meaning alist with definition of the default buttons.
The following buttons are available:

  `open-file', `dired', `save-buffer',
  `undo', `cut', `copy', `paste', `search-replace', `print-buffer',
  `spell-buffer', `info'.
  `new-file', `write-file', `search-forward',
  `customize', `help', `kill-buffer', `exit-emacs'.

To reproduce the default toolbar with use as BUTTON
in `toolbarx-install-toolbar':

\(toolbarx-install-toolbar
 \\='((open-file dired kill-buffer save-buffer write-file undo cut
               copy paste search-forward print-buffer customize help))
 toolbarx-default-toolbar-meaning-alist)

Ps.: there are more buttons available than suggested in the
expression above.")