From 0120681adedc29a156b5d7c7e2ec42e2e5d972a8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 7 Sep 2000 09:29:06 +0000 Subject: [PATCH] (smiley-buffer, smiley-create-glyph): Work with GTK XEmacs as well. --- ChangeLog | 5 +++++ lisp/smiley.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 83bde7d..2c99231 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-09-07 Tadashi Watanabe + + * lisp/smiley.el (smiley-buffer, smiley-create-glyph): Work with + GTK XEmacs as well. + 2000-09-06 TSUCHIYA Masatoshi * 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)) -- 1.7.10.4