From: yamaoka <yamaoka>
Date: Thu, 7 Sep 2000 09:29:06 +0000 (+0000)
Subject: (smiley-buffer, smiley-create-glyph): Work with GTK XEmacs as well.
X-Git-Tag: t-gnus-6_14_5-05~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0120681adedc29a156b5d7c7e2ec42e2e5d972a8;p=elisp%2Fgnus.git-

(smiley-buffer, smiley-create-glyph): Work with GTK XEmacs as well.
---

diff --git a/ChangeLog b/ChangeLog
index 83bde7d..2c99231 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-07  Tadashi Watanabe  <watanabe@sigmaitec.co.jp>
+
+	* lisp/smiley.el (smiley-buffer, smiley-create-glyph): Work with
+	GTK XEmacs as well.
+
 2000-09-06  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
 
 	* lisp/nnshimbun.el (nnshimbun-header-xref): New function.
diff --git a/lisp/smiley.el b/lisp/smiley.el
index 0d5f710..7778567 100644
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -181,7 +181,8 @@ above them."
 			 xpm-color-symbols)))
 	   (glyph (make-glyph
 		   (list
-		    (cons 'x (expand-file-name pixmap smiley-data-directory))
+		    (cons (if (featurep 'gtk) 'gtk 'x)
+			  (expand-file-name pixmap smiley-data-directory))
 		    (cons 'mswindows
 			  (expand-file-name pixmap smiley-data-directory))
 		    (cons 'tty smiley)))))
@@ -231,7 +232,7 @@ above them."
 ;;;###autoload
 (defun smiley-buffer (&optional buffer st nd)
   (interactive)
-  (when (featurep '(or x mswindows))
+  (when (featurep '(or x gtk mswindows))
     (save-excursion
       (when buffer
 	(set-buffer buffer))