[AUCTeX-diffs] [elpa] externals/auctex 52e1426 02/43: Remove XEmacs compatibility code in latex.el

[Tassilo Horn]

branch: externals/auctex
commit 52e142662de8f4643a3682138c8612ae58169be8
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Remove XEmacs compatibility code in latex.el
    
    * latex.el (LaTeX-largest-level-set):
    (LaTeX-after-insert-env-hook):
    (LaTeX-indent-line):
    (LaTeX-fill-region-as-paragraph):
    (LaTeX-fill-newline):
    (LaTeX-common-initialization): Remove code for compatibility with XEmacs.
    (LaTeX-fill-delete-newlines): Remove function, no more needed.
    (LaTeX-fill-region-as-para-do): Replace `LaTeX-fill-delete-newlines' with
    `fill-delete-newlines'.
---
 latex.el | 168 ++++++++-------------------------------------------------------
 1 file changed, 21 insertions(+), 147 deletions(-)

diff --git a/latex.el b/latex.el
index fa2ae34..37c77b4 100644
--- a/latex.el
+++ b/latex.el
@@ -296,9 +296,7 @@ Additionally the function will invalidate the section 
submenu in
 order to let the menu filter regenerate it."
   (setq LaTeX-largest-level (LaTeX-section-level section))
   (let ((offset (LaTeX-outline-offset)))
-    (when (and (> offset 0)
-              ;; XEmacs does not know `outline-heading-alist'.
-              (boundp 'outline-heading-alist))
+    (when (> offset 0)
       (let (lst)
        (dolist (tup outline-heading-alist)
          (setq lst (cons (cons (car tup)
@@ -645,9 +643,7 @@ With prefix-argument, reopen environment afterwards."
                         marker))
        (move-marker marker nil)))))
 
-(if (featurep 'xemacs)
-    (define-obsolete-variable-alias 'LaTeX-after-insert-env-hooks 
'LaTeX-after-insert-env-hook)
-  (define-obsolete-variable-alias 'LaTeX-after-insert-env-hooks 
'LaTeX-after-insert-env-hook "11.89"))
+(define-obsolete-variable-alias 'LaTeX-after-insert-env-hooks 
'LaTeX-after-insert-env-hook "11.89")
 
 (defvar LaTeX-after-insert-env-hook nil
   "List of functions to be run at the end of `LaTeX-insert-environment'.
@@ -3223,23 +3219,7 @@ Lines starting with an item is given an extra 
indentation of
                 (looking-at
                  (concat "\([  ]*" TeX-comment-start-regexp "+\)+"))
                 (concat (match-string 0) (TeX-comment-padding-string)))))
-        (overlays (when (featurep 'xemacs)
-                    ;; Isn't that fun?  In Emacs an `(overlays-at
-                    ;; (line-beginning-position))' would do the
-                    ;; trick.  How boring.
-                    (extent-list
-                     nil (line-beginning-position) (line-beginning-position)
-                     'all-extents-closed-open 'overlay)))
         ol-specs)
-    ;; XEmacs' `indent-to' function (at least in version 21.4.15) has
-    ;; a bug which leads to the insertion of whitespace in front of an
-    ;; invisible overlay.  So during indentation we temporarily remove
-    ;; the 'invisible property.
-    (dolist (ol overlays)
-      (when (extent-property ol 'invisible)
-        (pushnew (list ol (extent-property ol 'invisible))
-                 ol-specs :test #'equal)
-       (set-extent-property ol 'invisible nil)))
     (save-excursion
       (cond ((and fill-prefix
                  (TeX-in-line-comment)
@@ -3584,16 +3564,7 @@ not be subject to filling."
   :group 'LaTeX
   :type '(repeat string))
 
-(defvar LaTeX-nospace-between-char-regexp
-  (if (featurep 'xemacs)
-    (if (and (boundp 'word-across-newline) word-across-newline)
-       word-across-newline
-      ;; NOTE: Ensure not to have a value of nil for such a rare case that
-      ;; somebody removes the mule test in `LaTeX-fill-delete-newlines' so that
-      ;; it could match only "
" and this could lead to problem.  XEmacs does
-      ;; not have a category `