From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: Problems with the capitalization in Word Abbreviation Mode Date: Mon, 06 Oct 2008 18:53:34 +0200 Organization: FH-Trier Message-ID: <1223312335.190825@arno.fh-trier.de> References: <1223299055.389667@arno.fh-trier.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1223315146 25217 80.91.229.12 (6 Oct 2008 17:45:46 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 6 Oct 2008 17:45:46 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Oct 06 19:46:43 2008 Return-path: 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 1KmuA5-0006XB-NJ for geh-help-gnu-emacs@m.gmane.org; Mon, 06 Oct 2008 19:46:26 +0200 Original-Received: from localhost ([127.0.0.1]:40488 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kmu92-0001un-5p for geh-help-gnu-emacs@m.gmane.org; Mon, 06 Oct 2008 13:45:20 -0400 Original-Path: news.stanford.edu!headwall.stanford.edu!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 53 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1223312353 23910 143.93.54.11 (6 Oct 2008 16:59:13 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Mon, 6 Oct 2008 16:59:13 +0000 (UTC) User-Agent: Mozilla-Thunderbird 2.0.0.16 (X11/20080724) In-Reply-To: Cache-Post-Path: arno.fh-trier.de!unknown@dslb-084-059-203-042.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: news.stanford.edu gnu.emacs.help:163105 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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:58449 Archived-At: Hans-Christian Mick wrote: > > That's just what I wanted, thanks a lot! > > I've just pasted into my abbrev-defs-file. Although this lisp-stuff > looks really complicated to me... How long does it take to learn this > stuff? > Mh, you shouldn't paste it in this file. Paste it in the scratch buffer , eval* it and make emacs save the abbrevs (e.g. by C-x s). Now you can delete the code. There is an introduction to elisp for non-programmers in the info files. (info "(eintr)") *Place point behind the last paren and type C-x C-e. > Am I right in thinking that in order to add more of these literal- > abbrevs to my abbrev-defs file I should have to write something like > this: > > (define-literal-abbrev global-abbrev-table ( > ("DAs" "Das") > ("DIe" "Die") > ("WEr" "Wer") > )) > No, but maybe a command is more convenient. Note the updated function. (defun define-literal-abbrev (table name expansion &optional count system-flag) (define-abbrev table (downcase name) 'literal-abbrev `(lambda () (let (case-fold-search (start (- (point) ,(length name)))) (when (looking-back ,(regexp-quote name) start) (delete-region start (point)) (insert ,expansion)))) count system-flag)) (defun add-literal-global-abbrev (name expansion) (interactive "MAbbrev : \nMExpansion : ") (define-literal-abbrev global-abbrev-table name expansion)) > Although I have to admit that now it sounds like the theme of the > German Sesame-Street...:) > > Thanks again! -ap