[PATCH] Accept strings as glyph instantiators, fix control-arrow-glyph, etc

Merry Christmas Didier! Your 2007-10-15 commit broke control-arrow-glyph; this change reverts that part of the patch. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1198588785 -3600 # Node ID 6a17ac5da3c4d311bec3618f02b531b0a0467e4b # Parent cc293ef846d240af187a523bb32eb5e26a083531 Accept strings as glyph instantiators, fix control-arrow-glyph, etc. 2007-12-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * glyphs.el (init-glyphs): Revert part of Didier's 2007-10-15 commit, which broke #'make-image-specifier with string arguments, and more noticeably truncation-glyph, continuation-glyph, octal-escape-glyph, control-arrow-glyph. diff -r cc293ef846d2 -r 6a17ac5da3c4 lisp/ChangeLog --- a/lisp/ChangeLog Mon Dec 24 14:00:51 2007 +0100 +++ b/lisp/ChangeLog Tue Dec 25 14:19:45 2007 +0100 ＠＠ -1,3 +1,11 ＠＠ 2007-12-22 Stephen J. Turnbull <stephe +2007-12-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * glyphs.el (init-glyphs): + Revert part of Didier's 2007-10-15 commit, which broke + #'make-image-specifier with string arguments, and more noticeably + truncation-glyph, continuation-glyph, octal-escape-glyph, + control-arrow-glyph. + 2007-12-22 Stephen J. Turnbull <stephen(a)xemacs.org&gt; Factor out lists of operators specially treated by `make-autoload'. diff -r cc293ef846d2 -r 6a17ac5da3c4 lisp/glyphs.el --- a/lisp/glyphs.el Mon Dec 24 14:00:51 2007 +0100 +++ b/lisp/glyphs.el Tue Dec 25 14:19:45 2007 +0100 ＠＠ -1185,8 +1185,7 ＠＠ If unspecified in a particular domain, ` [jpeg :data nil] 2))) ,＠(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2))) ,＠(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2))) - ;; No, I don't think we want to inline images... -- dvl - ;; ("" [string :data nil] 2) + ("" [string :data nil] 2) ("" [nothing])))) ;; #### this should really be formatted-string, not string but we ;; don't have it implemented yet ＠＠ -1210,8 +1209,7 ＠＠ If unspecified in a particular domain, ` ("\\`\377\330\377\340\000\020JFIF" [string :data "[jpeg]"]) ("\\.png\\'" [string :data nil] 2) ("\\`\211PNG" [string :data "[png]"]) - ;; No, I don't think we want to inline images... -- dvl - ;;("" [string :data nil] 2) + ("" [string :data nil] 2) ;; this last one is here for pointers and icons and such -- ;; strings are not allowed so they will be ignored. ("" [nothing]))) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, 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/cgi-bin/mailman/listinfo/xemacs-patches