unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Let's tell we are using GTK+
@ 2003-08-03 15:14 Terje Rosten
  2003-08-04  1:20 ` Miles Bader
  2003-08-04  8:33 ` Lute Kamstra
  0 siblings, 2 replies; 23+ messages in thread
From: Terje Rosten @ 2003-08-03 15:14 UTC (permalink / raw)



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 <terjeros@phys.ntnu.no>
+ 
+ 	* xfns.c (syms_of_xfns): Let's tell we are using GTK+.
+ 
  2003-07-31  Jan Djärv  <jan.h.d@swipnet.se>
  
  	* 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 <terjeros@phys.ntnu.no>
+ 
+ 	* version.el (emacs-version): Check for gtk+-toolkit.
+ 
  2003-08-02  Andreas Schwab  <schwab@suse.de>
  
  	* apropos.el (apropos-words-to-regexp): Only add `wild' if `words'

^ permalink raw reply	[flat|nested] 23+ messages in thread

end of thread, other threads:[~2003-08-24 10:28 UTC | newest]

Thread overview: 23+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-08-03 15:14 Let's tell we are using GTK+ Terje Rosten
2003-08-04  1:20 ` Miles Bader
2003-08-04  7:33   ` Terje Rosten
2003-08-04 17:31   ` Paul Jarc
2003-08-05  1:27     ` Miles Bader
2003-08-05  4:42     ` Stephen J. Turnbull
2003-08-05 19:15   ` Richard Stallman
2003-08-05 23:04     ` Kenichi Handa
2003-08-05 23:59       ` Masatake YAMATO
2003-08-06  7:56       ` Terje Rosten
2003-08-04  8:33 ` Lute Kamstra
2003-08-04 19:33   ` Terje Rosten
2003-08-19  9:46     ` Lute Kamstra
2003-08-19 10:46       ` Terje Rosten
2003-08-19 12:34         ` Lute Kamstra
2003-08-19 13:39       ` José Roberto B. de A. Monteiro
2003-08-19 14:31       ` Betoes
2003-08-20 18:24       ` Betoes
2003-08-21  9:59         ` Andreas Schwab
2003-08-24  0:10           ` Richard Stallman
2003-08-24 10:28             ` Lute Kamstra
2003-08-22 14:38         ` Richard Stallman
2003-08-23 20:07           ` Simon Josefsson

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).