From 8517a35ca312656e5bc8343b02d5e26969645ac8 Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 9 Nov 2004 09:25:32 +0000 Subject: [PATCH] * riece-yank.el (riece-command-yank): Take a 1st argument to send messages as notice. --- lisp/ChangeLog | 5 +++++ lisp/riece-yank.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ba8517c..cdf12c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-09 OHASHI Akira + + * riece-yank.el (riece-command-yank): Take a 1st argument to send + messages as notice. + 2004-11-07 Daiki Ueno * Riece: Version 1.0.5 released. diff --git a/lisp/riece-yank.el b/lisp/riece-yank.el index c774980..862891c 100644 --- a/lisp/riece-yank.el +++ b/lisp/riece-yank.el @@ -80,8 +80,8 @@ before/after the first/last non-blank line." (forward-line)) (buffer-string))) -(defun riece-command-yank (prefix) - (interactive "sPrefix: ") +(defun riece-command-yank (arg prefix) + (interactive "P\nsPrefix: ") (when (or (not prefix) (string= prefix "")) (setq prefix " ")) @@ -95,7 +95,7 @@ before/after the first/last non-blank line." (when (y-or-n-p (format "Send \"%s\"\n? " kill)) (mapcar (lambda (x) - (riece-command-send-message (concat prefix x) nil) + (riece-command-send-message (concat prefix x) arg) ;; Without next line, you will be kicked out from ircd. ;; It may means "Don't send much data at once." (sit-for riece-yank-tick)) -- 1.7.10.4