From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Fabian Braennstroem Newsgroups: gmane.emacs.help Subject: Re: power-reader-mode Date: Fri, 13 Feb 2004 12:07:57 +0100 Organization: Braennstroem Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <87vfmbck4y.fsf@rechner1.ddorf.de> References: <874qtwzcyy.fsf@rechner1.ddorf.de> <402BC213.6060008@yahoo.com> <871xoz3om3.fsf@rechner1.ddorf.de> <402C0AA4.7020203@yahoo.com> <87lln7esdo.fsf@marc0.dyndns.org> <87bro3epn2.fsf@marc0.dyndns.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1076663030 26554 80.91.224.253 (13 Feb 2004 09:03:50 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 13 Feb 2004 09:03:50 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Feb 13 10:03:43 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1ArZEc-0007QP-00 for ; Fri, 13 Feb 2004 10:03:42 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1ArZCT-0003uG-4C for geh-help-gnu-emacs@m.gmane.org; Fri, 13 Feb 2004 04:01:29 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!fu-berlin.de!uni-berlin.de!p3ee39b35.dip.t-dialin.NET!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 41 Original-NNTP-Posting-Host: p3ee39b35.dip.t-dialin.net (62.227.155.53) Original-X-Trace: news.uni-berlin.de 1076662617 41938647 I 62.227.155.53 ([218584]) X-Orig-Path: rechner1.ddorf.de!news User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:p/B0pmpO1C3t8ig95t+DGuwkZRs= Original-Xref: shelby.stanford.edu gnu.emacs.help:120869 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:16816 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:16816 Hello! Marco Parrone writes: > I wrote: > >> This should work. > > (setq flash-training-sit-for-seconds 0) > (setq flash-training-sit-for-milliseconds 15) > > (defun flash-training (begin end) > "Reading exercise." > (interactive "r") > (get-buffer-create "*flash-training-temp*") > (get-buffer-create "*flash-training*") > (let ((string (buffer-substring begin end))) > (with-current-buffer "*flash-training-temp*" > (kill-region (point-min) (point-max)) > (insert string) > (beginning-of-buffer) > (set-mark (point)))) > (with-current-buffer "*flash-training*" > (kill-region (point-min) (point-max)) > (switch-to-buffer "*flash-training*") > (while (with-current-buffer "*flash-training-temp*" > (forward-word 1)) > (with-current-buffer "*flash-training-temp*" > (kill-region (region-beginning) (region-end))) > (yank) > (sit-for flash-training-sit-for-seconds > flash-training-sit-for-milliseconds))) > (kill-buffer "*flash-training-temp*") > (message "Type C-x b RET to restore this window.")) Thanks to you two! I will use Marco's function. Now I try to modify it a little bit, so that I get large letter like in the 'info'-headers and that the words flash in the middle of the buffer by deleting the old one. Greetings! Fabian