Commits

Anonymous committed 6391425

Check for XEmacs support for image instantiators, x-symbol-vars.el

Comments (0)

Files changed (2)

+2010-07-26  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* lisp/x-symbol-vars.el (x-symbol-heading-strut-glyph):
+	Only use valid image instantiators for the current XEmacs build;
+	fixes the smoketest when XEmacs doesn't have X11 support.
+
 2008-07-14  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.11 released.

lisp/x-symbol-vars.el

   :group 'x-symbol-input-init)
 
 (defvar x-symbol-heading-strut-glyph
-  (make-glyph (eval-when-compile
-		`(((x) . [xbm :data (6 20 ,(make-string 20 0))])
-		  ((mswindows) . [xbm :data (6 20 ,(make-string 20 0))])
-		  ((tty) . [string :data " "]))))
+  (make-glyph (remove-if-not
+               #'(lambda (spec) (valid-instantiator-p (cdr spec) 'image))
+               `(((x) . [xbm :data (6 20 ,(make-string 20 0))])
+                 ((mswindows) . [xbm :data (6 20 ,(make-string 20 0))])
+                 ((tty) . [string :data " "]))))
   "Glyph at the end of headers in grid buffers, see `x-symbol-grid'.
 Allows to have a larger interline spacing when the line starts with a
 header.")