Commit: 26265801d4e9162c628e9ed78a294e590c7659db - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revision: 26265801d4e9162c628e9ed78a294e590c7659db (tree)
• Time: 1999-08-21 19:02:58
• Author: john <john>
• Commiter: john

Log Message

(x_atom_symbol, x_win_from_arg): new functions

Change Summary

• modified: src/display.c

Incremental Difference

--- a/src/display.c
+++ b/src/display.c
@@ -211,6 +211,33 @@ sys_kill (void)
 
 /* utilities */
 
+repv
+x_atom_symbol (Atom atom)
+{
+    char *name = XGetAtomName (dpy, atom);
+    if (name != 0)
+    {
+	repv sym = Fintern (rep_string_dup (name), rep_obarray);
+	XFree (name);
+	return sym;
+    }
+    else
+	return Qnil;
+}
+
+Window
+x_win_from_arg (repv arg)
+{
+    if (arg == Qroot)
+	return root_window;
+    else if (WINDOWP(arg))
+	return VWIN(arg)->id;
+    else if (rep_INTP(arg))
+	return rep_INT(arg);
+    else
+	return 0;
+}
+
 /***************************************************************************
  *
  * ICCCM Client Messages - Section 4.2.8 of the ICCCM dictates that all