--- smiley-ems.el	Wed Oct 31 22:01:44 2001
+++ bin/emacs-lisp/smiley-ems.el	Wed Oct 31 21:57:28 2001
@@ -48,6 +48,13 @@
   :type 'directory
   :group 'smiley)
 
+
+(defcustom smiley-image-type 'pbm
+  "Image format of the smiley images."
+  :type 'symbol
+  :group 'smiley)
+
+
 ;; The XEmacs version has a baroque, if not rococo, set of these.
 (defcustom smiley-regexp-alist
   '(("\\(:-?)\\)\\W" 1 "smile.pbm")
@@ -75,7 +82,7 @@
 		   (symbol-value smiley-regexp-alist)
 		 smiley-regexp-alist))
     (let* ((data-directory smiley-data-directory)
-	   (image (find-image (list (list :type 'pbm
+	   (image (find-image (list (list :type smiley-image-type
 					  :file (nth 2 elt)
 					  :ascent 'center)))))
       (if image