diff options
author | Richard M. Stallman <rms@gnu.org> | 2007-12-25 22:47:03 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2007-12-25 22:47:03 +0000 |
commit | b63dc21e4fcf23a27d02379c7db9bef724eaa2d5 (patch) | |
tree | 06a9515a3ebf28ecf10bb9c8b11fa7e6810d5cd6 /lisp | |
parent | 072aab30c924ffcc6ca3ee2d44d3235d9324d734 (diff) | |
download | emacs-b63dc21e4fcf23a27d02379c7db9bef724eaa2d5.tar.gz |
(ada-region-selected): Use `use-region-p'.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/progmodes/ada-mode.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 07d38dbdaa2..5910ebf3f28 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1396,13 +1396,11 @@ If you use ada-xref.el: (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 |