;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:53 2007 ;;; from file /home/cyd/emacs/lisp/image-mode.el ;;; in Emacs version 22.0.99 ;;; 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 "`image-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'image) #@35 Major mode keymap for Image mode. (defvar image-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key "" image-toggle-display] 4) (#$ . 584)) #@141 Major mode for image files. You can use \\[image-toggle-display] to toggle between display as an image and display as text. (defalias 'image-mode #[nil "\305 \210\306\307\310\n!\210\311\312\313\314\315$\210\316 \203$\317e\320\"\204$\321 \210\202(\314\315\322\323!\210\316 \205E\324\325\326\327!\317e\320\"\203A\330\202B\331\332Q\"\207" [mode-name major-mode image-mode-map cursor-type truncate-lines kill-all-local-variables "Image" image-mode use-local-map add-hook change-major-mode-hook image-toggle-display-text nil t display-images-p get-text-property display image-toggle-display run-mode-hooks image-mode-hook message "%s" substitute-command-keys "Type \\[image-toggle-display] to view as " "text" "an image" "."] 6 (#$ . 769) nil]) #@101 Non-nil if Image minor mode is enabled. Use the command `image-minor-mode' to change this variable. (defvar image-minor-mode nil (#$ . 1542)) (make-variable-buffer-local 'image-minor-mode) #@160 Toggle Image minor mode. With arg, turn Image minor mode on if arg is positive, off otherwise. See the command `image-mode' for more information on this mode. (defalias 'image-minor-mode #[(&optional arg) "\304=\203 ?\202%\203\305!\306V\202% \204\307\202%\310\311\301\"\210\312\211\2040\313 \210\202W\314e\315\"\203;\312\307\316\317\320\312\307$\210\310\321\322\323!\314e\315\"\203R\324\202S\325\326Q\"\210\327\330 \203a\331\202b\332\"\210\333 \203v\310\334 \203s\335\202t\336\"\210\337 \210 \207" [arg image-minor-mode cursor-type truncate-lines toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil image-toggle-display-text get-text-property display add-hook change-major-mode-hook #[nil "\300\301!\207" [image-minor-mode -1] 2] "%s" substitute-command-keys "Type \\[image-toggle-display] to view the image as " "text" "an image" "." run-hooks image-minor-mode-hook image-minor-mode-on-hook image-minor-mode-off-hook called-interactively-p "Image minor mode %sabled" "en" "dis" force-mode-line-update] 7 (#$ . 1738) (list (or current-prefix-arg 'toggle))]) (add-minor-mode 'image-minor-mode " Image" image-mode-map) #@359 Set major or minor mode for image files. Set Image major mode only when there are no other major modes associated with a filename in `auto-mode-alist'. When an image filename matches another major mode in `auto-mode-alist' then set that major mode and Image minor mode. See commands `image-mode' and `image-minor-mode' for more information on these modes. (defalias 'image-mode-maybe #[nil "\304\305\306\307\"\"\310\n \311#\203 \305\312 \210\313\314!*\202 \315 )\207" [auto-mode-alist mode-alist buffer-file-name magic-mode-alist delq nil mapcar #[(elt) "A\242\206A\301>?\205\207" [elt (image-mode image-mode-maybe)] 2] assoc-default string-match set-auto-mode image-minor-mode t image-mode] 5 (#$ . 2932) nil]) #@37 Showing the text of the image file. (defalias 'image-toggle-display-text #[nil "\300e\301\"\205 \302 \207" [get-text-property display image-toggle-display] 3 (#$ . 3666)]) #@160 Start or stop displaying an image file as the actual image. This command toggles between showing the text of the image file and showing the image as an image. (defalias 'image-toggle-display #[nil "\306e\307\"\203*\310\211\311 \312ed\313#\210\314!\210\315\316!\210\315\317!\210\320 \205(\321\322!+\207\323 \203Y\324\323 !\204Y\311 \204Y\325\303!\203E\204Y\325\304!\203O\f\204Y\326 \210\327\323 !\202c\327\330\331ed\"!\332\310#\307 \333 \334BBBB\310\211\311 \335ed#\210\314!\210\332\310\320 \205\217\321\336!-\207" [modified buffer-undo-list inhibit-read-only archive-superior-buffer tar-superior-buffer image get-text-property display t buffer-modified-p remove-list-of-text-properties (display intangible read-nonsticky read-only front-sticky) set-buffer-modified-p kill-local-variable cursor-type truncate-lines called-interactively-p message "Repeat this command to go back to displaying the image" buffer-file-name file-remote-p boundp clear-image-cache create-image string-make-unibyte buffer-substring-no-properties nil intangible (rear-nonsticky (display intangible) read-only t front-sticky (read-only)) add-text-properties "Repeat this command to go back to displaying the file as text" props] 6 (#$ . 3846) nil]) (provide 'image-mode)