projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-highlight.el (riece-highlight-uninstall): Use
[riece]
/
lisp
/
riece-eval.el
diff --git
a/lisp/riece-eval.el
b/lisp/riece-eval.el
index
c54079f
..
ce62e71
100644
(file)
--- a/
lisp/riece-eval.el
+++ b/
lisp/riece-eval.el
@@
-1,4
+1,4
@@
-;;; riece-eval.el --- eval
add-on
+;;; riece-eval.el --- eval
uate input string as an elisp form
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
@@
-23,11
+23,7
@@
;;; Commentary:
;;; Commentary:
-;; This add-on evaluates an input string as lisp object and sends a result
-;; as notice. Note the risky of this add-on.
-
-;; To use, add the following line to your ~/.riece/init.el:
-;; (add-to-list 'riece-addons 'riece-eval)
+;; NOTE: This is an add-on module for Riece.
;;; Code:
;;; Code:
@@
-35,7
+31,7
@@
(require 'riece-message)
(defgroup riece-eval nil
(require 'riece-message)
(defgroup riece-eval nil
- "Evaluate an input string as
lisp object
."
+ "Evaluate an input string as
an elisp form
."
:prefix "riece-"
:group 'riece)
:prefix "riece-"
:group 'riece)
@@
-52,7
+48,7
@@
(defvar riece-eval-enabled nil)
(defconst riece-eval-description
(defvar riece-eval-enabled nil)
(defconst riece-eval-description
- "Evaluate an input string as
lisp object
.")
+ "Evaluate an input string as
an elisp form
.")
(defun riece-eval-display-message-function (message)
(when (and riece-eval-enabled
(defun riece-eval-display-message-function (message)
(when (and riece-eval-enabled
@@
-91,6
+87,10
@@
(add-hook 'riece-after-display-message-functions
'riece-eval-display-message-function))
(add-hook 'riece-after-display-message-functions
'riece-eval-display-message-function))
+(defun riece-eval-uninstall ()
+ (remove-hook 'riece-after-display-message-functions
+ 'riece-eval-display-message-function))
+
(defun riece-eval-enable ()
(setq riece-eval-enabled t))
(defun riece-eval-enable ()
(setq riece-eval-enabled t))