Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 5344:2a54dfbe434f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't quote keywords, they've been self-quoting for well over a decade. 2011-01-22 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-setq, byte-compile-set): Remove kludge allowing keywords' values to be set, all the code that does that is gone. * cl-compat.el (elt-satisfies-test-p): * faces.el (set-face-parent): * faces.el (face-doc-string): * gtk-font-menu.el: * gtk-font-menu.el (gtk-reset-device-font-menus): * msw-font-menu.el: * msw-font-menu.el (mswindows-reset-device-font-menus): * package-get.el (package-get-installedp): * select.el (select-convert-from-image-data): * sound.el: * sound.el (load-sound-file): * x-font-menu.el (x-reset-device-font-menus-core): Don't quote keywords, they're self-quoting, and the win from backward-compatibility is sufficiently small now that the style problem overrides it.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 22 Jan 2011 23:29:25 +0000
parents e29fcfd8df5f
children 0f9aa4eb4bec 0af042a0c116
comparison
equal deleted inserted replaced
5343:34ab0e66aaca 5344:2a54dfbe434f
765 "Take an image type specification--one of the image types this XEmacs 765 "Take an image type specification--one of the image types this XEmacs
766 supports--and some data in that format, return a space, with a glyph 766 supports--and some data in that format, return a space, with a glyph
767 corresponding to that data as an end-glyph extent property of that space. " 767 corresponding to that data as an end-glyph extent property of that space. "
768 (let* ((str (make-string 1 ?\ )) 768 (let* ((str (make-string 1 ?\ ))
769 (extent (make-extent 0 1 str)) 769 (extent (make-extent 0 1 str))
770 (glyph (make-glyph (vector image-type ':data value)))) 770 (glyph (make-glyph (vector image-type :data value))))
771 (when glyph 771 (when glyph
772 (set-extent-property extent 'invisible t) 772 (set-extent-property extent 'invisible t)
773 (set-extent-property extent 'start-open t) 773 (set-extent-property extent 'start-open t)
774 (set-extent-property extent 'end-open t) 774 (set-extent-property extent 'end-open t)
775 (set-extent-property extent 'duplicable t) 775 (set-extent-property extent 'duplicable t)