OSDN Git Service
(root)
/
howm
/
howm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
set version as 1.4.8-snapshot3
[howm/howm.git]
/
illusion.el
diff --git
a/illusion.el
b/illusion.el
index
3b8bdc7
..
f8eb6db
100644
(file)
--- a/
illusion.el
+++ b/
illusion.el
@@
-1,7
+1,6
@@
;;; illusion.el --- load, edit, and submit something which is not pure file
;;; 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-2020
+;;; 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
;;;
;;; 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
@@
-53,7
+52,7
@@
It must return non-nil value for successful case.")
(goto-char (point-min))
(set-buffer-modified-p nil))
(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.
"With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.
@@
-65,17
+64,14
@@
key binding
--- -------
\\[illusion-submit] Submit changes
"
--- -------
\\[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.
;;; Example
;; M-x yarot13-find-file to open rot13ed file.