[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101992: * src/frame.c (Fframe_pointe
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101992: * src/frame.c (Fframe_pointer_visible_p): |
Date: |
Mon, 18 Oct 2010 17:07:31 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101992
author: Julien Danjou <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2010-10-18 17:07:31 -0400
message:
* src/frame.c (Fframe_pointer_visible_p):
Add `frame-pointer-visible-p' to get the pointer visibility.
modified:
doc/lispref/frames.texi
src/ChangeLog
src/frame.c
=== modified file 'doc/lispref/frames.texi'
--- a/doc/lispref/frames.texi 2010-09-06 16:38:03 +0000
+++ b/doc/lispref/frames.texi 2010-10-18 21:07:31 +0000
@@ -1748,6 +1748,15 @@
value is not significant.
@end defun
address@hidden frame-pointer-visible-p &optional frame
+This predicate function returns address@hidden if the mouse pointer
+displayed on @var{frame} is visible; otherwise it returns @code{nil}.
address@hidden omitted or @code{nil} means the selected frame. This is
+useful when @code{make-pointer-invisible} is set to @code{t}: it
+allows to know if the pointer has been hidden.
address@hidden Avoidance,,,emacs}.
address@hidden defun
+
@need 3000
@node Pop-Up Menus
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2010-10-18 20:32:54 +0000
+++ b/src/ChangeLog 2010-10-18 21:07:31 +0000
@@ -1,3 +1,8 @@
+2010-10-18 Julien Danjou <address@hidden>
+
+ * frame.c (Fframe_pointer_visible_p):
+ Add `frame-pointer-visible-p' to get the pointer visibility.
+
2010-10-18 Lars Magne Ingebrigtsen <address@hidden>
* gnutls.c (emacs_gnutls_read): Return 0 if we get a
=== modified file 'src/frame.c'
--- a/src/frame.c 2010-09-17 14:37:14 +0000
+++ b/src/frame.c 2010-10-18 21:07:31 +0000
@@ -4314,6 +4314,20 @@
}
}
+DEFUN ("frame-pointer-visible-p", Fframe_pointer_visible_p,
+ Sframe_pointer_visible_p, 0, 1, 0,
+ doc: /* Return t if the mouse pointer displayed on FRAME is visible.
+Otherwise it returns nil. FRAME omitted or nil means the
+selected frame. This is useful when `make-pointer-invisible' is set. */)
+ (Lisp_Object frame)
+{
+ if (NILP (frame))
+ frame = selected_frame;
+
+ CHECK_FRAME (frame);
+
+ return (XFRAME (frame)->pointer_invisible ? Qnil : Qt);
+}
/***********************************************************************
@@ -4623,6 +4637,7 @@
defsubr (&Sset_frame_width);
defsubr (&Sset_frame_size);
defsubr (&Sset_frame_position);
+ defsubr (&Sframe_pointer_visible_p);
#ifdef HAVE_WINDOW_SYSTEM
defsubr (&Sx_get_resource);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101992: * src/frame.c (Fframe_pointer_visible_p):,
Stefan Monnier <=