[Emacs-diffs] master 9873660 3/3: Remove XEmacs compat code from meta-mode.el

[Stefan Kangas]

branch: master
commit 987366065b5809f5707b375ce8000664249b8a4f
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>

    Remove XEmacs compat code from meta-mode.el
    
    * lisp/progmodes/meta-mode.el (meta-mode-menu):
    (meta-mode-load-hook): Remove XEmacs compat code.
---
 lisp/progmodes/meta-mode.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index 8d3745b..b31fe33 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -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.