Robert Wei+AN8-graeber <[EMAIL PROTECTED]> writes:
> da wir ja gerade den LaTeX-Sonntag haben, habe ich auch mal eine Frage:
>
> - Wie bringe ich emacs bei, bei Befehlen, die er nicht kennt nicht
> automatisch {} dahinter zumachen?
; Die Taste '\' ist aktiv
(setq TeX-electric-escape t)
; Klammern nach TeX-Befehlen
(setq TeX-insert-braces t)
> - Wie bringe ich emacs "neue" Befehle bei, die er nicht kennt?
Du kannst auctex die Style-Dateien lesen lassen, das hilft recht
weit. Die Dateien liegen in ./auto.
Bei besonderen W+APw-nschen kann man den Kram auch selber programmieren,
dann in ./style. Hier ein Beispiel, wie's genau geht steht in der
auctex-Doku.
;; Hey emacs, this is -*- emacs-lisp-*-
;; ----------------------------------------------------------------
;; $Id: aw-buch.el,v 1.1 2000/04/24 18:13:48 jochen Exp $
;; ----------------------------------------------------------------
;; Diese Datei ist eine Anpassung von auctex an aw.buch.sty
;; ----------------------------------------------------------------
;; .emacs:
; (setq TeX-style-local "~/work/Buch/Styles/style/")
;;
(TeX-add-style-hook "aw-buch"
(function
(lambda ()
(LaTeX-add-environments
'("Listing" LaTeX-env-Listing))
(TeX-add-symbols
'("linux" nil)
'("emacs" nil)
'("dosemu" nil)
'("gnu" nil)
'("sql" nil)
'("unix" nil)
'("unices" nil)
'("bs" nil)
'("commentjh" "Kommentar" ignore)
'("commentsp" "Kommentar" ignore)
'("commentjr" "Kommentar" ignore)
'("commentke" "Kommentar" ignore)
'("commentem" "Kommentar" ignore)
'("commentcs" "Kommentar" ignore)
'("map" "NIS-map" ignore)
'("lib" "Bibliothek" ignore)
'("file" "Dateiname" ignore)
'("option" "Option" ignore)
'("prog" "Programm" ignore)
'("host" "Hostname" ignore)
'("func" "Funktion" ignore)
'("user" "Username" ignore)
'("keyword" "Keyword" ignore)
'("var" "Variable" ignore)
'("shellvar" "Shellvariable" ignore)
'("key" "Taste" ignore)
'("regex" "Regul+AOQ-rer Ausdruck" ignore)
'("url" "URL" ignore)
'("group" "Gruppe" ignore))
)))
(defvar LaTeX-listing-label "lis:"
"*Default prefix to listing labels." )
(make-variable-buffer-local 'LaTeX-listing-label)
(defvar label nil
"*Default prefix to listing labels." )
(make-variable-buffer-local 'label)
(defvar caption nil
"*Default prefix to listing labels." )
(make-variable-buffer-local 'caption)
(defvar LaTeX-listing-label "lis:"
"*Default prefix to listing labels." )
(make-variable-buffer-local 'LaTeX-listing-label)
(defun LaTeX-env-Listing (environment)
"Create ENVIRONMENT with \\label and \\caption commands."
; (let ; ((float (read-string "Float to: " LaTeX-float))
(setq caption (read-string "Caption: "))
(setq label (completing-read "Label: "
(LaTeX-label-list)
nil nil
LaTeX-listing-label))
(LaTeX-insert-environment environment)
(newline-and-indent)
(insert TeX-esc "label" TeX-grop label TeX-grcl)
(LaTeX-add-labels label)
(end-of-line 0)
(LaTeX-indent-line)
(if (zerop (length caption))
()
;; NOTE: Caption is _inside_ center because that looks best typeset.
(newline-and-indent)
(insert TeX-esc "caption" TeX-grop caption TeX-grcl)
(end-of-line 0)
(LaTeX-indent-line)))
--
#include <~/.signature>: permission denied
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
