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

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/x-symbol/ChangeLog addition: 2010-07-26 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/x-symbol/lisp/x-symbol-vars.el Index: xemacs-packages/x-symbol/lisp/x-symbol-vars.el =================================================================== RCS file: /cvsroot/xemacs/XEmacs/packages/xemacs-packages/x-symbol/lisp/x-symbol-vars.el,v retrieving revision 1.4 diff -u -r1.4 x-symbol-vars.el --- xemacs-packages/x-symbol/lisp/x-symbol-vars.el 31 May 2003 14:17:15 -0000 1.4 +++ xemacs-packages/x-symbol/lisp/x-symbol-vars.el 26 Jul 2010 17:00:47 -0000 ＠＠ -1099,10 +1099,11 ＠＠ :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.") -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-patches