Mercurial > emacs

comparison lisp/iimage.el @ 61272:3933597e185e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iimage): New customization group. (iimage-mode): Specify :group.
author Lute Kamstra <lute@gnu.org>
date Mon, 04 Apr 2005 08:59:38 +0000
parents 401149ed59c0
children 6fb026ad601f
comparison
equal deleted inserted replaced
61271:1d02878293f3 61272:3933597e185e
1 ;;; iimage.el --- Inline image minor mode. 1 ;;; iimage.el --- Inline image minor mode.
2 2
3 ;; Copyright (C) 2004 Free Software Foundation 3 ;; Copyright (C) 2004, 2005 Free Software Foundation
4 4
5 ;; Author: KOSEKI Yoshinori <kose@meadowy.org> 5 ;; Author: KOSEKI Yoshinori <kose@meadowy.org>
6 ;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org> 6 ;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org>
7 ;; Keywords: multimedia 7 ;; Keywords: multimedia
8 8
48 48
49 ;;; Code: 49 ;;; Code:
50 50
51 (eval-when-compile 51 (eval-when-compile
52 (require 'image-file)) 52 (require 'image-file))
53
54 (defgroup iimage nil
55 "Support for inline images."
56 :version "22.1"
57 :group 'image)
53 58
54 (defconst iimage-version "1.1") 59 (defconst iimage-version "1.1")
55 (defvar iimage-mode nil) 60 (defvar iimage-mode nil)
56 (defvar iimage-mode-map nil) 61 (defvar iimage-mode-map nil)
57 62
135 (set-buffer-modified-p modp))) 140 (set-buffer-modified-p modp)))
136 141
137 ;;;###autoload 142 ;;;###autoload
138 (define-minor-mode iimage-mode 143 (define-minor-mode iimage-mode
139 "Toggle inline image minor mode." 144 "Toggle inline image minor mode."
140 nil " iImg" iimage-mode-map 145 :group 'iimage :lighter " iImg" :keymap iimage-mode-map
141 (run-hooks 'iimage-mode-hook) 146 (run-hooks 'iimage-mode-hook)
142 (iimage-mode-buffer iimage-mode)) 147 (iimage-mode-buffer iimage-mode))
143 148
144 (provide 'iimage) 149 (provide 'iimage)
145 150