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))
_______________________________________________
auctex-diffs mailing list
auctex-di...@gnu.org
http://lists.gnu.org/mailman/listinfo/auctex-diffs
