;;; illusion.el --- load, edit, and submit something which is not pure file
-;;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2015, 2016
-;;; HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
-;;; $Id: illusion.el,v 1.14 2011-12-31 15:07:29 hira Exp $
+;;; Copyright (C) 2005-2021
+;;; HIRAOKA Kazuyuki <khi@users.osdn.me>
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
(goto-char (point-min))
(set-buffer-modified-p nil))
-(easy-mmode-define-minor-mode illusion-mode
+(define-minor-mode illusion-mode
"With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.
--- -------
\\[illusion-submit] Submit changes
"
- nil ;; default = off
- illusion-lighter ;; mode-line
- `(
- (,illusion-submit-key . illusion-submit)
- )
+ :init-value nil ;; default = off
+ :lighter illusion-lighter ;; mode-line
+ :keymap `(
+ (,illusion-submit-key . illusion-submit)
+ )
+ (use-local-map illusion-mode-map)
)
-;; emacs20's easy-mmode-define-minor-mode can't have body. sigh...
-(add-hook 'illusion-mode-on-hook
- (lambda () (use-local-map illusion-mode-map)))
-
;;; Example
;; M-x yarot13-find-file to open rot13ed file.