From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Plamen Tanovski <pgt@arcor.de>
Newsgroups: gmane.emacs.help
Subject: Re: auto correction propagation mode
Date: Sat, 07 Jun 2008 23:05:16 +0200
Organization: T-Online
Message-ID: <ep9rh5-umg.ln1@tanovski.de>
References: <nf1qh5-mgc.ln1@tanovski.de>
	<mailman.12855.1212861612.18990.help-gnu-emacs@gnu.org>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: ger.gmane.org 1212874836 28942 80.91.229.12 (7 Jun 2008 21:40:36 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Sat, 7 Jun 2008 21:40:36 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Jun 07 23:41:19 2008
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1K56A0-0005vV-Lk
	for geh-help-gnu-emacs@m.gmane.org; Sat, 07 Jun 2008 23:41:16 +0200
Original-Received: from localhost ([127.0.0.1]:59177 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1K569D-0008MH-MW
	for geh-help-gnu-emacs@m.gmane.org; Sat, 07 Jun 2008 17:40:27 -0400
Original-Path: news.stanford.edu!headwall.stanford.edu!newshub.sdsu.edu!news.glorb.com!feeder.erje.net!newsfeed01.sul.t-online.de!newsmm00.sul.t-online.de!t-online.de!news.t-online.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 25
Original-X-Trace: news.t-online.com 1212873174 02 17960 GMDgOiPvY8Gg7a 080607 21:12:54
Original-X-Complaints-To: usenet-abuse@t-online.de
X-ID: bjVlBQZpwepFtBPBlphCzIpGTQPWYTTHsMiRRF8hSR4ceEfuLZhT4K
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/23.0.50 (gnu/linux)
Original-Xref: news.stanford.edu gnu.emacs.help:159236
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:54594
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/54594>

Andreas Röhler <andreas.roehler@online.de> writes:

> Just to indicate a direction how this could be done IMHO:
>
> (defun allkorr () 
>   (interactive "*")
>   (let* ((wap (word-at-point))
>         (replmt (read-from-minibuffer "Correction: " wap)))
>     (define-abbrev text-mode-abbrev-table wap replmt)
>     (expand-region-abbrevs (point-min) (point-max))))
>
>
> It uses the abbrev facility, prompts for the correct
> word, which will be registered as an expansion for the
> then wrong word, conceived as an abbrev in the text.
>
> `expand-region-abbrevs' will query you then for every
> replacement. This might be abolished still, bound to an
> argument etc.


Thanks a lot. This is a very interessting approach. The best thing is, it
works on whole words only.

Best regards