From ed42fe4071e8a9e2894b7ee28c0868538e1d33e7 Mon Sep 17 00:00:00 2001 From: OHASHI Akira Date: Wed, 2 Feb 2005 03:51:32 +0000 Subject: [PATCH] * riece-eval.el (riece-eval-regexp): Fix regexp. (riece-eval-display-message-function): Follow the change above. --- lisp/ChangeLog | 5 +++++ lisp/riece-eval.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a9f70b8..1721594 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-02-02 OHASHI Akira + + * riece-eval.el (riece-eval-regexp): Fix regexp. + (riece-eval-display-message-function): Follow the change above. + 2005-02-02 Daiki Ueno * riece-server.el (riece-close-server-process): Run diff --git a/lisp/riece-eval.el b/lisp/riece-eval.el index b5aaca5..dd107ee 100644 --- a/lisp/riece-eval.el +++ b/lisp/riece-eval.el @@ -39,7 +39,7 @@ :prefix "riece-" :group 'riece) -(defcustom riece-eval-regexp "^, " +(defcustom riece-eval-regexp "^, \\(.+\\)" "*Pattern of string evaluating." :type 'string :group 'riece-eval) @@ -58,7 +58,7 @@ (when (and riece-eval-enabled (riece-message-own-p message) (string-match riece-eval-regexp (riece-message-text message))) - (let ((form (substring (riece-message-text message) 2)) + (let ((form (match-string 1 (riece-message-text message))) object string) (condition-case err (progn -- 2.25.1