Lines Matching +defs:describe +defs:face
76 (defun describe-display-table (dt)
99 (describe-vector vector))
104 (defun describe-current-display-table ()
111 (describe-display-table disptab)
190 (defun make-glyph-code (char &optional face)
191 "Return a glyph code representing char CHAR with face FACE."
193 ;; face id greater that 4091 are silently ignored.
194 (if (and face (<= (face-id face) #xfff))
195 (logior char (lsh (face-id face) 19))
204 (defun glyph-face (glyph)
205 "Return the face of glyph code GLYPH, or nil if glyph has default face."
206 (let ((face-id (lsh glyph -19)))
207 (and (> face-id 0)
208 (car (delq nil (mapcar (lambda (face)
209 (and (eq (get face 'face) face-id)
210 face))
211 (face-list)))))))