From 3c16eda5f1d207bf5d345a28ec19ca7afb79647d Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 23:49:13 +0200
Subject: [PATCH] Remove XEmacs compat code from pascal.el

* lisp/progmodes/pascal.el (pascal-mark-defun): Remove XEmacs compat.
---
 lisp/progmodes/pascal.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index cae514aa75b..26fb0a88c53 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -510,9 +510,7 @@ This puts the mark at the end, and point at the beginning."
   (push-mark)
   (pascal-end-of-defun)
   (push-mark)
-  (pascal-beg-of-defun)
-  (when (featurep 'xemacs)
-    (zmacs-activate-region)))
+  (pascal-beg-of-defun))
 
 (defun pascal-comment-area (start end)
   "Put the region into a Pascal comment.\\<pascal-mode-map>
-- 
2.39.2