1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp /
Filename : tool-bar.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/tool-bar.el
;;; in Emacs version 24.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@325 Toggle the tool bar in all graphical frames (Tool Bar mode).
With a prefix argument ARG, enable Tool Bar mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
Tool Bar mode if ARG is omitted or nil.

See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
conveniently adding tool bar items.
(defalias 'tool-bar-mode #[(&optional arg) "\306 	\307=\203�\n?\202�\310	!\311V\211\203�\312\202�\311\313 \314\211\2037�
@\315\f\316#\210
A\211\204'�*\316\236\203J�\316B\317\316\"B)\n\203[�\320\321!G\312U\203[�\322 \210\323\324\n\203e�\325\202f�\326\"\210\327\330!\203\213�\331\302!\210\306 \203~�\306 \232\203\213�\332\333\n\203\210�\334\202\211�\335\"\210)\336 \210\n\207" [#1=#:last-message arg tool-bar-mode val frame --dolist-tail-- current-message toggle prefix-numeric-value 0 1 frame-list nil 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 customize-mark-as-set message "Tool-Bar mode %sabled" "en" "dis" force-mode-line-update default-frame-alist] 5 (#$ . 550) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\303\211%\207" [tool-bar-mode-map add-minor-mode tool-bar-mode nil boundp] 6)
#@112 Toggle tool bar on or off, based on the status of the current frame.
See `tool-bar-mode' for more information.
(defalias 'toggle-tool-bar-mode-from-frame #[(&optional arg) "\301=\203�\302\303\304\305\"\306V\203�\306\202�\307!\207\302!\207" [arg toggle tool-bar-mode frame-parameter nil tool-bar-lines 0 1] 4 (#$ . 1878) (list (or current-prefix-arg 'toggle))])
#@79 Keymap for the tool bar.
Define this locally to override the global tool bar.
(defvar tool-bar-map (make-sparse-keymap) (#$ . 2250))
(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))
#@182 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.
(defalias 'tool-bar-make-keymap #[(&optional _ignore) "\303 B\304	\n\"\206�\305	\306 \n#)\207" [tool-bar-map key tool-bar-keymap-cache frame-terminal gethash puthash tool-bar-make-keymap-1] 4 (#$ . 2612)])
#@65 Generate an actual keymap from `tool-bar-map', without caching.
(defalias 'tool-bar-make-keymap-1 #[nil "\301\302\"\207" [tool-bar-map mapcar #[(bind) "\304\211\n\243\242\305=\203r�\306\n8:\203�\307\202�\306\n\233\211\203r�\310\311\"\211\203r�	:\203r�	@\303=\204r�\312	@!\203r�\313 \204E�\304\202r�\314	!\211\203S�\315!\204X�\316\317\"\320\n!\306\n8:\203g�\307\202h�\306\n\233\321\311#\210)\n*\207" [plist image-exp bind image nil menu-item 4 5 plist-get :image fboundp display-images-p eval image-mask-p append (:mask heuristic) copy-sequence plist-put] 5]] 3 (#$ . 3008)])
#@682 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'.
(defalias 'tool-bar-add-item #[(icon def key &rest props) "\305\306	\n\f&\207" [icon def key tool-bar-map props apply tool-bar-local-item] 7 (#$ . 3607)])
#@64 Return an expression that evaluates to an image spec for ICON.
(defalias 'tool-bar--image-expression #[(icon) "\306\307\310\"\306\307\311\"\312=?\205�\310D	\312=?\205�\311	D\244\313\314\315\316PF\313\314\315\317\316QF\320\313\321\315\322PF\n\"\320\313\323\315\324PF\n\"\325\326\327\330
\fFDD\331\330
\fFDD\332\330\fEDDF.D\207" [fg bg colors icon xpm-spec xpm-lo-spec 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 pbm-spec xbm-spec] 9 (#$ . 4452)])
#@552 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'.
(defalias 'tool-bar-local-item #[(icon def key map &rest props) "\306!\307\n\310!\311\312!\f\313	
BBBBB#)\207" [icon image-exp map key def props tool-bar--image-expression define-key-after vector menu-item symbol-name :image] 9 (#$ . 5094)])
#@602 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'.
(defalias 'tool-bar-add-item-from-menu #[(command icon &optional map &rest props) "\304\305	\306\307!\n&\207" [command icon map props apply tool-bar-local-item-from-menu default-value tool-bar-map] 7 (#$ . 5898)])
#@445 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.
(defalias 'tool-bar-local-item-from-menu #[(command icon in-map &optional from-map &rest props) "\204�	\306\307\"\310\n\"\311
!\312\211\f\312\211\203j�@\313!\203a�G\314V\203a�\306\n\315\316O\"\211GSH\317!\203`�9\203`�*A\211\204%�*9\203~�\320!\203~�\321!A\236\211\211A@)\322=\203\250�\323 \324!\325A\326D!##\202\333�A\323 \324!A\211\":\203\312�\"@:\203\312�\"A\"\325\322@\"E\326D!#)#.\207" [from-map global-map menu-bar-map command keys icon 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 image-exp submap key k --dolist-tail-- kk m defn x in-map props rest] 8 (#$ . 6723)])
(defalias 'tool-bar-setup #[nil "\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\306\307\310\311\312\313\314\315\316\317&
\210\320\321!\207" [featurep move-toolbar custom-declare-variable tool-bar-position 'top "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).\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 #[(sym val) "\302	\"\210\303\304	BC!\207" [sym val set-default modify-all-frames-parameters tool-bar-position] 3] provide tool-bar] 14)