;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:04:16 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/smiley-ems.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`smiley-ems.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\305\306\307%\207" [:group require nnheader custom-declare-group smiley nil "Turn :-)'s into real images." gnus-visual] 6) #@38 *Location of the smiley faces files. (custom-declare-variable 'smiley-data-directory '(nnheader-find-etc-directory "smilies") '(#$ . -787) :type 'directory :group 'smiley) #@205 *A list of regexps to map smilies to images. The elements are (REGEXP MATCH FILE), where MATCH is the submatch in rgexp to replace with IMAGE. IMAGE is the name of a PBM file in `smiley-data-directory'. (custom-declare-variable 'smiley-regexp-alist ''(("\\([:;]-?)\\)\\W" 1 "smile.pbm") ("\\(:-[/\\]\\)\\W" 1 "wry.pbm") ("\\(:-[({]\\)\\W" 1 "frown.pbm")) '(#$ . -966) :type '(repeat (list regexp (integer :tag "Regexp match number") (string :tag "Image name"))) :set (lambda (symbol value) (set-default symbol value) (smiley-update-cache)) :initialize 'custom-initialize-default :group 'smiley) (byte-code "\302\300!\204\303\300 B\303\207" [smiley-cached-regexp-alist current-load-list boundp nil] 2) (defalias 'smiley-update-cache #[nil "\306\211\2037\n@ \307 \310 \311 8\f\312\257C!\211 \203/ @ A@ EB*\nA\211\204*\306\207" [smiley-regexp-alist elt #1=#:--dolist-temp--89069 smiley-data-directory data-directory :type nil find-image pbm 2 center :file :ascent image smiley-cached-regexp-alist] 8]) #@56 Non-nil means smilies in the buffer will be displayed. (defvar smiley-active nil (#$ . 1995)) (byte-code "\303\304!\210\305\301!\204\306 \307\310\311#\210\307\312\313#\210)\301\nB\303\207" [map smiley-mouse-map current-load-list make-variable-buffer-local smiley-active boundp make-sparse-keymap define-key [down-mouse-2] ignore [mouse-2] smiley-mouse-toggle-buffer] 4) #@80 Replace in the region `smiley-regexp-alist' matches with corresponding images. (defalias 'smiley-region #[(start end) "\306\307!\205\216\307 \205\216\310\311\312 \"\"\210\n\204\313 \210\212\206 e\314\211\211\n\314\211\203\210@\211A@\3158b\210\316@ \317#\203 \203D\320 \224 \225\"\321\f\322\323\324 BB#\210\321\f\325\326#\210\321\f\327\317#\210\321\f\330\331#\210\321\f\332#\210\202DA\211\2042.\317\211\207" [start end smiley-cached-regexp-alist image overlay group fboundp display-graphic-p mapcar #[(o) "\301\302\"\302=\205\f\303!\207" [o overlay-get smiley delete-overlay] 3] overlays-in smiley-update-cache nil 2 re-search-forward t make-overlay overlay-put display when smiley-active mouse-face highlight smiley help-echo "mouse-2: toggle smilies in buffer" keymap beg entry #1=#:--dolist-temp--89070 smiley-mouse-map] 7 (#$ . 2379) "r"]) #@94 Toggle displaying smiley faces. With arg, turn displaying on if and only if arg is positive. (defalias 'smiley-toggle-buffer #[(&optional arg) "\247\203 \302V\211\207 ?\211\207" [arg smiley-active 0] 2 (#$ . 3275) "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\300\213)\207" [((byte-code "\301!\210\302 \207" [event mouse-set-point smiley-toggle-buffer] 2))] 1 (#$ . 3506) "e"]) #@127 Display textual emoticaons ("smilies") as small graphical icons. With arg, turn displaying on if and only if arg is positive. (defalias 'gnus-smiley-display #[(&optional arg) "\212q\210\214~\210\302 \210\303ed\"\210 \247\205 \304X\205\305 !*\207" [gnus-article-buffer arg article-goto-body smiley-region 0 smiley-toggle-buffer] 3 (#$ . 3779) "P"]) (provide 'smiley)