1 |
;;; iimage.el --- Inline image minor mode. |
;;; iimage.el --- Inline image minor mode. |
2 |
|
|
3 |
;; Copyright (C) 2004 Free Software Foundation |
;; Copyright (C) 2004, 2005 Free Software Foundation |
4 |
|
|
5 |
;; Author: KOSEKI Yoshinori <kose@meadowy.org> |
;; Author: KOSEKI Yoshinori <kose@meadowy.org> |
6 |
;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org> |
;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org> |
51 |
(eval-when-compile |
(eval-when-compile |
52 |
(require 'image-file)) |
(require 'image-file)) |
53 |
|
|
54 |
|
(defgroup iimage nil |
55 |
|
"Support for inline images." |
56 |
|
:version "22.1" |
57 |
|
:group 'image) |
58 |
|
|
59 |
(defconst iimage-version "1.1") |
(defconst iimage-version "1.1") |
60 |
(defvar iimage-mode nil) |
(defvar iimage-mode nil) |
61 |
(defvar iimage-mode-map nil) |
(defvar iimage-mode-map nil) |
142 |
;;;###autoload |
;;;###autoload |
143 |
(define-minor-mode iimage-mode |
(define-minor-mode iimage-mode |
144 |
"Toggle inline image minor mode." |
"Toggle inline image minor mode." |
145 |
nil " iImg" iimage-mode-map |
:group 'iimage :lighter " iImg" :keymap iimage-mode-map |
146 |
(run-hooks 'iimage-mode-hook) |
(run-hooks 'iimage-mode-hook) |
147 |
(iimage-mode-buffer iimage-mode)) |
(iimage-mode-buffer iimage-mode)) |
148 |
|
|