Mercurial > emacs

changeset 87401:5c852af4e53c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-region-selected): Use `use-region-p'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2007 22:47:03 +0000
parents f5538ebc9577
children 733157417ec4
files lisp/progmodes/ada-mode.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el	Tue Dec 25 22:45:55 2007 +0000
+++ b/lisp/progmodes/ada-mode.el	Tue Dec 25 22:47:03 2007 +0000
@@ -1396,13 +1396,11 @@
        (progn (goto-char (symbol-value 'beg)) (forward-word -1) (point))
        (goto-char aa-end)))))
 
-;;  transient-mark-mode and mark-active are not defined in XEmacs
 (defun ada-region-selected ()
-  "Return t if a region has been selected by the user and is still active."
-  (if (featurep 'xemacs)
-      (region-active-p)
-    (and transient-mark-mode mark-active)))
-
+  "Should we operate on an active region?"
+  (if (fboundp 'use-region-p)
+      (use-region-p)
+    (region-active-p)))
 
 ;;-----------------------------------------------------------------
 ;;                      auto-casing