carbon2-commit: Accept strings as glyph instantiators, fix control-arrow-glyph, etc.

[Aidan Kehoe]

changeset:   4373:6a17ac5da3c4d311bec3618f02b531b0a0467e4b
parent:      4366:cc293ef846d240af187a523bb32eb5e26a083531
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Tue Dec 25 14:19:45 2007 +0100
files:       lisp/ChangeLog lisp/glyphs.el
description:
Accept strings as glyph instantiators, fix control-arrow-glyph, etc.

2007-12-25  Aidan Kehoe  <kehoea at parhasard.net>

	* 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 cc293ef846d240af187a523bb32eb5e26a083531 -r 6a17ac5da3c4d311bec3618f02b531b0a0467e4b 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 at parhasard.net>
+
+	* 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 at xemacs.org>
 
 	Factor out lists of operators specially treated by `make-autoload'.
diff -r cc293ef846d240af187a523bb32eb5e26a083531 -r 6a17ac5da3c4d311bec3618f02b531b0a0467e4b 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])))