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

diff --git a/ChangeLog b/ChangeLog
index 83bde7d..2c99231 100644 (file)
--- 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 (file)
--- 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))