Commit a01763cb authored by Eli Zaretskii's avatar Eli Zaretskii

(w32-window-exists-p): New function.

(syms_of_w32fns): Defsubr it.
parent 651f8172
......@@ -8349,6 +8349,30 @@ is set to off if the low bit of NEW-STATE is zero, otherwise on. */)
}
return Qnil;
}
DEFUN ("w32-window-exists-p", Fw32_window_exists_p, Sw32_window_exists_p,
2, 2, 0,
doc: /* Return non-nil if a window exists with the specified CLASS and NAME.
This is a direct interface to the Windows API FindWindow function. */)
(class, name)
Lisp_Object class, name;
{
HWND hnd;
if (!NILP (class))
CHECK_STRING (class);
if (!NILP (name))
CHECK_STRING (name);
hnd = FindWindow (STRINGP (class) ? ((LPCTSTR) SDATA (class)) : NULL,
STRINGP (name) ? ((LPCTSTR) SDATA (name)) : NULL);
if (!hnd)
return Qnil;
return Qt;
}
DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
doc: /* Return storage information about the file system FILENAME is on.
......@@ -8915,6 +8939,7 @@ versions of Windows) characters. */);
staticpro (&Qw32_charset_unicode);
Qw32_charset_unicode = intern ("w32-charset-unicode");
}
#endif
#if 0 /* TODO: Port to W32 */
......@@ -8959,6 +8984,7 @@ versions of Windows) characters. */);
defsubr (&Sw32_registered_hot_keys);
defsubr (&Sw32_reconstruct_hot_key);
defsubr (&Sw32_toggle_lock_key);
defsubr (&Sw32_window_exists_p);
defsubr (&Sw32_find_bdf_fonts);
defsubr (&Sfile_system_info);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment