[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    10/12/05 20:48:13

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.670
retrieving revision 5.671
diff -u -b -r5.670 -r5.671
--- tex.el      16 Nov 2010 20:36:12 -0000      5.670
+++ tex.el      5 Dec 2010 20:48:13 -0000       5.671
@@ -849,9 +849,10 @@
                                      'TeX-command-next TeX-command-default))
          (set-buffer-modified-p (buffer-modified-p))))))
 
-(defun TeX-mode-prefix ()
-  "Return the prefix of the current mode as string."
-  (cdr (assoc major-mode '((plain-tex-mode . "plain-TeX")
+(defun TeX-mode-prefix (&optional mode)
+  "Return the prefix for the symbol MODE as string.
+If no mode is given the current major mode is used."
+  (cdr (assoc (or mode major-mode) '((plain-tex-mode . "plain-TeX")
                           (latex-mode . "LaTeX")
                           (doctex-mode . "docTeX")
                           (texinfo-mode . "Texinfo")
@@ -2833,7 +2834,6 @@
   (kill-all-local-variables)
   (setq TeX-mode-p t)
   (setq TeX-output-extension (if TeX-PDF-mode "pdf" "dvi"))
-  (setq local-abbrev-table text-mode-abbrev-table)
   (setq indent-tabs-mode nil)
 
   ;; Ispell support
@@ -5384,6 +5384,20 @@
              ispell-tex-major-modes))
 
 
+;;; Abbrev mode
+
+(defmacro TeX-abbrev-mode-setup (mode)
+  "Set up the abbrev table and variable for MODE."
+  (let ((symbol (intern (concat (symbol-name mode) "-abbrev-table")))
+       (name (TeX-mode-prefix mode)))
+    `(progn
+       (defvar ,symbol nil
+        ,(format "Abbrev table for %s mode." name))
+       (define-abbrev-table ',symbol nil)
+       (when (fboundp 'abbrev-table-put)
+        (abbrev-table-put ,symbol :parents (list text-mode-abbrev-table))))))
+
+
 ;;; Special provisions for other modes and libraries
 
 ;; desktop-locals-to-save is broken by design.  Don't have