Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c978536f
Commit
c978536f
authored
Oct 18, 2010
by
Julien Danjou
Committed by
Stefan Monnier
Oct 18, 2010
Browse files
* src/frame.c (Fframe_pointer_visible_p):
Add `frame-pointer-visible-p' to get the pointer visibility.
parent
43f964fc
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
29 additions
and
0 deletions
+29
-0
doc/lispref/frames.texi
doc/lispref/frames.texi
+9
-0
src/ChangeLog
src/ChangeLog
+5
-0
src/frame.c
src/frame.c
+15
-0
No files found.
doc/lispref/frames.texi
View file @
c978536f
...
...
@@ -1748,6 +1748,15 @@ If @var{frame} is not visible, this function does nothing. The return
value is not significant.
@end defun
@defun frame-pointer-visible-p &optional frame
This predicate function returns non-@code{nil} if the mouse pointer
displayed on @var{frame} is visible; otherwise it returns @code{nil}.
@var{frame} 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.
@xref{Mouse Avoidance,,,emacs}.
@end defun
@need 3000
@node Pop-Up Menus
...
...
src/ChangeLog
View file @
c978536f
2010-10-18 Julien Danjou <julien@danjou.info>
* frame.c (Fframe_pointer_visible_p):
Add `frame-pointer-visible-p' to get the pointer visibility.
2010-10-18 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnutls.c (emacs_gnutls_read): Return 0 if we get a
...
...
src/frame.c
View file @
c978536f
...
...
@@ -4314,6 +4314,20 @@ frame_make_pointer_visible (void)
}
}
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 @@ automatically. See also `mouse-autoselect-window'. */);
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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment