Re: Primitive Programierfrage

[Pascal Bourguignon]

Sebastian Meisel <sebastianmeisel@web.de> writes:

> Ich versuche gerade eine Funktion zuschreiben:
>
> (defun flyspell-zusammen (begin end poss)
> "Versuch Zusammengesetzte deutsche Worte aufzulösen"
> ;;(goto-char (- begin 2)
> (if 
>     (re-search-backward "\"-" (- begin 2) t) 
>     (lambda () (message "Got you") (return t))
>   (lambda () (message "misst") (return nil))
>   )) 
> )
>
> Eingentlich soll sie wenn "- kurk vor begin gefunden wird die message "Got 
> you" ausgeben und t zurückgegen. Aber irgendwas ist falsch. So richtig 
> verstehe ich noch nicht wie Elisp funktioniert.

(defun flyspell-zusammen (begin end poss)
  "Versuch Zusammengesetzte deutsche Worte aufzulösen"
  ;;(goto-char (- begin 2)
  (if (re-search-backward "\"-" (- begin 2) t) 
      (progn (message "Got you") t))
      (progn (message "misst")   nil))

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
The rule for today:
Touch my tail, I shred your hand.
New rule tomorrow.