Mercurial > emacs

changeset 8472:0d0b32e78a5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compute_glyph_face_1): New function.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Aug 1994 04:51:57 +0000
parents 64c299dd51b8
children c285c3b0ea54
files src/xfaces.c
diffstat 1 files changed, 25 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfaces.c	Sun Aug 07 04:50:05 1994 +0000
+++ b/src/xfaces.c	Sun Aug 07 04:51:57 1994 +0000
@@ -743,6 +743,31 @@
 
   return intern_computed_face (f, &face);
 }
+
+/* Return the face ID to use to display a special glyph which selects
+   FACE_CODE as the face ID, assuming that ordinarily the face would
+   be CURRENT_FACE.  F is the frame.  */
+
+int
+compute_glyph_face_1 (f, face_name, current_face)
+     struct frame *f;
+     Lisp_Object face_name;
+     int current_face;
+{
+  struct face face;
+
+  face = *FRAME_COMPUTED_FACES (f)[current_face];
+
+  if (!NILP (face_name))
+    {
+      int facecode = face_name_id_number (f, face_name);
+      if (facecode >= 0 && facecode < FRAME_N_PARAM_FACES (f)
+	  && FRAME_PARAM_FACES (f) [facecode] != 0)
+	merge_faces (FRAME_PARAM_FACES (f) [facecode], &face);
+    }
+
+  return intern_computed_face (f, &face);
+}
 
 /* Return the face ID associated with a buffer position POS.
    Store into *ENDPTR the position at which a different face is needed.