mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(reftex-region-active-p): Use `use-region-p'.

Browse Source
This commit is contained in:
Richard M. Stallman 2007-12-25 22:44:57 +00:00
parent 22760342bf
commit f93df073e6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/reftex.el
View File

@ -1805,11 +1805,11 @@ When DIE is non-nil, throw an error if file not found."
(buffer-substring-no-properties (match-beginning n) (match-end n))))
(defun reftex-region-active-p ()
"Is transient-mark-mode on and the region active?
Works on both Emacs and XEmacs."
(if (featurep 'xemacs)
(and zmacs-regions (region-active-p))
(and transient-mark-mode mark-active)))
"Should we operate on an active region?"
(if (fboundp 'use-region-p)
(use-region-p)
;; For XEmacs.
(region-active-p)))
(defun reftex-kill-buffer (buffer)
;; Kill buffer if it exists.