Primitive Programierfrage

Primitive Programierfrage

[Sebastian Meisel]

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.
-- 
Bis dann und wann Sebas茶an

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.

Re: Primitive Programierfrage

[Klaus Berndl]

writing your question in German dramatically reduces the potential set of people who can
answer you ;-)

Klaus

On Thu, 9 Feb 2006, Sebastian Meisel wrote:



>  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.

-- 
Klaus Berndl			mailto: klaus.berndl@sdm.de
sd&m AG				http://www.sdm.de
software design & management	
Carl-Wery-Str. 42, 81739 Muenchen, Germany
Tel +49 89 63812-392, Fax -220