| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/iimage.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:22 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/iimage.el
;;; in Emacs version 24.3.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))
#@267 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)) '(#$ . 1073) :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) (#$ . 1607))
#@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 (#$ . 1784) "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 (#$ . 2090) 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 (#$ . 2224)])
#@61 Display images if ARG is non-nil, undisplay them otherwise.
(defalias 'iimage-mode-buffer #[(arg) " B\306\307 \310\211 \310 \306\211 \306 \311\216\212eb\210\306 \211 \205x @\312@\306\310#\203n \313A!\211\2030 \314\n \"\211\2030 \203c \315\316\224\316\225\317\320\n!\321BB#\210\2020 \322\316\224\316\225\323#\210\2020 A\211\204+ \306.
\207" [default-directory iimage-mode-image-search-path file image-path #1=#:modified buffer-undo-list nil buffer-modified-p t ((byte-code "\204 \301\302!\210\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 deactivate-mark buffer-file-name buffer-file-truename iimage-mode-image-regex-alist pair --dolist-tail-- arg] 7 (#$ . 2693)])
#@91 Non-nil if Iimage mode is enabled.
Use the command `iimage-mode' to change this variable.
(defvar iimage-mode nil (#$ . 3630))
(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) "\303 \304=\203 \n?\202 \305 !\306V\307\n!\210\310\311\n\203\" \312\202# \313\"\210\314\315!\203D \303 \2037 \303 \232\203D \316\317\n\203A \320\202B \321\"\210)\322 \210\n\207" [#1=#:last-message arg iimage-mode 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 message "Iimage mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 3806) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\210\305\306!\207" [iimage-mode-map add-minor-mode iimage-mode " iImg" nil provide iimage] 6)