auctex
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX] Activating functionalities for LaTeX files


From: jamshid
Subject: [AUCTeX] Activating functionalities for LaTeX files
Date: Thu, 11 Oct 2007 14:44:29 -0700 (PDT)

Hi,

I am using he following initialization (.emacs) but none of the functions
with LaTeX mode do work.
Functions like automatically closing parentheses, when left parentheses is
pressed.
The same file worked 1 year ago on Suse 10.0

I would be thankful for any comment,
Jamshid

;;;;;;;;;;;;;;;;;;;;;;;
; Emacs-Einstellungen ;
;;;;;;;;;;;;;;;;;;;;;;;

;;(setq debug-on-error `t)


(server-start)

;; make aggathen specific changes


(add-hook
 'server-visit-hook
 '(lambda ()
    (let ((buf (current-buffer)))
      (bury-buffer buf)
      (select-frame (make-frame))
      (set-buffer buf)
      )
    )
 )

(add-hook
 'server-done-hook
 '(lambda ()
    (condition-case nil
        (progn
          (kill-buffer nil)
          (delete-frame nil)
          )
      (error nil)
      )
    )
 )

(defvar fast-startup nil)
(if (member "-fast" command-line-args) (setq fast-startup t))
(if fast-startup
    (setq command-line-args 
          (delete (assoc "-fast" command-line-args)
                  command-line-args)
          )
  )

(setq load-path
      (append (list ()
                    ;;"/net/math_local/emacs"
                    ;;"/net/math_local/TeX/texmf/emacs-lisp"
                    ;;"/usr/local/gnu/share/emacs/19.34"
                    ;;"/usr/local/gnu/share/emacs/site-lisp"
                    ;;"/usr/local/gnu/share/emacs/site-lisp/auctex"
                    (expand-file-name "~nuesken/lib/emacs")
                    (expand-file-name "~nuesken/lib/emacs-linux")
                    (expand-file-name "~nuesken/lib/emacs-linux/auctex")
                    )
              load-path))

;; some additional functions to put on keys ...
(defun transpose-lines-this-and-next ()
  (interactive)
  (forward-line 1)
  (transpose-lines 1)
  (forward-line -1))
(defun transpose-lines-this-and-prev ()
  (interactive)
  (transpose-lines 1)
  (forward-line -2))

;; use AuCTeX
;;(load "auctex-start")
(require 'tex-site)

;; mark regions holding down S-[movement-keys] (ala Borland)
(load "s-region")

;; mark corresponding parentheses
(load "paren")

;; temporary
(global-set-key [S-f10] '(lambda ()
                          (interactive)
                          (beginning-of-line)
                          (insert "%    \\end{macrocode}
%  
%    \\begin{macrocode}
")
                          (previous-line 2) (end-of-line)
                          ))

(global-set-key [C-f10] '(lambda (beg end)
                          (interactive "r")
                          (let ((x))
                            (kill-region beg end)
                            (insert "%  \\begin{environment}{")
                            (setq x (point))
                            (insert "}
%    
%  \\end{environment}
")
                            (previous-line 1) (beginning-of-line)
                            (yank)
                            (goto-char x)
                            )
                          ))
(global-set-key [M-f10] '(lambda (beg end)
                          (interactive "r")
                          (let ((x))
                            (kill-region beg end)
                            (insert "%  \\begin{macro}{")
                            (setq x (point))
                            (insert "}
%    
%  \\end{macro}
")
                            (previous-line 1) (beginning-of-line)
                            (yank)
                            (goto-char x)
                            )
                          ))
;; end of temporary

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Standard key definitions.
;;;
;;;
(global-set-key [ESC-ESC] 'keyboard-quit )

; function keys f1 - f10

(global-set-key [f1] 'apropos )
(global-set-key [C-f1] 'describe-function )
(global-set-key [S-f1] '(lambda ()
                          (interactive)
                          (man (current-word))
                          (next-multiframe-window)
                          ))

(global-set-key [f2]   'save-buffer )
(global-set-key [S-f2] 'write-file )
(global-set-key [C-f2] 'save-some-buffers )

(global-set-key [f3]   'find-file )
(global-set-key [S-f3] '(lambda () 
                          (interactive)
                          (find-file
                           (x-get-selection))
                          (next-multiframe-window)
                          ))

(global-set-key [f4] 'save-buffers-kill-emacs )

(global-set-key [f5] 'delete-other-windows )  
(global-set-key [S-f5] 'other-window )
(global-set-key [C-f5] 'next-multiframe-window )

(global-set-key [f6] 'bury-buffer )
(global-set-key [S-f6] '(lambda () 
                          (interactive)
                          (list-buffers)
                          (next-multiframe-window)
                          ))

(global-set-key [f7] 'split-window-vertically)
(global-set-key [S-f7] 'split-window-horizontally )
(global-set-key [C-f7] 'delete-window)

(global-set-key [f8] 'kill-this-buffer)
(global-set-key [C-f8] '(lambda ()
                          (interactive)
                          (kill-this-buffer)
                          (delete-window)
                          (keyboard-quit)
                          ))
(global-set-key [S-f8] 'server-edit)

(global-set-key [f9]   'compile)
(global-set-key [S-f9] 'grep )

(global-set-key [f10]  'shell-command )


; function key f11-f20 (on the left)

(global-set-key [f11] 'eval-expression ); Dt: Stop

(global-set-key [f12] 'eval-region );     Dt: Wiederholen

;;(global-set-key [f14] 'undo ); Dt: Zurücknehmen
(global-set-key [C-backspace] 'undo )
(global-set-key [S-backspace] 'undo )

(global-set-key [f17]   'isearch-repeat-forward); Dt: Öffnen

(global-set-key [f19]   'isearch-forward); Dt: Suchen
(global-set-key [S-f19] 'query-replace)
(global-set-key [C-f19] 'query-replace-regexp)



; specials: Einfg, Pos1, Entf, Ende, BildRauf, BildRunter
(global-set-key [delete] 'delete-char )
(global-set-key [home] 'beginning-of-line )  
(global-set-key [end] 'end-of-line )

(global-set-key [C-prior] 'beginning-of-buffer )
(global-set-key [C-next] 'end-of-buffer )

(global-set-key [S-insert] 'yank )
(global-set-key [S-delete] 'kill-region )
(global-set-key [C-insert] 'rotate-yank-pointer )
(global-set-key [C-delete] 'copy-region-as-kill )


; arrows

(global-set-key [C-left] 'backward-word )
(global-set-key [C-right] 'forward-word )
(global-set-key [M-left] 'beginning-of-line )
(global-set-key [M-right] 'end-of-line )

(global-set-key [M-up] 'transpose-lines-this-and-prev)
(global-set-key [M-down] 'transpose-lines-this-and-next)

; some other keys
(global-set-key [S-tab] 'indent-relative )
(global-set-key [S-f12] 'goto-line )

(global-set-key [C-f26] 'indent-rigidly); Dt: keypad-multiply

(global-set-key [M-p] 'compile)

;(global-set-key [C-f24] 'previous-error)
;(global-set-key [C-kp-add]  'next-error) 
;(global-set-key [S-f24] 'previous-error)
;(global-set-key [S-kp-add]  'next-error) 
;(global-set-key "\M-[" 'previous-error )
;(global-set-key "\M-]" 'next-error )


;(global-set-key [A-0] 'buffer-menu)
;(global-set-key [A-x] 'save-buffers-kill-emacs )

;;; The following example shows how to combine the actions of several
;;; keys in one command, which can then be put on a key ...
;(fset 'index-this-region
;   [92 105 110 100 101 120 123 S-insert 125 32])


(setq compile-command "make")

(setq c++-mode-hook
  (function (lambda () (interactive)
    (setq c-tab-always-indent nil)

    (setq c-brace-imaginary-offset 0)
    (setq c-brace-offset -2)
    (setq c-continued-brace-offset 2)
    (setq c-continued-statement-offset 2)
    (setq c-indent-level 0)
    (setq c-auto-newline nil)

  )))


(setq c-mode-hook
  (function (lambda () (interactive)
    (setq c-tab-always-indent nil)

    (setq c-brace-imaginary-offset 0)
    (setq c-brace-offset -2)
    (setq c-continued-brace-offset 2)
    (setq c-continued-statement-offset 2)
    (setq c-indent-level 0)
    (setq c-auto-newline nil)
     
    (local-set-key [TAB] 'indent-relative )
    (local-set-key "\M-[" 'previous-error)
    (local-set-key "\M-]" 'next-error)
    (local-set-key "\M-o" '(enlarge-window 10)))))

;;(setq-default abbrev-mode t)


(setq special-display-buffer-names
           '("*Completions*" "*Buffer List*" "*Apropos*" "*Faces*"))

(setq tex-dvi-view-command "xdvi")

(add-hook 'TeX-mode-hook
          '(lambda () 
             (line-number-mode 1)
             (auto-fill-mode 1)
             )
          )



(add-hook 'text-mode-hook
          (function (lambda () (interactive)
                      (auto-fill-mode)
                      )))

(put 'eval-expression 'disabled nil)
(setq compile-command "gmake")
(setq compilation-window-height 10)
(setq visible-bell t)
;;(setq lpr-command "prx")
;;(setq lpr-switches '("5"))
(setq TeX-open-quote "\"")
(setq TeX-close-quote "\"")
(setq transient-mark-mode t)

;; This directory contains private emacs-lisp files ("styles")
;; explaining emacs some specialties of TeX-styles.
;(setq TeX-style-private (expand-file-name "~/TeX/styles.el/" ) )
;(setq TeX-macro-private
;      (list
;       "./"
;       (expand-file-name "~/TeX/styles-kn/")
;       (expand-file-name "~/TeX/styles/")
;       ))

;;
;; It's german:
;; Deutsche Tastatur im LaTeX-German-Style/Babel-Class
;; ---------------------------------------------------
;;    Aktivierung mit `M-x german-mode' -> man dr"ucke
;;    *nacheinander* <ComposeCharacter>, <">,   und staune!
;;    Hier gibt's keinen Support!!!!!!!!
;(require 'ger-keys)
;;
;; Brace macros
;; ------------
;(add-hook 
; 'c++-mode-hook
; '(lambda ()
;    (defun TeX-Inserting (sta stb stc)
;      (if (= (preceding-char) sta )
;         (insert stb)
;       (progn (insert stc) (backward-char 1))))
;    (local-set-key  "{" 'TeX-schweif)
;    (local-set-key  "(" 'TeX-rundekl)
;    (local-set-key  "[" 'TeX-eckigek)
;    (defun TeX-schweif () (interactive) (TeX-Inserting ?\\ "{"  "{}"))
;    (defun TeX-rundekl () (interactive) (TeX-Inserting ?\\ "("  "()"))
;    (defun TeX-eckigek () (interactive) (TeX-Inserting ?\\ "["  "[]"))
;    )
; )


(add-hook 
 'LaTeX-mode-hook
 '(lambda ()
    (setq-default TeX-master nil); prompts you for entering a master file.
    (setq TeX-parse-self t) ; Enable parse on load.
    (setq TeX-auto-save t) ; Enable parse on save.
    (setq comment-start "%%")
    (latex-math-mode)
    ;;(local-set-key "\M-[" 'TeX-previous-error)
    (local-set-key "\M-]" 'TeX-next-error)
    (defun TeX-Inserting (sta stb stc)
      (if (= (preceding-char) sta )
          (insert stb)
        (progn (insert stc) (backward-char 1))))
    (local-set-key  "{" 'TeX-schweif)
    (local-set-key  "(" 'TeX-rundekl)
    (local-set-key  "[" 'TeX-eckigek)
    (local-set-key  "^" 'TeX-exponen)
    (local-set-key  "_" 'TeX-subscri)
    (local-set-key  "$" 'TeX-dollarm)
    (local-set-key  "\C-b" 'TeX-REVbbox)
    (defun TeX-schweif () (interactive) (TeX-Inserting ?\\ "{"  "{}"))
    (defun TeX-rundekl () (interactive) (TeX-Inserting ?\\ "("  "()"))
    (defun TeX-eckigek () (interactive) (TeX-Inserting ?\\ "["  "[]"))
    (defun TeX-exponen () (interactive) (TeX-Inserting ?\\ "^" "^{}"))
    (defun TeX-subscri () (interactive) (TeX-Inserting ?\\ "_" "_{}"))
    (defun TeX-dollarm () (interactive) (TeX-Inserting ?\\ "$"  "$$"))
    (defun TeX-REVbbox ()
      (interactive) (TeX-Inserting ?\\ "bbox{"  "\\bbox{}"))
    ;; For ISO Latin standard: Macro out of `ger-keys'
    ;; ger-keys should be loaded
    ;;(german-mode)
    ;; For german style usage:
    (modify-syntax-entry ?\" "w") ; "
    (local-set-key  "\"" 'self-insert-command)
    ;; Deutsche Belegung amerikanischer Tastaturen: aus `ger-keys'
    ;;(german-keyboard)
    ;;(TeX-run-style-hooks "german")
    ;;(format-encode-buffer 'plain) ;; nach dem Laden nach ISO konvertieren
    ;;(format-decode-buffer 'gtex) ;; vor Speichern nach gtex (ä -> "a)
    )
 )

(defun BibTeX-mode-addon ()
  (interactive)
  
  ;;(local-set-key "\M-[" 'TeX-previous-error)
  ;;(local-set-key "\M-]" 'TeX-next-error)
  (defun TeX-Inserting (sta stb stc)
    (if (= (preceding-char) sta )
        (insert stb)
      (progn (insert stc) (backward-char 1))))
  (local-set-key  "{" 'TeX-schweif)
  (local-set-key  "(" 'TeX-rundekl)
  (local-set-key  "[" 'TeX-eckigek)
  (local-set-key  "^" 'TeX-exponen)
  (local-set-key  "_" 'TeX-subscri)
  (local-set-key  "$" 'TeX-dollarm)
  (local-set-key  "\C-b" 'TeX-REVbbox)
  (defun TeX-schweif () (interactive) (TeX-Inserting ?\\ "{"  "{}"))
  (defun TeX-rundekl () (interactive) (TeX-Inserting ?\\ "("  "()"))
  (defun TeX-eckigek () (interactive) (TeX-Inserting ?\\ "["  "[]"))
  (defun TeX-exponen () (interactive) (TeX-Inserting ?\\ "^" "^{}"))
  (defun TeX-subscri () (interactive) (TeX-Inserting ?\\ "_" "_{}"))
  (defun TeX-dollarm () (interactive) (TeX-Inserting ?\\ "$"  "$$"))
  (defun ae () (interactive) (insert "{\\\"{a}}"))
  (local-set-key [?ä] 'ae)
  (defun oe () (interactive) (insert "{\\\"{o}}"))
  (local-set-key [?ö] 'oe)
  (defun ue () (interactive) (insert "{\\\"{u}}"))
  (local-set-key [?ü] 'ue)
  (defun ss () (interactive) (insert "{\\\"{s}}"))
  (local-set-key [?ß] 'ss)
  (defun Ae () (interactive) (insert "{\\\"{A}}"))
  (local-set-key [?Ä] 'Ae)
  (defun Oe () (interactive) (insert "{\\\"{O}}"))
  (local-set-key [?Ö] 'Oe)
  (defun Ue () (interactive) (insert "{\\\"{U}}"))
  (local-set-key [?Ü] 'Ue)

  (local-set-key [?\344] 'ae)
  (local-set-key [?\366] 'oe)
  (local-set-key [?\374] 'ue)
  (local-set-key [?\337] 'ss)
  (local-set-key [?\304] 'Ae)
  (local-set-key [?\334] 'Oe)
  (local-set-key [?\326] 'Ue)

  ;; For ISO Latin standard: Macro out of `ger-keys'
  ;; ger-keys should be loaded
  ;;(german-mode)
  ;; For german style usage:
                                        ; "
  (local-set-key  "\"" 'self-insert-command)
  ;; Deutsche Belegung amerikanischer Tastaturen: aus `ger-keys'
  ;;(german-keyboard)
  )
(add-hook 
 'bibtex-mode-hook
 'BibTeX-mode-addon)
          

(add-hook 
 'c++-mode-hook
 '(lambda ()
    (defun TeX-Inserting (sta stb stc)
      (if (= (preceding-char) sta )
          (insert stb)
        (progn (insert stc) (backward-char 1))))
    (local-set-key  "{" 'TeX-schweif)
    (local-set-key  "(" 'TeX-rundekl)
    (local-set-key  "[" 'TeX-eckigek)
    (defun TeX-schweif () (interactive) (TeX-Inserting ?\\ "{"  "{}"))
    (defun TeX-rundekl () (interactive) (TeX-Inserting ?\\ "("  "()"))
    (defun TeX-eckigek () (interactive) (TeX-Inserting ?\\ "["  "[]"))
    )
 )

;; Search and replace case-sensitive
(setq case-replace t)
(setq-default case-fold-search nil)
(add-hook 'TeX-mode-hook '(lambda () (setq case-fold-search nil)))
(setq ispell-enable-tex-parser t)


;; Colour setup
;(set-cursor-color "Red" )
;(set-mouse-color "Red" )
;; see variable font-lock-face-attributes for all these colors
(setq font-lock-face-attributes
     '((font-lock-comment-face "Firebrick")
      (font-lock-string-face "DarkGreen")
      (font-lock-keyword-face "Purple")
      (font-lock-function-name-face "Blue")
      (font-lock-variable-name-face "DarkGoldenrod")
      (font-lock-type-face "DarkOliveGreen")
;;      (font-lock-reference-face "VioletRed2")
))
(if (fboundp `global-font-lock-mode)
    (global-font-lock-mode t)
;;  (add-hook 'LaTeX-mode-hook 'turn-on-font-lock)
  (add-hook 'TeX-mode-hook 'turn-on-font-lock)
  (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
  (add-hook 'mail-setup-hook 'turn-on-font-lock)
  (add-hook 'dired-mode-hook 'turn-on-font-lock)
  )

;; Text printing
(setq lpr-command "lpr"
      lpr-add-switches nil)

;; PostScript printing
(setq ps-lpr-command  "modifiedlpr"
      ps-lpr-switches '( "-Zduplex=short" )
      ps-print-header t
      ps-paper-type   'a4)

;; TeX printers
(setq TeX-printer-list
      '(
        ("a4 oneside" "dvips %s -f | lpr -Zduplex=off" "lpq")
        ("a4r oneside" "dvips -t landscape %s -f | lpr -Zduplex=off" "lpq")
        ("a4 twoside" "dvips %s -f | lpr -Zduplex=long" "lpq")
        ("a4>a5 oneside" "dvips %s -f | lpr -Zpages=2,duplex=off" "lpq")
        ("a4r>a5 oneside" "dvips -t seascape %s -f | lpr -Zpages=2,duplex=off"
"lpq")
        ("a4>a5 twoside long-margin (default)" "dvips %s -f | lpr
-Zpages=2,duplex=long" "lpq")
        ("a4>a5 twoside short-margin" "dvips %s -f | lpr -Zpages=2,duplex=short"
"lpq")
        ("a4>a5 booklet" "dvips %s -f | lpr -Zbook=2" "lpq")
        ("a4>a6 oneside" "dvips %s -f | lpr -Zpages=4,duplex=off" "lpq")
        ("a4>a6 twoside" "dvips %s -f | lpr -Zpages=4,duplex=long" "lpq")
        ("a4>a6 booklet" "dvips %s -f | lpr -Zbook=4" "lpstat -o")
;       ("a5 oneside" "dvips %s -f | pstops '2:0L(1h,0)+1L(1h,14.85cm)' | lp -w
-df4" "lpstat -o")
;       ("a5 twoside long-margin" "dvips %s -f | pstops
'2:0L(1h,0)+1L(1h,14.85cm)' | lp -w -df4 -o vd" "lpstat -o")
;       ("a5 twoside short-margin" "dvips %s -f | pstops
'2:0L(1h,0)+1L(1h,14.85cm)' | lp -w -df4 -o hd" "lpstat -o")
;       ("a5 booklet" "dvips %s -f | psbook | pstops 
'2:0L(1h,0)+1L(1h,14.85cm)' |
lp -w -df4 -o hd" "lpstat -o")
;       ("a5 booklet gerade rückwärts > lpr500" "dvips %s -f | psbook | pstops
'2:0L(1h,0)+1L(1h,14.85cm)' | pstops 2:-0 | lp -w -dlpr500 -o hd" "lpstat
-o")
;       ("a5 booklet ungerade > lpr500" "dvips %s -f | psbook | pstops
'2:0L(1h,0)+1L(1h,14.85cm)' | pstops 2:1 | lp -w -dlpr500 -o hd" "lpstat
-o")
;       ("a5>a6 oneside" "dvips %s -f | pstops '1:0(.5h,0)' | psnup -Pa5 -4 |
pstops '1:0(0,-.25h)' | lp -w -df4" "lpstat -o")
        ("a4 color" "dvips %s -f | lpr -Pgathcolor" "lpq -Pgathcolor")
        ))

;; Modify TeX-command-list
;(let ((TeX-command-list-entry (cdr (assoc "LaTeX" TeX-command-list))))
;  (setcar TeX-command-list-entry
;         "ssh pascal %l '\\nonstopmode\\input{%t}'"
;         )
;  )


;; ISpell 3.* (not GNU ISpell 4. Thats older!)
(load "ispell") 
(setq ispell-program-name "ispell") 
;;(require 'ispell)
(setq ispell-dictionary-alist
      (append ispell-dictionary-alist
              '(("ndeutsch8" "[a-zA-Z\304\326\334\344\366\337\374]" 
                 "[^a-zA-Z\304\326\334\344\366\337\374]" "[']" t
                 ("-C" "-d" "german_new")
                 "~latin1" iso-8859-1))))


;; Wordlist starts with a LaTeX2e file and
;; ends up with a LaTeX2e file containing a wordlist.
(autoload 'wordlist "words" "" t)
(autoload 'wordlist-region "words" "" t)
(autoload 'collect-TeX-document "words" "" t)
(autoload 'wordlist-document "words" "" t)


;;; MNs personal feelings (should become part of restore ...)
(defun old-mnfeel ()
  (interactive)
  (if (nth 1 (visible-frame-list))
      (let ((f (visible-frame-list))
            (c 5))
        (while f
          (select-frame (car f))
          (set-default-font "10x20")
          (set-frame-position (car f) c 22)
          (set-frame-size (car f) 80 64)
          (setq c (+ c 512))
          (setq f (cdr f)))
        )
    (progn
      (set-default-font "10x20")
      (set-frame-position (selected-frame) 5 22)
      (set-frame-size (selected-frame) 80 64)
      (select-frame 
       (make-frame
        '( 
          (font .
"-Misc-Fixed-Medium-R-Normal--15-140-75-75-C-90-ISO8859-1")
          (top . 0) (left . 512) (width . 80) (height . 64)
          (visibility . icon)
          )
        )
       )
      (set-default-font "10x20")
      ;(sit-for 0.1)
      ;(set-frame-position (selected-frame) (+ 3 512) 20)
      ;(set-frame-size (selected-frame) 80 64)
      ))
  )
(defun mnfeel ()
  (interactive)
  (let ((f (visible-frame-list))
        (c 5))
    (while f
      (select-frame (car f))
      (set-default-font "10x20")
      (setq c (assq 'left (frame-parameters (car f))))
      (if (> (safe-length c) 2)
          (setq c (car (cddr c)))
        (setq c (cdr c))
        )
      (setq c (+ 5
                 (*
                  (truncate (/ (+ 256 c) 512))
                  512
                  )
                 )
            )
      (set-frame-position (car f) c 22)
      (set-frame-size (car f) 80 64)
      ;;(setq c (+ c 512))
      (setq f (cdr f))
      )
    )
  (set-default-font "10x20")
  ;;(sit-for 0.1)
  ;;(set-frame-position (selected-frame) (+ 3 512) 20)
  ;;(set-frame-size (selected-frame) 80 64)
  nil
  )
(mnfeel)
;
(global-set-key [S-f11] 'mnfeel)

; AutoConfig
;(require 'saveconf)
;(if (null (cdr command-line-args))
;    (setq inihibit-startup-message (recover-context)))
;; Save context automatically
;(setq auto-save-and-recover-context t)
;(setq save-buffer-context t)
; End AutoConfig

;; Restore and save current state (Buffer List ...)
;(load "restore")
;(restore-activate [f15] "Vordergrund")

(if (fboundp `custom-set-variables)
    nil
  (defun custom-set-variables (&rest args);; ignore these if not defined
    "Would initialize variables according to user preferences.
Is undefined however..."
    nil)
  )
(custom-set-variables
 '(bibtex-autokey-names 2)
 '(bibtex-add-entry-hook nil)
 '(bibtex-autokey-titleword-separator "")
 '(bibtex-comma-after-last-field t)
 '(bibtex-autokey-titleword-length 0)
 '(bibtex-field-delimiters (quote double-quotes))
 '(bibtex-entry-format (quote (opts-or-alts page-dashes realign last-comma
delimiters)))
 '(bibtex-user-optional-fields (quote (("ISBN" "ISBN") ("ISSN" "ISSN")
("reviews" "Zbl. and MR number") ("annote" "Personal annotation (ignored)")
("urltext" "Text to link to URL, if used for a WWW-Page") ("url" "WWW Adress
(must begin http:// or ftp:// or file:/ or similar)" "http://";) ("keywords"
"Keywords for easier scanning") ("status" "Status des Eintrags etwa:
MNue2001/11/02 Eintrag nach ..."))))
 '(bibtex-autokey-names-stretch 0)
 '(bibtex-autokey-titleword-change-strings (quote (("{" "") ("}" "")
("\\\"s\\|\\\\\\\"s" "ss") ("\\\\\"\\|\"" "") ("\\\\aa" "a") ("\\\\AA" "A")
("\\\"a\\|\\\\\\\"a\\|\\\\ae" "ae") ("\\\"A\\|\\\\\\\"A\\|\\\\AE" "Ae")
("\\\\i" "i") ("\\\\j" "j") ("\\\\l" "l") ("\\\\L" "L")
("\\\"o\\|\\\\\\\"o\\|\\\\o\\|\\\\oe" "oe")
("\\\"O\\|\\\\\\\"O\\|\\\\O\\|\\\\OE" "Oe") ("\\\"u\\|\\\\\\\"u" "ue")
("\\\"U\\|\\\\\\\"U" "Ue")
("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b"
""))))
 '(bibtex-autokey-year-title-separator "")
 '(bibtex-autokey-titlewords-stretch 0)
 '(bibtex-autokey-name-change-strings (quote (("{" "") ("}" "")
("\\\"s\\|\\\\\\\"s" "ss") ("\\\\\"\\|\"" "") ("\\\\aa" "a") ("\\\\AA" "A")
("\\\"a\\|\\\\\\\"a\\|\\\\ae" "ae") ("\\\"A\\|\\\\\\\"A\\|\\\\AE" "Ae")
("\\\\i" "i") ("\\\\j" "j") ("\\\\l" "l") ("\\\\L" "L")
("\\\"o\\|\\\\\\\"o\\|\\\\o\\|\\\\oe" "oe")
("\\\"O\\|\\\\\\\"O\\|\\\\O\\|\\\\OE" "Oe") ("\\\"u\\|\\\\\\\"u" "ue")
("\\\"U\\|\\\\\\\"U" "Ue")
("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b"
""))))
 '(mouse-buffer-menu-mode-mult 1)
 '(font-lock-maximum-size 2097152)
 '(bibtex-maintain-sorted-entries nil)
 '(bibtex-autokey-titlewords 0)
 '(bibtex-autokey-title-terminators (quote ("." "!" "\\?" ":" ";" "--")))
 '(bibtex-autokey-name-length 3)
 '(bibtex-autokey-edit-before-use t))
 
(put 'narrow-to-region 'disabled nil)
;;(custom-set-faces)
(custom-set-faces)

;;; this code must be after customization! 
(if fast-startup
    nil
  ;; A configuration memory. Load and save configurations.

;;  (activate-configuration-memory [C-f11] "Vordergrund")
  )


;;(defun ytest ()
;;  (interactive)
;;  (while (nonincremental-repeat-re-search-forward)
;;    (bibtex-clean-entry))
;;  )

  
-- 
View this message in context: 
http://www.nabble.com/Activating-functionalities-for-LaTeX-files-tf4610162.html#a13165394
Sent from the Gnu - AUCTeX - General mailing list archive at Nabble.com.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]