From 0dd65c067615c6a9f66b733dafd66ee814a67ef7 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 7 Dec 2004 06:16:49 +0000 Subject: [PATCH] * riece-foolproof.el (riece-foolproof-command-send-message-function): Check invisible text. --- lisp/ChangeLog | 5 +++++ lisp/riece-foolproof.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a1d217d..560978b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-07 TAKAHASHI Kaoru + + * riece-foolproof.el (riece-foolproof-command-send-message-function): + Check invisible text. + 2004-12-07 Daiki Ueno * test/test-riece-log.el (test-riece-log-encode-file-name): New diff --git a/lisp/riece-foolproof.el b/lisp/riece-foolproof.el index f691a0a..75e2e97 100644 --- a/lisp/riece-foolproof.el +++ b/lisp/riece-foolproof.el @@ -51,6 +51,13 @@ riece-current-channel)) (error "Channel %s is not displayed" (riece-identity-prefix riece-current-channel))) + (when (text-property-not-all + (riece-line-beginning-position) (riece-line-end-position) + 'invisible nil) + (error "Invisible text included: %s" + (buffer-substring-no-properties + (riece-line-beginning-position) + (riece-line-end-position)))) (when executing-kbd-macro (error "%s" "Forbidden to run keyboard macro")))) -- 1.7.10.4