projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(IU+20293): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git-]
/
lisp
/
simple.el
diff --git
a/lisp/simple.el
b/lisp/simple.el
index
c20c4f8
..
b0666a1
100644
(file)
--- a/
lisp/simple.el
+++ b/
lisp/simple.el
@@
-3898,7
+3898,7
@@
This correctly caters to the user's setting of `zmacs-regions'."
;; XEmacs
(defun region-active-p ()
;; XEmacs
(defun region-active-p ()
- "Return non-nil if the region is active.
+ "Return non-nil if the region is active in the current buffer.
If `zmacs-regions' is true, this is equivalent to `region-exists-p'.
Otherwise, this function always returns false.
If `zmacs-regions' is true, this is equivalent to `region-exists-p'.
Otherwise, this function always returns false.
@@
-3908,7
+3908,8
@@
want grayed out when the region is not active. Instead, use this:
[ ... ... :active (region-exists-p)]
Which correctly caters to the user's setting of `zmacs-regions'."
[ ... ... :active (region-exists-p)]
Which correctly caters to the user's setting of `zmacs-regions'."
- (and zmacs-regions zmacs-region-extent))
+ (and zmacs-regions zmacs-region-extent
+ (eq (current-buffer) (zmacs-region-buffer))))
(defvar zmacs-activate-region-hook nil
"Function or functions called when the region becomes active;
(defvar zmacs-activate-region-hook nil
"Function or functions called when the region becomes active;