ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/iimage.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&\210\310\311\302\312\313\314\306\301&\207" [custom-declare-group iimage nil "Support for inline images." :version "22.1" :group image custom-declare-variable iimage-mode-image-search-path "List of directories to search for image files for iimage-mode." :type (choice (const nil) (repeat directory))] 8)
(defvar iimage-mode-image-filename-regex (byte-code "\301\302\303\304\"\244\305\"P\207" [image-file-name-extensions "[-+./_0-9a-zA-Z]+\\." regexp-opt mapcar upcase t] 5))
#@271 Alist of filename REGEXP vs NUM.
Each element looks like (REGEXP . NUM).
NUM specifies which parenthesized expression in the regexp.
Examples of image filename patterns to match:
file://foo.png
\=`file://foo.png\='
\[\[foo.gif]]
<foo.png>
foo.JPG
(custom-declare-variable 'iimage-mode-image-regex-alist '`((,(concat "\\(`?file://\\|\\[\\[\\|<\\|`\\)?" "\\(" iimage-mode-image-filename-regex "\\)" "\\(\\]\\]\\|>\\|'\\)?") . 2)) '(#$ . 934) :type '(alist :key-type regexp :value-type integer) :group 'iimage)
#@31 Keymap used in `iimage-mode'.
(defvar iimage-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key "\f" iimage-recenter] 4) (#$ . 1471))
#@30 Re-draw images and recenter.
(defalias 'iimage-recenter #[(&optional arg) "\301\302!\210\301\303!\210\304!\207" [arg iimage-mode-buffer nil t recenter] 2 (#$ . 1648) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias turn-on-iimage-mode iimage-mode nil make-obsolete "24.1"] 4)
#@39 Unconditionally turn off iimage mode.
(defalias 'turn-off-iimage-mode #[nil "\300\301!\207" [iimage-mode 0] 2 (#$ . 1954) nil])
#@58 Remove display property if a display region is modified.
(defalias 'iimage-modification-hook #[(beg end) "\303\304\305\306\307 $\310 \305\306\311 $ \205( \205( \312\313 !\305\"\205( \314 \315#+\207" [end beg inhibit-modification-hooks t previous-single-property-change display nil line-beginning-position next-single-property-change line-end-position plist-get text-properties-at remove-text-properties (display nil modification-hooks nil)] 7 (#$ . 2088)])
#@61 Display images if ARG is non-nil, undisplay them otherwise.
(defalias 'iimage-mode-buffer #[(arg) " B\306\307 \310\211 \310 \311\216\212eb\210\306 \211 \205o @\312@\306\310#\203e \313A!\211\203' \314\n \"\211\203' \203Z \315\316\224\316\225\317\320\n!\321BB#\210\202' \322\316\224\316\225\323#\210\202' A\211\204\" \306.\n\207" [default-directory iimage-mode-image-search-path file image-path #1=#:modified buffer-undo-list nil buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] re-search-forward match-string locate-file add-text-properties 0 display create-image (modification-hooks (iimage-modification-hook)) remove-text-properties (display modification-hooks) inhibit-read-only inhibit-modification-hooks iimage-mode-image-regex-alist pair --dolist-tail-- arg] 7 (#$ . 2557)])
#@91 Non-nil if Iimage mode is enabled.
Use the command `iimage-mode' to change this variable.
(defvar iimage-mode nil (#$ . 3410))
(make-variable-buffer-local 'iimage-mode)
#@241 Toggle Iimage mode on or off.
With a prefix argument ARG, enable Iimage mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
\{iimage-mode-map}
(defalias 'iimage-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\310\n!\210\311\312\n\203\" \313\202# \314\"\210\315\316!\203H \304 \2037 \304 \232\203H \317\320\321\n\203C \322\202D \323 #\210))\324 \210\n\207" [#1=#:last-message arg iimage-mode local current-message toggle prefix-numeric-value 0 iimage-mode-buffer run-hooks iimage-mode-hook iimage-mode-on-hook iimage-mode-off-hook called-interactively-p any " in current buffer" message "Iimage mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 3586) (list (or current-prefix-arg 'toggle))])
#@176 Hook run after entering or leaving `iimage-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar iimage-mode-hook nil (#$ . 4408))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [iimage-mode-map add-minor-mode iimage-mode " iImg" nil provide iimage] 6)
Kontol Shell Bypass