JezK
Edit File: tool-bar.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:56:22 2026 ;;; 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 \316 B\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 \f FDD\332\330\f EDDF.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 \211 A@)\322=\203\250 \323 \324!\325 A\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)