[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.133 
emacs/lisp/textmodes/tex-mode.el:1.134
*** emacs/lisp/textmodes/tex-mode.el:1.133      Fri May 30 14:52:46 2003
--- emacs/lisp/textmodes/tex-mode.el    Sat Jun  7 20:49:38 2003
***************
*** 276,299 ****
    "File name that \\[tex-print] prints.
  Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
  
! (easy-mmode-defsyntax tex-mode-syntax-table
!   '((?% . "<")
!     (?\n . ">")
!     (?\f . ">")
!     (?\C-@ . "w")
!     (?' . "w")
!     (?@ . "_")
!     (?* . "_")
!     (?\t . " ")
      ;; ~ is printed by TeX as a space, but it's semantics in the syntax
      ;; of TeX is not `whitespace' (i.e. it's just like \hspace{foo}).
!     (?~ . ".")
!     (?$ . "$$")
!     (?\\ . "/")
!     (?\" . ".")
!     (?& . ".")
!     (?_ . ".")
!     (?^ . "."))
    "Syntax table used while in TeX mode.")
  
  ;;;;
--- 276,301 ----
    "File name that \\[tex-print] prints.
  Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
  
! (defvar tex-mode-syntax-table
!   (let ((st (make-syntax-table)))
!     (modify-syntax-entry ?% "<" st)
!     (modify-syntax-entry ?\n ">" st)
!     (modify-syntax-entry ?\f ">" st)
!     (modify-syntax-entry ?\C-@ "w" st)
!     (modify-syntax-entry ?' "w" st)
!     (modify-syntax-entry ?@ "_" st)
!     (modify-syntax-entry ?* "_" st)
!     (modify-syntax-entry ?\t " " st)
      ;; ~ is printed by TeX as a space, but it's semantics in the syntax
      ;; of TeX is not `whitespace' (i.e. it's just like \hspace{foo}).
!     (modify-syntax-entry ?~ "." st)
!     (modify-syntax-entry ?$ "$$" st)
!     (modify-syntax-entry ?\\ "/" st)
!     (modify-syntax-entry ?\" "." st)
!     (modify-syntax-entry ?& "." st)
!     (modify-syntax-entry ?_ "." st)
!     (modify-syntax-entry ?^ "." st)
!     st)
    "Syntax table used while in TeX mode.")
  
  ;;;;
***************
*** 1233,1239 ****
  ;; Like tex-insert-braces, but for LaTeX.
  (defalias 'tex-latex-block 'latex-insert-block)
  (define-skeleton latex-insert-block
!   "Create a matching pair of lines \\begin[OPT]{NAME} and \\end{NAME} at 
point.
  Puts point on a blank line between them."
    (let ((choice (completing-read (format "LaTeX block name [%s]: "
                                         latex-block-default)
--- 1235,1241 ----
  ;; Like tex-insert-braces, but for LaTeX.
  (defalias 'tex-latex-block 'latex-insert-block)
  (define-skeleton latex-insert-block
!   "Create a matching pair of lines \\begin{NAME} and \\end{NAME} at point.
  Puts point on a blank line between them."
    (let ((choice (completing-read (format "LaTeX block name [%s]: "
                                         latex-block-default)
***************
*** 2232,2243 ****
  (defvar tex-indent-item tex-indent-basic)
  (defvar tex-indent-item-re "\\\\\\(bib\\)?item\\>")
  
! (easy-mmode-defsyntax tex-latex-indent-syntax-table
!   '((?$ . ".")
!     (?\( . ".")
!     (?\) . "."))
!   "Syntax table used while computing indentation."
!   :copy tex-mode-syntax-table)
  
  (defun latex-indent (&optional arg)
    (if (and (eq (get-text-property (line-beginning-position) 'face)
--- 2234,2246 ----
  (defvar tex-indent-item tex-indent-basic)
  (defvar tex-indent-item-re "\\\\\\(bib\\)?item\\>")
  
! (defvar tex-latex-indent-syntax-table
!   (let ((st (make-syntax-table tex-mode-syntax-table)))
!     (modify-syntax-entry ?$ "." st)
!     (modify-syntax-entry ?\( "." st)
!     (modify-syntax-entry ?\) "." st)
!     st)
!   "Syntax table used while computing indentation.")
  
  (defun latex-indent (&optional arg)
    (if (and (eq (get-text-property (line-beginning-position) 'face)