(meta-mark-active): Fix condition to just
authorDavid Kastrup <dak@gnu.org>
Fri, 18 Feb 2005 14:28:24 +0000 (14:28 +0000)
committerDavid Kastrup <dak@gnu.org>
Fri, 18 Feb 2005 14:28:24 +0000 (14:28 +0000)
use `mark-active' when defined.

lisp/ChangeLog
lisp/progmodes/meta-mode.el

index 39b2932..473afa9 100644 (file)
@@ -1,3 +1,8 @@
+2005-02-18  David Kastrup  <dak@gnu.org>
+
+       * progmodes/meta-mode.el (meta-mark-active): Fix condition to just
+       use `mark-active' when defined.
+
 2005-02-18  Kenichi Handa  <handa@m17n.org>
 
        * ps-print.el (ps-font-info-database): New entry
index ecf8da2..7bf9921 100644 (file)
@@ -898,7 +898,7 @@ The environment marked is the one that contains point or follows point."
 ;; 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."
-  (or (and (boundp 'mark-active) mark-active) (mark)))
+  (if (boundp 'mark-active) mark-active (mark)))
 
 
 \f