ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-ems.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar gnus-mouse-2 [mouse-2])
(defvar gnus-down-mouse-3 [down-mouse-3])
(defvar gnus-down-mouse-2 [down-mouse-2])
(defvar gnus-widget-button-keymap nil)
(defvar gnus-mode-line-modified '("**" "--"))
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\210\300\306\307\"\210\300\310\311\"\207" [autoload gnus-xmas-define "gnus-xmas" gnus-xmas-redefine gnus-get-buffer-create "gnus" nnheader-find-etc-directory "nnheader" smiley-region "smiley"] 3)
#@44 Delete all overlays in the current buffer.
(defalias 'gnus-kill-all-overlays #[nil "\303 \304\305\304@A\244\"\n\205 \306\n\211A\242!\210\202 +\207" [overlayss buffer-read-only overlays overlay-lists nil delq delete-overlay] 4 (#$ . 869)])
(defalias 'gnus-mule-max-width-function #[(el max-width) "\302\303\304CDD\305B\306\307\310 E\311\312 E\313BBBE\207" [el max-width let* val eval ((valstr (if (numberp val) (int-to-string val) val))) if > (length valstr) truncate-string-to-width valstr (valstr)] 7])
(funcall '(lambda (#1=#:def-tmp-var) (defvar gnus-mouse-face-prop #1# "Property used for highlighting mouse regions.")) 'mouse-face)
(defalias 'gnus-ems-redefine #[nil "\301\302!\205! \303\304!\210\305\306\307\"\210\310\300!\203 \311\312\311\313\"\"\305\314\315\"\207" [gnus-check-before-posting featurep mule (lambda (#1=#:def-tmp-var) (defvar gnus-summary-display-table #1# "Display table used in summary mode buffers.")) nil defalias gnus-max-width-function gnus-mule-max-width-function boundp delq long-lines control-chars gnus-summary-line-format-spec #[nil " \n \261\210\306`\f\307\310
G\311V\203 \312
\311\"\202
#\261\210`$\210\313\314\261\207" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines put-text-property format "%4d: %-20s" 20 truncate-string-to-width " " "\n" gnus-tmp-name gnus-tmp-closing-bracket gnus-mouse-face-prop gnus-mouse-face gnus-tmp-subject-or-nil] 9]] 5])
#@40 Select the lowest window on the frame.
(defalias 'gnus-select-lowest-window #[nil "\302 \303\304 8\305\306!\210\307 !*\207" [bottom-edge lowest-window selected-window 3 window-edges walk-windows #[(w) "\304\305!8\n W\205 \211)\207" [w next-bottom-edge bottom-edge lowest-window 3 window-edges] 3] select-window] 3 (#$ . 2361)])
#@35 Say whether the region is active.
(defalias 'gnus-region-active-p #[nil "\302\300!\205 \205 \302\301!\205 \207" [transient-mark-mode mark-active boundp] 2 (#$ . 2704)])
#@72 Non-nil means the mark and region are currently active in this buffer.
(defalias 'gnus-mark-active-p #[nil "\207" [mark-active] 1 (#$ . 2884)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload gnus-alive-p "gnus-util" mm-disable-multibyte "mm-util"] 3)
(defalias 'gnus-image-type-available-p #[(type) "\301\302!\205 \301\303!\203 \303 \202 \304\205 \302!\207" [type fboundp image-type-available-p display-images-p t] 2])
(defalias 'gnus-create-image #[(file &optional type data-p &rest props) "\305\306\"\211\203 \307\310\311 !#\307\312\313 !#\3141( \315\316\n \f%0\202* \210\317)\207" [props face file type data-p plist-get :face plist-put :foreground face-foreground :background face-background (error) apply create-image nil] 7])
(defalias 'gnus-put-image #[(glyph &optional string category) "`\304 \n\206 \305\"\210\306`\307 $\210\n\204 \306`S`\310\311$\210 )\207" [point glyph string category insert-image " " put-text-property gnus-image-category gnus-image-text-deletable t] 5])
#@59 Remove the image matching IMAGE and CATEGORY found first.
(defalias 'gnus-remove-image #[(image &optional category) "e\305\211?\205a \306\n\307\"\211\204& \310\n\307\"\211\205a \306\n\307\"\211\205a \310\n\307\"\206. d \232\203S \306\n\311\"\f\232\203S \312\n\307\305$\210\306\n\313\"\203 \n|\210\202 dU\204 \305\211\202 +\207" [end val start image category nil get-text-property display next-single-property-change gnus-image-category put-text-property gnus-image-text-deletable] 6 (#$ . 3905)])
(defalias 'gnus-string-mark-left-to-right '(macro . #[(string) "\301\302!\203\n \302D\207\207" [string fboundp bidi-string-mark-left-to-right] 2]))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\315\316!\207" [defalias gnus-window-inside-pixel-edges fboundp window-inside-pixel-edges window-pixel-edges gnus-set-process-plist set-process-plist gnus-process-plist process-plist gnus-process-get process-get gnus-process-put process-put provide gnus-ems] 4)
Kontol Shell Bypass