From 197161b2c4900f5f106c38e365f10d11741dbbd4 Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Fri, 11 Jun 2004 02:31:13 +0000 Subject: [PATCH] * riece-foolproof.el (riece-foolproof-dmacro-override): New function. (riece-foolproof-insinuate): Check keyboard macro. --- lisp/ChangeLog | 6 ++++++ lisp/riece-foolproof.el | 36 +++++++++++++++++++++--------------- 2 files changed, 27 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 72fded6..5f54030 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-06-11 TAKAHASHI Kaoru + + * riece-foolproof.el (riece-foolproof-dmacro-override): New + function. + (riece-foolproof-insinuate): Check keyboard macro. + 2004-06-10 TAKAHASHI Kaoru * riece-foolproof.el: New add-on. diff --git a/lisp/riece-foolproof.el b/lisp/riece-foolproof.el index 226d654..5e06b34 100644 --- a/lisp/riece-foolproof.el +++ b/lisp/riece-foolproof.el @@ -30,44 +30,50 @@ ;;; Code: -(eval-when-compile (require 'riece)) +(eval-when-compile + (require 'riece-identity) + (require 'riece-display)) (defvar riece-foolproof-enabled nil) (defconst riece-foolproof-description - "Disable channel miss") - -(defun riece-foolproof-command-enter-message () - "Send the current line to the current channel." - (interactive) - (when (riece-foolproof) - (riece-command-enter-message))) - -(defun riece-foolproof-command-enter-message-as-notice () - "Send the current line to the current channel as NOTICE." - (interactive) - (when (riece-foolproof) - (riece-command-enter-message-as-notice))) + "Channel miss killer") (defun riece-foolproof-get-channel-window (identity) (get-buffer-window (cdr (riece-identity-assoc identity riece-channel-buffer-alist)))) +(eval-when-compile + (defvar *dmacro-key* nil)) + +(defun riece-foolproof-dmacro-override (&optional arg) + (when (and (fboundp 'dmacro-exec) (boundp '*dmacro-key*)) + (with-current-buffer riece-command-buffer + (if arg + (when (eq (key-binding *dmacro-key*) 'dmacro-exec) + (local-set-key *dmacro-key* #'ignore)) + (when (eq (key-binding *dmacro-key*) 'ignore) + (local-unset-key *dmacro-key*)))))) + (defun riece-foolproof-insinuate () (defadvice riece-command-send-message (before riece-foolproof) (unless (or (not riece-channel-buffer-mode) (riece-foolproof-get-channel-window riece-current-channel)) (error "%s is not displayed. (maybe channel miss)" - (riece-identity-prefix riece-current-channel))))) + (riece-identity-prefix riece-current-channel))) + (unless (null executing-macro) + (error "Don't use `riece-command-send-message' in keyboard macro")))) (defun riece-foolproof-enable () + (riece-foolproof-dmacro-override t) (ad-enable-advice 'riece-command-send-message 'before 'riece-foolproof) (ad-activate 'riece-command-send-message) (setq riece-foolproof-enabled t)) (defun riece-foolproof-disable () + (riece-foolproof-dmacro-override nil) (ad-disable-advice 'riece-command-send-message 'before 'riece-foolproof) (ad-activate 'riece-command-send-message) (setq riece-foolproof-enabled nil)) -- 2.25.1