[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/xfns.c
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/src/xfns.c |
Date: |
Sat, 24 Jul 2004 08:53:26 -0400 |
Index: emacs/src/xfns.c
diff -c emacs/src/xfns.c:1.610 emacs/src/xfns.c:1.611
*** emacs/src/xfns.c:1.610 Wed May 12 09:24:02 2004
--- emacs/src/xfns.c Sat Jul 24 12:49:40 2004
***************
*** 2633,2638 ****
--- 2633,2660 ----
#endif /* not USE_GTK */
#endif /* not USE_X_TOOLKIT */
+ /* Verify that the icon position args for this window are valid. */
+
+ static void
+ x_icon_verify (f, parms)
+ struct frame *f;
+ Lisp_Object parms;
+ {
+ Lisp_Object icon_x, icon_y;
+
+ /* Set the position of the icon. Note that twm groups all
+ icons in an icon window. */
+ icon_x = x_frame_get_and_record_arg (f, parms, Qicon_left, 0, 0,
RES_TYPE_NUMBER);
+ icon_y = x_frame_get_and_record_arg (f, parms, Qicon_top, 0, 0,
RES_TYPE_NUMBER);
+ if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
+ {
+ CHECK_NUMBER (icon_x);
+ CHECK_NUMBER (icon_y);
+ }
+ else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
+ error ("Both left and top icon corners of icon must be specified");
+ }
+
/* Handle the icon stuff for this window. Perhaps later we might
want an x_set_icon_position which can be called interactively as
well. */
***************
*** 3117,3122 ****
--- 3139,3146 ----
tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
f->no_split = minibuffer_only || EQ (tem, Qt);
+ x_icon_verify (f, parms);
+
/* Create the X widget or window. */
#ifdef USE_X_TOOLKIT
x_window (f, window_prompting, minibuffer_only);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/xfns.c,
Luc Teirlinck <=