;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@712 Toggle the tool bar in all graphical frames (Tool Bar mode).

This is a minor mode.  If called interactively, toggle the `Tool-Bar
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `tool-bar-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
conveniently adding tool bar items.

(fn &optional ARG)
(defalias 'tool-bar-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\2039\305\202:\312\313 \211\203O\211@\314
\315#\210
A\266\202\202<\210\315\n\236\203_\315
B\316\315\n\"B\210\203p\317\320!G\305U\203p\321 \210\322\323\203z\324\202{\325\"\210\326\327!\203\235\303 \203\217\211\303 \232\203\235\330\331\203\231\332\202\232\333\334#\210\210\335 \210\207" [tool-bar-mode global-minor-modes default-frame-alist current-message toggle 1 nil t boundp delq 0 frame-list set-frame-parameter tool-bar-lines assq-delete-all default-value tool-bar-map tool-bar-setup run-hooks tool-bar-mode-hook tool-bar-mode-on-hook tool-bar-mode-off-hook called-interactively-p any message "Tool-Bar mode %sabled%s" "en" "dis" "" force-mode-line-update] 9 (#$ . 85) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar tool-bar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [tool-bar-mode-map tool-bar-mode-hook variable-documentation put "Hook run after entering or leaving `tool-bar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode tool-bar-mode boundp] 6)
#@132 Toggle tool bar on or off, based on the status of the current frame.
See `tool-bar-mode' for more information.

(fn &optional ARG)
(defalias 'toggle-tool-bar-mode-from-frame #[256 "\211\300=\203\301\302\303\304\"\305V\203\305\202\306!\207\301
!\207" [toggle tool-bar-mode frame-parameter nil tool-bar-lines 0 1] 5 (#$ . 2219) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
#@208 Keymap for the tool bar.

To override the global tool bar, define this variable
buffer-locally and add the items you want to it with
`tool-bar-add-item', `tool-bar-add-item-from-menu' and related
functions.
(defvar tool-bar-map (make-sparse-keymap) (#$ . 2621))
(byte-code "\300\301\302\303\304!\305BB\"\207" [global-set-key [tool-bar] menu-item purecopy "tool bar" (ignore :filter tool-bar-make-keymap)] 5)
(defconst tool-bar-keymap-cache (make-hash-table :weakness t :test 'equal))
#@205 Generate an actual keymap from `tool-bar-map'.
Its main job is to figure out which images to use based on the display's
color capability and based on the available image libraries.

(fn &optional IGNORE)
(defalias 'tool-bar-make-keymap #[256 "\302 B\303
	\"\206\304
\305 	#\207" [tool-bar-map tool-bar-keymap-cache frame-terminal gethash puthash tool-bar-make-keymap-1] 6 (#$ . 3112)])
#@65 Generate an actual keymap from `tool-bar-map', without caching.
(defalias 'tool-bar-make-keymap-1 #[0 "\301\302\"\207" [tool-bar-map mapcar #[257 "\300\211\243\242\301=\203u\3028:\203\303\202\302\233\211\262\203u\304
\305\"\211\262\203u
:\203u
@\306=\204u\307@!\203u\310 \204F\300\262\202u\311!\211\203S\312
!\204Y\313
\314\"\262
\315!\262\3028:\203i\303\202j\302\233\262\316\305#\266\207" [nil menu-item 4 5 plist-get :image image fboundp display-images-p eval image-mask-p append (:mask heuristic) copy-sequence plist-put] 8 "\n\n(fn BIND)"]] 3 (#$ . 3507)])
#@713 Add an item to the tool bar.
ICON names the image, DEF is the key definition and KEY is a symbol
for the fake function key in the menu keymap.  Remaining arguments
PROPS are additional items to add to the menu item specification.  See
Info node `(elisp)Tool Bar'.  Items are added from left to right.

ICON is the base name of a file containing the image to use.  The
function will first try to use low-color/ICON.xpm if `display-color-cells'
is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
ICON.xbm, using `find-image'.

Use this function only to make bindings in the global value of `tool-bar-map'.
To define items in any other map, use `tool-bar-local-item'.

(fn ICON DEF KEY &rest PROPS)
(defalias 'tool-bar-add-item #[899 "\301\302&\207" [tool-bar-map apply tool-bar-local-item] 11 (#$ . 4109)])
#@75 Return an expression that evaluates to an image spec for ICON.

(fn ICON)
(defalias 'tool-bar--image-expression #[257 "\300\301\302\"\300\301\303\"
\304=?\205\302D
\304=?\205\303D\244\305\306\307\310PF\305\306\307\311\310QF\312\305\313\307	\314PF\"\312\305\315\307\n\316PF\"\317\320\321\322\nFDD\323\322	FDD\324\322	EDDF\325BB\207" [face-attribute tool-bar :foreground :background unspecified :type xpm :file ".xpm" "low-color/" append pbm ".pbm" xbm ".xbm" find-image cond (not (display-color-p)) quote (< (display-color-cells) 256) t (t)] 17 (#$ . 4943)])
#@587 Add an item to the tool bar in map MAP.
ICON names the image, DEF is the key definition and KEY is a symbol
for the fake function key in the menu keymap.  Remaining arguments
PROPS are additional items to add to the menu item specification.  See
Info node `(elisp)Tool Bar'.  Items are added from left to right.

ICON is the base name of a file containing the image to use.  The
function will first try to use low-color/ICON.xpm if `display-color-cells'
is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
ICON.xbm, using `find-image'.

(fn ICON DEF KEY MAP &rest PROPS)
(defalias 'tool-bar-local-item #[1156 "\300!\301\302!\303\304!	\305	BBBBB#\210\306 \207" [tool-bar--image-expression define-key-after vector menu-item symbol-name :image force-mode-line-update] 15 (#$ . 5539)])
#@647 Define tool bar binding for COMMAND in keymap MAP using the given ICON.
This makes a binding for COMMAND in `tool-bar-map', copying its
binding from the menu bar in MAP (which defaults to `global-map'), but
modifies the binding by adding an image specification for ICON.  It
finds ICON just like `tool-bar-add-item'.  PROPS are additional
properties to add to the binding.

MAP must contain appropriate binding for `[menu-bar]' which holds a keymap.

Use this function only to make bindings in the global value of `tool-bar-map'.
To define items in any other map, use `tool-bar-local-item-from-menu'.

(fn COMMAND ICON &optional MAP &rest PROPS)
(defalias 'tool-bar-add-item-from-menu #[898 "\300\301\302\303!&\207" [apply tool-bar-local-item-from-menu default-value tool-bar-map] 11 (#$ . 6353)])
#@502 Define local tool bar binding for COMMAND using the given ICON.
This makes a binding for COMMAND in IN-MAP, copying its binding from
the menu bar in FROM-MAP (which defaults to `global-map'), but
modifies the binding by adding an image specification for ICON.  It
finds ICON just like `tool-bar-add-item'.  PROPS are additional
properties to add to the binding.

FROM-MAP must contain appropriate binding for `[menu-bar]' which
holds a keymap.

(fn COMMAND ICON IN-MAP &optional FROM-MAP &rest PROPS)
(defalias 'tool-bar-local-item-from-menu #[1155 "
\204\262\301\302\"\303\"\304!\305\211\211\203Q\211@\306
!\203J\211G\307V\203J\301\310\311O\"
\211GSH\312!\203H\2119\203H
\262\211\262\266
A\266\202\202\210
9\203b\313!\203b\314!\262\211A\236\211A@\315=\203\203\316	\317!\320A\321	D\f##\210\202\260\211A\262
\316	\317!A\211:\203\236\211@:\203\236\211A\262
\320\315@E\321\nD
#\262
#\210\322 \207" [global-map lookup-key [menu-bar] where-is-internal tool-bar--image-expression nil vectorp 1 0 -1 keymapp boundp eval menu-item define-key-after vector append :image force-mode-line-update] 19 (#$ . 7165)])
(defalias 'tool-bar-setup #[0 "\303\304!\305\306\307\310\311\312\313\314&\210\305\315\316\310\311\317\313\314&\210\305\320\321\310\313\314%\210\305\322\323\310\313\314%\210\305\324\325\310\311\326%\210\327\330\331!\332	#\210\305\333\334\310#\210\327\330\331!\335	#\210\305\336\n\337\"\340\310\313\314%\210\305\336\n\341\"\342\310\313\314%\210\305\336\n\343\"\344\310\313\314%\210\327\330\331!\345	#\210\305\346\347\310\311\350\313\314&\207" [tool-bar-separator-image-expression menu-bar-separator menu-bar-edit-menu tool-bar--image-expression "separator" tool-bar-add-item-from-menu find-file "new" nil :label "New File" :vert-only t menu-find-file-existing "open" "Open" dired "diropen" kill-this-buffer "close" save-buffer "save" "Save" define-key-after default-value tool-bar-map [separator-1] undo "undo" [separator-2] lookup-key [cut] "cut" [copy] "copy" [paste] "paste" [separator-3] isearch-forward "search" "Search"] 8])
(byte-code "\300\301!\203\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317\320\321&
\210\322\323!\207" [featurep move-toolbar custom-declare-variable tool-bar-position funcall function #[0 "\300\207" [top] 1 ""] "Specify on which side the tool bar shall be.\nPossible values are `top' (tool bar on top), `bottom' (tool bar at bottom),\n`left' (tool bar on left) and `right' (tool bar on right).\nThis option has effect only on graphical frames and only\nif Emacs was built with GTK.\nCustomize `tool-bar-mode' if you want to show or hide the tool bar." :version "24.1" :type (choice (const top) (const bottom) (const left) (const right)) :group frames :initialize custom-initialize-default :set #[514 "\300\"\210\301\302BC!\207" [set-default modify-all-frames-parameters tool-bar-position] 5 "\n\n(fn SYM VAL)"] provide tool-bar] 14)