ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gmm-utils.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 946)])
#@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 (#$ . 1240)])
#@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* \304!Z\312_\211\313U\204* \314 !\210)\310\207" [level gmm-verbose args duration floor apply message ding nil floatp 10 0 sit-for] 3 (#$ . 1649)])
#@32 Non-nil if SYMBOL is a widget.
(defalias 'gmm-widget-p #[(symbol) "\301N\207" [symbol widget-type] 2 (#$ . 1996)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332&\210\305\333\334\335!\2034 \335\2025 \306\336\337\340\341\342&\210\305\343\334\335!\203I \335\202J \306\344\337\345\341\346&\210\347\350\351\352\341\353\354\355&\207" [autoload widget-create-child-value "wid-edit" widget-convert widget-default-get define-widget gmm-lazy default "Base widget for recursive data structures.\n\nThis is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility." :format "%{%t%}: %v" :convert-widget widget-value-convert-widget :value-create #[(widget) "\303\304\"\303\305\"\306\307\310\311 !\n#C#*\207" [widget type value widget-get :value :type widget-put :children widget-create-child-value widget-convert] 7] :value-delete widget-children-value-delete :value-get #[(widget) "\301\302\303\"@!\207" [widget widget-value widget-get :children] 4] :value-inline #[(widget) "\301\302\303\"@\304\"\207" [widget widget-apply widget-get :children :value-inline] 4] :default-get #[(widget) "\301\302\303\304\"!!\207" [widget widget-default-get widget-convert widget-get :type] 5] :match #[(widget value) "\302\303\304\305\"!\306 #\207" [widget value widget-apply widget-convert widget-get :type :match] 5] :validate #[(widget) "\301\302\303\"@\304\"\207" [widget widget-apply widget-get :children :validate] 4] gmm-tool-bar-item gmm-widget-p 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 (and (fboundp 'display-visual-class) (not (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] 22)
#@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]
<menu-entry> 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] <icon> to find out the name of an icon
item. When \[describe-key] <icon> shows "<tool-bar> <new-file>
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) "\305=\203 \306 \202 \307 !<\203/ \310\211\203. @\311 \312\n!\310#\210 A\211\204 *\313\314\f9\203< \315\f!\202= \f\"\210 )\207" [zap-list tool-bar-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\232\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 tool-bar-map] 10] eval] 5 (#$ . 4782)])
#@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 (#$ . 6283)]))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias gmm-image-search-load-path image-search-load-path gmm-image-load-path-for-library image-load-path-for-library] 3)
#@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 (#$ . 6818) nil])
#@124 Compatibility function for `write-region'.
In XEmacs, the seventh argument of `write-region' specifies the
coding-system.
(defalias 'gmm-write-region #[(start end filename &optional append visit lockname mustbenew) "\210\306 \n \f
&\207" [mustbenew start end filename append visit write-region lockname] 8 (#$ . 7147)])
(defalias 'gmm-called-interactively-p '(macro . #[(kind) "\3011 \3021 \303\304!\210\305D00\2070\210\306\207\210\307\207" [kind (void-function) (wrong-number-of-arguments) eval (called-interactively-p 'any) called-interactively-p (called-interactively-p) (interactive-p)] 2]))
#@335 Make temporary function bindings.
The bindings can be recursive and the scoping is lexical, but capturing
them in closures will only work if `lexical-binding' is in use. But in
Emacs 24.2 and older, the lexical scoping is handled via `lexical-let'
rather than relying on `lexical-binding'.
(fn ((FUNC ARGLIST BODY...) ...) FORM...)
(defalias 'gmm-labels '(macro . #[(bindings &rest body) "\302\303!\210\304\305!\203 \305\202 \306 BB\207" [bindings body require cl fboundp cl-labels labels] 3 (#$ . 7759)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gmm-labels lisp-indent-function 1 edebug-form-spec ((&rest (sexp sexp &rest form)) &rest form)] 4)
#@264 Use FORMAT-STRING to format the time TIME, or now if omitted.
The optional TZ specifies the time zone in a number of seconds; any
other non-nil value will be treated as 0. Note that both the format
specifiers `%Z' and `%z' will be replaced with a numeric form.
(defalias 'gmm-format-time-string #[(format-string &optional time tz) "\247\203\262 \306U\204\262 \306\307\310\211\211 \203! \311!\202# \312 \313A@\314 @[#\211\306Y\203@ A \240\210\202O A \315\\\240\210\211@S\240\210\316\317\306Y\203[ \320\202\\ \321\322!\323\245\322!\323\246\324\245$\325\326
#\203\237 \306\225\211\306\224Z\327\246\306U\203\222
\n\327ZO B B\202\232
\nO B\n\202j
\310O B\330\331\332 \237\"\"-\207\330 \307#\207" [tz rest nd ls case-fold-search st 0 t nil copy-sequence current-time - current-time-zone 65536 format "%s%02d%02d" "+" "-" abs 3600 60 string-match "%+z" 2 format-time-string apply concat time format-string] 6 (#$ . 8438)])
(provide 'gmm-utils)
Kontol Shell Bypass