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

[Juanma Barranquero]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.167 
emacs/lisp/textmodes/tex-mode.el:1.168
*** emacs/lisp/textmodes/tex-mode.el:1.167      Fri Jun 10 10:45:56 2005
--- emacs/lisp/textmodes/tex-mode.el    Mon Jul  4 03:44:33 2005
***************
*** 40,56 ****
  (require 'compile)
  
  (defgroup tex-file nil
!   "TeX files and directories"
    :prefix "tex-"
    :group 'tex)
  
  (defgroup tex-run nil
!   "Running external commands from TeX mode"
    :prefix "tex-"
    :group 'tex)
  
  (defgroup tex-view nil
!   "Viewing and printing TeX files"
    :prefix "tex-"
    :group 'tex)
  
--- 40,56 ----
  (require 'compile)
  
  (defgroup tex-file nil
!   "TeX files and directories."
    :prefix "tex-"
    :group 'tex)
  
  (defgroup tex-run nil
!   "Running external commands from TeX mode."
    :prefix "tex-"
    :group 'tex)
  
  (defgroup tex-view nil
!   "Viewing and printing TeX files."
    :prefix "tex-"
    :group 'tex)
  
***************
*** 1114,1120 ****
              (delete-char (length tex-open-quote))
              t)))
        (self-insert-command (prefix-numeric-value arg))
!     (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\ ))
                tex-open-quote tex-close-quote))))
  
  (defun tex-validate-buffer ()
--- 1114,1120 ----
              (delete-char (length tex-open-quote))
              t)))
        (self-insert-command (prefix-numeric-value arg))
!     (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s))
                tex-open-quote tex-close-quote))))
  
  (defun tex-validate-buffer ()
***************
*** 2421,2427 ****
         (+ indent (current-column) tex-indent-item))
        (t
         (let ((col (current-column)))
!          (if (or (not (eq (char-syntax (or (char-after pos) ?\ )) ?\())
                   ;; Can't be an arg if there's an empty line inbetween.
                   (save-excursion (re-search-forward "^[ \t]*$" pos t)))
               ;; If the first char was not an open-paren, there's
--- 2421,2427 ----
         (+ indent (current-column) tex-indent-item))
        (t
         (let ((col (current-column)))
!          (if (or (not (eq (char-syntax (or (char-after pos) ?\s)) ?\())
                   ;; Can't be an arg if there's an empty line inbetween.
                   (save-excursion (re-search-forward "^[ \t]*$" pos t)))
               ;; If the first char was not an open-paren, there's