mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ada-region-selected): Use `use-region-p'.

Browse source
This commit is contained in:
Richard M. Stallman 2007-12-25 22:47:03 +00:00
parent 072aab30c9
commit b63dc21e4f
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/ada-mode.el
View file

@ -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