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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/12/22 16:42:26

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.643
retrieving revision 5.644
diff -u -b -r5.643 -r5.644
--- tex.el      21 Dec 2008 14:37:28 -0000      5.643
+++ tex.el      22 Dec 2008 16:42:26 -0000      5.644
@@ -2348,9 +2348,7 @@
                             (prin1-to-string head))))))
          (t (error "Unknown argument type %s" (prin1-to-string arg))))
     (when (and insert-flag (not optional) (TeX-active-mark))
-      (if (featurep 'xemacs)
-         (zmacs-deactivate-region)
-       (deactivate-mark)))))
+      (TeX-deactivate-mark))))
 
 (defun TeX-argument-insert (name optional &optional prefix)
   "Insert NAME surrounded by curly braces.
@@ -3521,6 +3519,15 @@
     (skip-chars-backward " \t\n")
     (bobp)))
 
+(defun TeX-deactivate-mark ()
+  "Deactivate the mark.
+This is a compatibility function which works both in Emacs and
+XEmacs.  In XEmacs the region is deactivated instead of the
+mark which is sort of equivalent."
+  (if (featurep 'xemacs)
+      (zmacs-deactivate-region)
+    (deactivate-mark)))
+
 (defalias 'TeX-run-mode-hooks
   (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))