diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-20 22:48:28 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-20 22:52:02 +0200 |
| commit | 987366065b5809f5707b375ce8000664249b8a4f (patch) | |
| tree | 2f61981439347adf5556d8e874e15c9c322166c6 /lisp/progmodes/meta-mode.el | |
| parent | eaf85a463f3187692ccd49506e84c691c793ab46 (diff) | |
| download | emacs-987366065b5809f5707b375ce8000664249b8a4f.tar.gz | |
Remove XEmacs compat code from meta-mode.el
* lisp/progmodes/meta-mode.el (meta-mode-menu):
(meta-mode-load-hook): Remove XEmacs compat code.
Diffstat (limited to 'lisp/progmodes/meta-mode.el')
| -rw-r--r-- | lisp/progmodes/meta-mode.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el index 8d3745be7c9..b31fe3390cb 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. |