comparison lisp/progmodes/ada-mode.el @ 87401:5c852af4e53c

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

87400:f5538ebc9577

    (let ((aa-end (point)))
      (ada-adjust-case-region
       (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)))


;;-----------------------------------------------------------------
;;                      auto-casing
;; Since Ada is case-insensitive, the Ada mode provides an extensive set of
;; functions to auto-case identifiers, keywords, ...

87401:5c852af4e53c

    (let ((aa-end (point)))
      (ada-adjust-case-region
       (progn (goto-char (symbol-value 'beg)) (forward-word -1) (point))
       (goto-char aa-end)))))

(defun ada-region-selected ()
  "Should we operate on an active region?"
  (if (fboundp 'use-region-p)
      (use-region-p)
    (region-active-p)))

;;-----------------------------------------------------------------
;;                      auto-casing
;; Since Ada is case-insensitive, the Ada mode provides an extensive set of
;; functions to auto-case identifiers, keywords, ...