Commit 5f7fbba5 authored by David Byers's avatar David Byers
Browse files

Fix x-face code

parent 30dbe98c
......@@ -456,22 +456,27 @@
(lyskom-xemacs-or-gnu
(if (null item)
string
(setq item (car item))
(unless (find-face 'kom-xface)
(make-face 'kom-xface))
(let* ((data (make-string 0 ?X))
(h (concat "X-Face: " (aux-item->data item)))
(g (intern h lyskom-xface-cache))
(e (make-extent 0 0 data)))
(e (make-extent 0 (length string) string)))
(if (boundp g)
(setq g (symbol-value g))
(set g (make-glyph
(list 'global (cons '(tty) [nothing]))
(list 'global (cons '(win)
(vector 'xface ':data h)))))
(list
(list 'global (cons '(tty) [nothing]))
(list 'global (cons '(win)
(vector 'xface ':data h))))))
(setq g (symbol-value g))
(set-glyph-face g 'kom-xface))
(set-extent-begin-glyph e g)
data))
(set-extent-property e 'end-open nil)
(set-extent-property e 'start-open nil)
(set-extent-property e 'duplicable t)
string))
string))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment