%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)) '(#$ . 932) :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) (#$ . 1469))
#@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-top-bottom] 2 (#$ . 1646) "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 (#$ . 1963) 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 (#$ . 2097)])
#@61 Display images if ARG is non-nil, undisplay them otherwise.
(defalias 'iimage-mode-buffer #[(arg) " B\306\307 !\310 \311 \312\211 \312 \313\216\212eb\210 \310 \211 \205\214 @ \314 @\310\312#\203\202 \315 A!\211\203- \316\n\f\"\211\203- !\203w \317\320\224\320\225\321\322\n\310\211\323\324 8 @Z\325\326 8 A@Z&\327\"\330BBBB#\210\202- \331\320\224\320\225\332#\210\202- A\211 \204( \310. \207" [default-directory iimage-mode-image-search-path file edges image-path #1=#:modified window-inside-pixel-edges get-buffer-window 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 :max-width 2 :max-height 3 keymap (modification-hooks (iimage-modification-hook)) remove-list-of-text-properties (display modification-hooks) buffer-undo-list inhibit-read-only inhibit-modification-hooks iimage-mode-image-regex-alist pair --dolist-tail-- arg image-map] 14 (#$ . 2566)])
#@91 Non-nil if Iimage mode is enabled.
Use the command `iimage-mode' to change this variable.
(defvar iimage-mode nil (#$ . 3584))
(make-variable-buffer-local 'iimage-mode)
#@290 Toggle Iimage mode on or off.
If called interactively, enable Iimage mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
\{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 (#$ . 3760) (list (or current-prefix-arg 'toggle))])
(defvar iimage-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\210\311\312!\207" [iimage-mode-map iimage-mode-hook variable-documentation put "Hook run after entering or leaving `iimage-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode iimage-mode " iImg" nil provide iimage] 6)
Zerion Mini Shell 1.0