;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316\317\310\301&\207" [custom-declare-group gmm nil "Utility functions for Gnus, Message and MML." :prefix "gmm-" :version "22.1" :group lisp custom-declare-variable gmm-verbose 7 "Integer that says how verbose gmm should be.\nThe higher the number, the more messages will flash to say what\nit did. At zero, it will be totally mute; at five, it will\ndisplay most important messages; and at ten, it will keep on\njabbering all the time." :type integer] 10) #@101 Potentially concat a list of regexps into a single one. The concatenation is done with logical ORs. (defalias 'gmm-regexp-concat #[(regexp) "\204\301\207;\203 \207<\205\302\303\304#\207" [regexp nil mapconcat #[(elt) "\301\302Q\207" [elt "\\(" "\\)"] 3] "\\|"] 4 (#$ . 944)]) #@254 If LEVEL is lower than `gmm-verbose' print ARGS using `message'. Guideline for numbers: 1 - error messages 3 - non-serious error messages 5 - messages for things that take a long time 7 - not very important messages on stuff 9 - messages inside loops. (defalias 'gmm-message #[(level &rest args) " X\203 \303\304\n\"\207\303\305\n\"\207" [level gmm-verbose args apply message format] 3 (#$ . 1238)]) #@94 Beep an error if LEVEL is equal to or less than `gmm-verbose'. ARGS are passed to `message'. (defalias 'gmm-error #[(level &rest args) "\304! X\203+\305\306\n\"\210\307 \210\310\311!\203*\312\304!Z_\211\313U\204*\314 !\210)\310\207" [level gmm-verbose args duration floor apply message ding nil floatp 10 0 sit-for] 4 (#$ . 1647)]) #@32 Non-nil if SYMBOL is a widget. (defalias 'gmm-widget-p #[(symbol) "\301N\207" [symbol widget-type] 2 (#$ . 1994)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\311\317\313\320&\210\321\322\323\324\313\325\326\327&\207" [autoload widget-create-child-value "wid-edit" widget-convert widget-default-get define-widget gmm-tool-bar-item lazy "Tool bar list item." :tag "Tool bar item" :type (choice (list :tag "Command and Icon" (function :tag "Command") (string :tag "Icon file") (choice (const :tag "Default map" nil) (const :tag "No menu" t) (sexp :tag "Other map")) (plist :inline t :tag "Properties")) (list :tag "Separator" (const :tag "No command" gmm-ignore) (string :tag "Icon file") (const :tag "No map") (plist :inline t :tag "Properties"))) gmm-tool-bar-zap-list "Tool bar zap list." "Tool bar zap list" (choice (const :tag "Zap all" t) (const :tag "Keep all" nil) (list (set :inline t (const new-file) (const open-file) (const dired) (const kill-buffer) (const save-buffer) (const write-file) (const undo) (const cut) (const copy) (const paste) (const search-forward) (const print-buffer) (const customize) (const help)) (repeat :inline t :tag "Other" (symbol :tag "Icon item")))) custom-declare-variable gmm-tool-bar-style (if (and (boundp 'tool-bar-mode) tool-bar-mode (memq (display-visual-class) (list 'static-gray 'gray-scale 'static-color 'pseudo-color))) 'gnome 'retro) "Preferred tool bar style." (choice (const :tag "GNOME style" gnome) (const :tag "Retro look" retro)) :group gmm] 8) #@747 Make a tool bar from ICON-LIST. Within each entry of ICON-LIST, the first element is a menu command, the second element is an icon file name and the third element is a test function. You can use \[describe-key] to find out the name of a menu command. The fourth and all following elements are passed as the PROPS argument to the function `tool-bar-local-item'. If ZAP-LIST is a list, remove those item from the default `tool-bar-map'. If it is t, start with a new sparse map. You can use \[describe-key] to find out the name of an icon item. When \[describe-key] shows " runs the command find-file", then use `new-file' in ZAP-LIST. DEFAULT-MAP specifies the default key map for ICON-LIST. (defalias 'gmm-tool-bar-from-list #[(icon-list zap-list default-map) "\306=\203 \307 \202\310 !<\203/\311\211\203.\f@\312\n\313 !\311#\210\fA\211\204*\314\315 9\203<\316 !\202= \"\210\n)\207" [zap-list tool-bar-map map key --dolist-tail-- icon-list t make-sparse-keymap copy-keymap nil define-key vector mapc #[(el) "@A@\3068\206\f AAA\211\307=\203>\310\311!\2030\312\311\f\313\211\314\313\n&\210\202`\312\315\f\313\211\314\313\n&\210\202` \316=\203T\312\311\f \317\f!\n&\210\202`\312\320 \f J\n&\210,\316\207" [el default-map props fmap icon command 2 gmm-ignore fboundp tool-bar-local-item apply nil :enable tool-bar-add-item t intern tool-bar-local-item-from-menu map] 10] eval] 5 (#$ . 3582)]) #@140 Create function NAME. If FUNCTION exists, then NAME becomes an alias for FUNCTION. Otherwise, create function NAME with ARG-LIST and BODY. (defalias 'defun-gmm '(macro . #[(name function arg-list &rest body) "\305!\211\203\306\307\nD\307DE\202\310\n \fBBB)\207" [function defined-p name arg-list body fboundp defalias quote defun] 5 (#$ . 5075)])) #@97 Customize customization group for MODE. If mode is nil, use `major-mode' of the current buffer. (defalias 'gmm-customize-mode #[(&optional mode) "\302\206\303\304 !\305\306\"\210\307\310\")!!\207" [mode major-mode customize-group intern symbol-name string-match "^\\(.+\\)-mode$" match-string 1] 5 (#$ . 5436) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias gmm-format-time-string format-time-string nil make-obsolete "26.1" provide gmm-utils] 4)