From fbf94c2c0047a0a67cf74bc3126943c84fbb98ef Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Fri, 21 May 2004 08:45:57 +0000 Subject: [PATCH] * riece-skk-kakutei.el (riece-skk-kakutei-enabled): New flag. (riece-skk-kakutei-description): New variable. (riece-skk-kakutei-insinuate): Nothing to do. (riece-skk-kakutei-enable): New function. (riece-skk-kakutei-disable): New function. --- lisp/ChangeLog | 8 ++++++++ lisp/riece-skk-kakutei.el | 17 ++++++++++++++++- 2 files changed, 24 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89a4efb..c3adee2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-05-21 TAKAHASHI Kaoru + + * riece-skk-kakutei.el (riece-skk-kakutei-enabled): New flag. + (riece-skk-kakutei-description): New variable. + (riece-skk-kakutei-insinuate): Nothing to do. + (riece-skk-kakutei-enable): New function. + (riece-skk-kakutei-disable): New function. + 2004-05-21 Daiki Ueno * riece-highlight.el (riece-highlight-setup-dialogue): Simplified. diff --git a/lisp/riece-skk-kakutei.el b/lisp/riece-skk-kakutei.el index 03ec5a0..17e52da 100644 --- a/lisp/riece-skk-kakutei.el +++ b/lisp/riece-skk-kakutei.el @@ -32,6 +32,11 @@ (eval-when-compile (require 'riece)) +(defvar riece-skk-kakutei-enabled nil) + +(defconst riece-highlight-description + "Deny SKK's sankaku send") + (defun riece-skk-kakutei-command-enter-message () "Send the current line to the current channel." (interactive) @@ -61,9 +66,19 @@ t))) (defun riece-skk-kakutei-insinuate () + ) + +(defun riece-skk-kakutei-enable () (riece-define-keys riece-command-mode-map "\r" riece-skk-kakutei-command-enter-message - [(control return)] riece-skk-kakutei-command-enter-message-as-notice)) + [(control return)] riece-skk-kakutei-command-enter-message-as-notice) + (setq riece-skk-kakutei-enabled t)) + +(defun riece-skk-kakutei-disable () + (riece-define-keys riece-command-mode-map + "\r" riece-command-enter-message + [(control return)] riece-command-enter-message-as-notice) + (setq riece-skk-kakutei-enabled nil)) (provide 'riece-skk-kakutei) -- 2.25.1