sslug-teknik team mailing list archive

[Claus Ekstroem <ce@xxxxxxxxxxxxx>]

Hej.

Jeg har lige installeret en thesaurus under emacs, og den virker fint.
Der er bare lige et lille irritationsmoment, som kræver at man retter i
den medfølgende emacs lisp fil og jeg kender stort set intet til lisp.
Ved opslag i thesaurusen deles emacs i to vinduer, og
resultatet af søgningen kommer i den ene vindue. Problemet er bare, at
den står ved slutningen af bufferen for resultatet, hvor jeg gerne vil
have at den står ved starten (så jeg ikke skal starte med at bladre op).

Her er det relevante cut fra lisp-filen

[CUT]

(defun thesaurus-lookup-word (word exact)
  "Look up the word WORD in the thesaurus.
The results will be displayed in the buffer given by
`thesaurus-scratch-buffer-name'.  If EXACT is nil, all entries that
begin with WORD will be displayed.  If EXACT is non-nil, only the entry
that contains WORD will be displayed.
"
  (interactive "sWord to lookup? \nP")
  (let ((thesaurus-buffer (get-buffer-create
thesaurus-scratch-buffer-name)))
    (display-buffer thesaurus-buffer)
    (save-excursion
      (buffer-flush-undo (set-buffer thesaurus-buffer))
      (erase-buffer)
      (if exact
	  (start-process "thesaurus" thesaurus-buffer thesaurus-program
			 "-W" word)
	  (start-process "thesaurus" thesaurus-buffer thesaurus-program
			 "-V" word)
	  )
      )))

[UNCUT]

Jeg tror næsten der skal en (goto-char (point-min)) ind et eller andet sted. Jeg har prøvet
i slutningen af if-statementet, men har ikke fået det til at virke. Er der nogen, der har et
bud?

Mvh,

Claus