HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/tool-bar.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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\215\306 \203z\306 \232\203\215\331 \332\333\n\203\207\334\202\210\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 "" message "Tool-Bar mode %sabled%s" "en" "dis" force-mode-line-update default-frame-alist local] 5 (#$ . 409) (list (or current-prefix-arg 'toggle))])
(defvar tool-bar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" 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 (#$ . 2016) (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) (#$ . 2388))
(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 (#$ . 2750)])
#@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 (#$ . 3146)])
#@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 (#$ . 3745)])
#@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 (#$ . 4590)])
#@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#\210\314 )\207" [icon image-exp map key def props tool-bar--image-expression define-key-after vector menu-item symbol-name :image force-mode-line-update] 9 (#$ . 5232)])
#@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 (#$ . 6068)])
#@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!\203aG\314V\203a\306\n\315\316O\"\211GSH\317!\203`9\203`*A\211\204%*9\203~\320!\203~\321!A\236\211A@\322=\203\245\323 \324!\325A\326D!##\210\202\331A\323 \324!A\211\":\203\307\"@:\203\307\"A\"\325\322@\"E\326D!#)#\210\327 .\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 force-mode-line-update image-exp submap key k --dolist-tail-- kk m defn in-map props rest] 8 (#$ . 6893)])
(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)