Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 5470:0af042a0c116

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 07 Feb 2011 21:22:17 +0100
parents 308d34e9f07d 2a54dfbe434f
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5469:2a8a04f73c15 5470:0af042a0c116
763 "Take an image type specification--one of the image types this XEmacs 763 "Take an image type specification--one of the image types this XEmacs
764 supports--and some data in that format, return a space, with a glyph 764 supports--and some data in that format, return a space, with a glyph
765 corresponding to that data as an end-glyph extent property of that space. " 765 corresponding to that data as an end-glyph extent property of that space. "
766 (let* ((str (make-string 1 ?\ )) 766 (let* ((str (make-string 1 ?\ ))
767 (extent (make-extent 0 1 str)) 767 (extent (make-extent 0 1 str))
768 (glyph (make-glyph (vector image-type ':data value)))) 768 (glyph (make-glyph (vector image-type :data value))))
769 (when glyph 769 (when glyph
770 (set-extent-property extent 'invisible t) 770 (set-extent-property extent 'invisible t)
771 (set-extent-property extent 'start-open t) 771 (set-extent-property extent 'start-open t)
772 (set-extent-property extent 'end-open t) 772 (set-extent-property extent 'end-open t)
773 (set-extent-property extent 'duplicable t) 773 (set-extent-property extent 'duplicable t)