Remove XEmacs compat code from meta-mode.el

* lisp/progmodes/meta-mode.el (meta-mode-menu):
(meta-mode-load-hook): Remove XEmacs compat code.
This commit is contained in:
Stefan Kangas 2019-10-20 22:48:28 +02:00
parent eaf85a463f
commit 987366065b

View file

@ -871,15 +871,15 @@ The environment marked is the one that contains point or follows point."
["Indent Line" meta-indent-line t]
["Indent Environment" meta-indent-defun t]
["Indent Region" meta-indent-region
:active (meta-mark-active)]
:active mark-active]
["Indent Buffer" meta-indent-buffer t]
"--"
["Comment Out Environment" meta-comment-defun t]
["Uncomment Environment" meta-uncomment-defun t]
["Comment Out Region" meta-comment-region
:active (meta-mark-active)]
:active mark-active]
["Uncomment Region" meta-uncomment-region
:active (meta-mark-active)]
:active mark-active]
"--"
["Complete Symbol" completion-at-point t]
; "--"
@ -888,12 +888,6 @@ The environment marked is the one that contains point or follows point."
; ["Recenter Output Buffer" meta-recenter-output-buffer t]
))
;; Compatibility: XEmacs doesn't have the `mark-active' variable.
(defun meta-mark-active ()
"Return whether the mark and region are currently active in this buffer."
(if (boundp 'mark-active) mark-active (mark)))
;;; Hook variables.