HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/gnus/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/gnus/smiley.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315\316\317\320\321\322\323\324\307\304&
\207" [require nnheader gnus-art custom-declare-group smiley nil "Turn :-)'s into real images." :group gnus-visual custom-declare-variable smiley-style (if (and (fboundp 'face-attribute) (condition-case nil (>= (face-attribute 'default :height) 160) (error nil))) 'medium 'low-color) "Smiley style." :type (choice (const :tag "small, 3 colors" low-color) (const :tag "medium, ~10 colors" medium) (const :tag "dull, grayscale" grayscale)) :set #[(symbol value) "\303	\"\210\304 \305 \207" [symbol value smiley-data-directory set-default smiley-directory smiley-update-cache] 3] :initialize custom-initialize-default :version "23.1"] 14)
#@144 Return a the location of the smiley faces files.
STYLE specifies which style to use, see `smiley-style'.  If STYLE
is nil, use `smiley-style'.
(defalias 'smiley-directory #[(&optional style) "\204	\302\303	\304\267\202\305\202\306\202\307\202\310P!\207" [style smiley-style nnheader-find-etc-directory "images/smilies" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (low-color 14 medium 18 grayscale 22)) "" "/medium" "/grayscale" nil] 4 (#$ . 1172)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313&\210\300\314\315\316\317\320\310\321\304\322\306\307\312\313&
\210\300\323\324\325\317\320\310\326\312\313&	\207" [custom-declare-variable smiley-data-directory (smiley-directory) "Location of the smiley faces files." :set #[(symbol value) "\302	\"\210\303 \207" [symbol value set-default smiley-update-cache] 3] :initialize custom-initialize-default :type directory :group smiley smiley-regexp-alist '(("\\(;-)\\)\\W" 1 "blink") ("[^;]\\(;)\\)\\W" 1 "blink") ("\\(:-]\\)\\W" 1 "forced") ("\\(8-)\\)\\W" 1 "braindamaged") ("\\(:-|\\)\\W" 1 "indifferent") ("\\(:-[/\\]\\)\\W" 1 "wry") ("\\(:-(\\)\\W" 1 "sad") ("\\(X-)\\)\\W" 1 "dead") ("\\(:-{\\)\\W" 1 "frown") ("\\(>:-)\\)\\W" 1 "evil") ("\\(;-(\\)\\W" 1 "cry") ("\\(:-D\\)\\W" 1 "grin") ("\\(\\^?:-?)\\)\\W" 1 "smile")) "A list of regexps to map smilies to images.\nThe elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in\nregexp to replace with IMAGE.  IMAGE is the name of an image file in\n`smiley-data-directory'." :version "24.1" (repeat (list regexp (integer :tag "Regexp match number") (string :tag "Image name"))) #[(symbol value) "\302	\"\210\303 \207" [symbol value set-default smiley-update-cache] 3] gnus-smiley-file-types (let ((types (list "pbm"))) (when (gnus-image-type-available-p 'xpm) (push "xpm" types)) (when (gnus-image-type-available-p 'gif) (push "gif" types)) types) "List of suffixes on smiley file names to try." (repeat string)] 14)
(defvar smiley-cached-regexp-alist nil)
(defalias 'smiley-update-cache #[nil "\306	9\203\f	J\202
	\306\211\205r@\f\306\211\204I\211A\242\211\203I\307\310\311\n8\312
Q\"\211!\204\306\211\203$
\203i\313\314
!\306\315\316%\211\203h\n@\nA@EB)+A\211\204\306*\207" [smiley-cached-regexp-alist smiley-regexp-alist elt --dolist-tail-- gnus-smiley-file-types type nil file-exists-p expand-file-name 2 "." gnus-create-image intern :ascent center file types smiley-data-directory image] 7])
#@110 Replace in the region `smiley-regexp-alist' matches with corresponding images.
A list of images is returned.
(defalias 'smiley-region #[(start end) "\306 \205x\204\f\307 \210\212	\206e\310\211\211\211\310\211\203t@\211A@\3118b\210\312@\313#\203k\314
!
\225b\210
\224
\225|\210\f\2038\fB\315\316!\210\317\316\f\"\210\320\f\n\316#\210\2028A\211\204&*.\207" [smiley-cached-regexp-alist start string images image group display-graphic-p smiley-update-cache nil 2 re-search-forward t match-string gnus-add-wash-type smiley gnus-add-image gnus-put-image beg entry --dolist-tail-- end] 6 (#$ . 3698) "r"])
#@134 Run `smiley-region' at the BUFFER, specified in the argument or
interactively.  If there's no argument, do it at the current buffer.
(defalias 'smiley-buffer #[(&optional buffer) "\212\203\n\301!q\210\302ed\")\207" [buffer get-buffer smiley-region] 3 (#$ . 4348) "bBuffer to run smiley-region: "])
#@112 Toggle displaying smiley faces in article buffer.
With arg, turn displaying on if and only if arg is positive.
(defalias 'smiley-toggle-buffer #[(&optional arg) "\304\305!!\205+rq\210\306\n\247\203\n\307V\202\310>?\203'\311ed\"\202*\312\310!*\207" [gnus-article-buffer inhibit-read-only arg gnus-article-wash-types buffer-live-p get-buffer t 0 smiley smiley-region gnus-delete-images] 3 (#$ . 4656) "P"])
#@94 Toggle displaying smiley faces.
With arg, turn displaying on if and only if arg is positive.
(defalias 'smiley-mouse-toggle-buffer #[(event) "\212\302 \303\216\304	!\210\305 +\207" [#1=#:wconfig event current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] mouse-set-point smiley-toggle-buffer] 2 (#$ . 5078) "e"])
(provide 'smiley)