Use a nicer, cleaner syntax calling #'make-glyph

[emchat] / emchat-log.el

diff --git a/emchat-log.el b/emchat-log.el
index 208848a..8b51b8c 100644 (file)
--- a/emchat-log.el
+++ b/emchat-log.el
@@ -345,10 +345,10 @@ See `emchat-log-filename'."
              (let ((ext (make-extent (point) (point))))
                (set-extent-begin-glyph
                 ext
-                (make-glyph (list (vector 'png ':file emchat-log-logo))))
+                (make-glyph `([png :file ,emchat-log-logo])))
                (set-extent-end-glyph
                 ext
-                (make-glyph (list (vector 'xbm ':file emchat-log-header))))
+                (make-glyph `([xbm :file ,emchat-log-header])))
                (insert "\n\n")))
          (insert "===========================================\n"
                  "Welcome to EMchat - The (S)XEmacs IM Client\n\n"