[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Let's tell we are using GTK+
From: |
Terje Rosten |
Subject: |
Let's tell we are using GTK+ |
Date: |
Sun, 03 Aug 2003 17:14:43 +0200 |
User-agent: |
Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) |
Here are two patches which together let the lisp function
emacs-version tell about the presence of GTK+ support.
Please apply.
Thanks,
- Terje
Index: src/xfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfns.c,v
retrieving revision 1.590
diff -c -r1.590 xfns.c
*** src/xfns.c 31 Jul 2003 16:10:53 -0000 1.590
--- src/xfns.c 3 Aug 2003 14:52:35 -0000
***************
*** 10886,10891 ****
--- 10886,10895 ----
#endif /* USE_MOTIF */
#endif /* USE_X_TOOLKIT */
+ #ifdef USE_GTK
+ Fprovide (intern ("gtk+-toolkit"), Qnil);
+ #endif /* USE_GTK */
+
/* X window properties. */
defsubr (&Sx_change_window_property);
defsubr (&Sx_delete_window_property);
Index: src/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.3331
diff -c -r1.3331 ChangeLog
*** src/ChangeLog 31 Jul 2003 16:10:53 -0000 1.3331
--- src/ChangeLog 3 Aug 2003 14:52:37 -0000
***************
*** 1,3 ****
--- 1,7 ----
+ 2003-08-03 Terje Rosten <address@hidden>
+
+ * xfns.c (syms_of_xfns): Let's tell we are using GTK+.
+
2003-07-31 Jan Djärv <address@hidden>
* xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Index: lisp/version.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/version.el,v
retrieving revision 2.32
diff -c -r2.32 version.el
*** lisp/version.el 4 Feb 2003 12:12:31 -0000 2.32
--- lisp/version.el 3 Aug 2003 14:53:36 -0000
***************
*** 62,67 ****
--- 62,68 ----
(cond ((featurep 'motif)
(concat ", " (substring motif-version-string 4)))
((featurep 'x-toolkit) ", X toolkit")
+ ((featurep 'gtk+-toolkit) ", GTK+ toolkit")
(t ""))
(if (and (boundp 'x-toolkit-scroll-bars)
(memq x-toolkit-scroll-bars '(xaw xaw3d)))
Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.5321
diff -c -r1.5321 ChangeLog
*** lisp/ChangeLog 2 Aug 2003 20:36:51 -0000 1.5321
--- lisp/ChangeLog 3 Aug 2003 14:53:39 -0000
***************
*** 1,3 ****
--- 1,7 ----
+ 2003-08-03 Terje Rosten <address@hidden>
+
+ * version.el (emacs-version): Check for gtk+-toolkit.
+
2003-08-02 Andreas Schwab <address@hidden>
* apropos.el (apropos-words-to-regexp): Only add `wild' if `words'