projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use riece-identity-assoc.
[riece]
/
lisp
/
riece-eval.el
diff --git
a/lisp/riece-eval.el
b/lisp/riece-eval.el
index
ce62e71
..
4969bf5
100644
(file)
--- a/
lisp/riece-eval.el
+++ b/
lisp/riece-eval.el
@@
-18,8
+18,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-45,13
+45,11
@@
:type 'boolean
:group 'riece-eval)
:type 'boolean
:group 'riece-eval)
-(defvar riece-eval-enabled nil)
-
(defconst riece-eval-description
"Evaluate an input string as an elisp form.")
(defun riece-eval-display-message-function (message)
(defconst riece-eval-description
"Evaluate an input string as an elisp form.")
(defun riece-eval-display-message-function (message)
- (when (and
riece-eval-enabled
+ (when (and
(get 'riece-eval 'riece-addon-enabled)
(riece-message-own-p message)
(string-match riece-eval-regexp (riece-message-text message)))
(let* ((form (match-string 1 (riece-message-text message)))
(riece-message-own-p message)
(string-match riece-eval-regexp (riece-message-text message)))
(let* ((form (match-string 1 (riece-message-text message)))
@@
-91,12
+89,6
@@
(remove-hook 'riece-after-display-message-functions
'riece-eval-display-message-function))
(remove-hook 'riece-after-display-message-functions
'riece-eval-display-message-function))
-(defun riece-eval-enable ()
- (setq riece-eval-enabled t))
-
-(defun riece-eval-disable ()
- (setq riece-eval-enabled nil))
-
(provide 'riece-eval)
;;; riece-eval.el ends here
(provide 'riece-eval)
;;; riece-eval.el ends here