Re: Problems with the capitalization in Word Abbreviation Mode

[Andreas Politz]

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