emacs: src/xdisp.c comparison

comparison src/xdisp.c @ 59432:b6b9daefbc42

(Vshow_nonbreak_escape): New lisp var. (syms_of_xdisp): DEFVAR_LISP it. (escape_glyph_face): Remove var. (redisplay_window): Don't initialize it. (setup_for_ellipsis, get_next_display_element): Set it->dpvec_face_id to -1. (get_next_display_element): Test Vshow_nonbreak_escape. Do not setup escape_glyph_face. Properly merge escape-glyph face or face from display table with current face for escape and control characters. Set it->dpvec_face_id to relevant face id instead of adding it to each element of display vector. (next_element_from_display_vector): If it->dpvec_face_id is set, use that instead of lface_id from glyph itself.

author	Kim F. Storm <storm@cua.dk>
date	Sun, 09 Jan 2005 02:05:41 +0000
parents	0e57f1b0b700
children	85a7102acb30

comparison

equal deleted inserted replaced

-:2f2c5349bc03
+:b6b9daefbc42
 /* Non-nil means highlight trailing whitespace.  */
 Lisp_Object Vshow_trailing_whitespace;
+/* Non-nil means escape non-break space and hyphens.  */
+Lisp_Object Vshow_nonbreak_escape;
 #ifdef HAVE_WINDOW_SYSTEM
 extern Lisp_Object Voverflow_newline_into_fringe;
 /* Test if overflow newline into fringe.  Called with iterator IT
 at or past right window margin, and with IT->current_x set.  */
 Lisp_Object Qtrailing_whitespace;
 /* Name and number of the face used to highlight escape glyphs.  */
 Lisp_Object Qescape_glyph;
-int escape_glyph_face;
 /* The symbol `image' which is the car of the lists used to represent
 images in Lisp.  */
 Lisp_Object Qimage;
 it->dpend = default_invis_vector + 3;
 }
 it->dpvec_char_len = len;
 it->current.dpvec_index = 0;
+it->dpvec_face_id = -1;
 /* Remember the current face id in case glyphs specify faces.
 IT's face is restored in set_iterator_to_next.  */
 it->saved_face_id = it->face_id;
 it->method = next_element_from_display_vector;
 		{
 		  it->dpvec_char_len = it->len;
 		  it->dpvec = v->contents;
 		  it->dpend = v->contents + v->size;
 		  it->current.dpvec_index = 0;
+		  it->dpvec_face_id = -1;
 		  it->saved_face_id = it->face_id;
 		  it->method = next_element_from_display_vector;
 		  it->ellipsis_p = 0;
 		}
 	      else
 			|| (it->c != '\n' && it->c != '\t')))
 		   || (it->multibyte_p
 		       ? ((it->c >= 127
 			   && it->len == 1)
 			  || !CHAR_PRINTABLE_P (it->c)
-			  || it->c == 0x8ad
+			  || (!NILP (Vshow_nonbreak_escape)
-			  || it->c == 0x8a0)
+			      && (it->c == 0x8ad || it->c == 0x8a0)))
 		       : (it->c >= 127
 			  && (!unibyte_display_via_language_environment
 			      || it->c == unibyte_char_to_multibyte (it->c)))))
 	    {
 	      /* IT->c is a control character which must be displayed
 		 can be defined in the display table.  Fill
 		 IT->ctl_chars with glyphs for what we have to
 		 display.  Then, set IT->dpvec to these glyphs.  */
 	      GLYPH g;
 	      int ctl_len;
-	      int face_id = escape_glyph_face;
+	      int face_id, lface_id;
+	      GLYPH escape_glyph;
-	      /* Find the face id if `escape-glyph' unless we recently did.  */
-	      if (face_id < 0)
-		{
-		  Lisp_Object tem = Fget (Qescape_glyph, Qface);
-		  if (INTEGERP (tem))
-		    face_id = XINT (tem);
-		  else
-		    face_id = 0;
-		  /* If there's overflow, use 0 instead.  */
-		  if (FAST_GLYPH_FACE (FAST_MAKE_GLYPH (0, face_id)) != face_id)
-		    face_id = 0;
-		  escape_glyph_face = face_id;
-		}
 	      if (it->c < 128 && it->ctl_arrow_p)
 		{
 		  /* Set IT->ctl_chars[0] to the glyph for `^'.  */
 		  if (it->dp
 		      && INTEGERP (DISP_CTRL_GLYPH (it->dp))
 		      && GLYPH_CHAR_VALID_P (XINT (DISP_CTRL_GLYPH (it->dp))))
-		    g = XINT (DISP_CTRL_GLYPH (it->dp));
+		    {
+		      g = XINT (DISP_CTRL_GLYPH (it->dp));
+		      lface_id = FAST_GLYPH_FACE (g);
+		      if (lface_id)
+			{
+			  g = FAST_GLYPH_CHAR (g);
+			  /* The function returns -1 if lface_id is invalid.  */
+			  face_id = ascii_face_of_lisp_face (it->f, lface_id);
+			  if (face_id >= 0)
+			    face_id = merge_into_realized_face (it->f, Qnil,
+								face_id, it->face_id);
+			}
+		    }
 		  else
-		    g = FAST_MAKE_GLYPH ('^', face_id);
+		    {
+		      /* Merge the escape-glyph face into the current face.  */
+		      face_id = merge_into_realized_face (it->f, Qescape_glyph,
+							  0, it->face_id);
+		      g = '^';
+		    }
 		  XSETINT (it->ctl_chars[0], g);
+		  g = it->c ^ 0100;
-		  g = FAST_MAKE_GLYPH (it->c ^ 0100, face_id);
 		  XSETINT (it->ctl_chars[1], g);
 		  ctl_len = 2;
+		  goto display_control;
 		}
-	      else if (it->c == 0x8a0 || it->c == 0x8ad)
+	      if (it->dp
+		  && INTEGERP (DISP_ESCAPE_GLYPH (it->dp))
+		  && GLYPH_CHAR_VALID_P (XFASTINT (DISP_ESCAPE_GLYPH (it->dp))))
 		{
-		  /* Set IT->ctl_chars[0] to the glyph for `\\'.  */
+		  escape_glyph = XFASTINT (DISP_ESCAPE_GLYPH (it->dp));
-		  if (it->dp
+		  lface_id = FAST_GLYPH_FACE (escape_glyph);
-		      && INTEGERP (DISP_ESCAPE_GLYPH (it->dp))
+		  if (lface_id)
-		      && GLYPH_CHAR_VALID_P (XINT (DISP_ESCAPE_GLYPH (it->dp))))
+		    {
-		    g = XINT (DISP_ESCAPE_GLYPH (it->dp));
+		      escape_glyph = FAST_GLYPH_CHAR (escape_glyph);
-		  else
+		      /* The function returns -1 if lface_id is invalid.  */
-		    g = FAST_MAKE_GLYPH ('\\', face_id);
+		      face_id = ascii_face_of_lisp_face (it->f, lface_id);
-		  XSETINT (it->ctl_chars[0], g);
+		      if (face_id >= 0)
+			face_id = merge_into_realized_face (it->f, Qnil,
-		  g = FAST_MAKE_GLYPH (it->c == 0x8ad ? '-' : ' ', face_id);
+							    face_id, it->face_id);
-		  XSETINT (it->ctl_chars[1], g);
+		    }
-		  ctl_len = 2;
 		}
 	      else
 		{
-		  unsigned char str[MAX_MULTIBYTE_LENGTH];
+		  /* Merge the escape-glyph face into the current face.  */
-		  int len;
+		  face_id = merge_into_realized_face (it->f, Qescape_glyph,
-		  int i;
+						      0, it->face_id);
-		  GLYPH escape_glyph;
+		  escape_glyph = '\\';
+		}
-		  /* Set IT->ctl_chars[0] to the glyph for `\\'.  */
-		  if (it->dp
+	      if (it->c == 0x8a0 || it->c == 0x8ad)
-		      && INTEGERP (DISP_ESCAPE_GLYPH (it->dp))
+		{
-		      && GLYPH_CHAR_VALID_P (XFASTINT (DISP_ESCAPE_GLYPH (it->dp))))
+		  XSETINT (it->ctl_chars[0], escape_glyph);
-		    escape_glyph = XFASTINT (DISP_ESCAPE_GLYPH (it->dp));
+		  g = it->c == 0x8ad ? '-' : ' ';
-		  else
+		  XSETINT (it->ctl_chars[1], g);
-		    escape_glyph = FAST_MAKE_GLYPH ('\\', face_id);
+		  ctl_len = 2;
+		  goto display_control;
-		  if (SINGLE_BYTE_CHAR_P (it->c))
+		}
-		    str[0] = it->c, len = 1;
-		  else
+	      {
-		    {
+		unsigned char str[MAX_MULTIBYTE_LENGTH];
-		      len = CHAR_STRING_NO_SIGNAL (it->c, str);
+		int len;
-		      if (len < 0)
+		int i;
-			{
-			  /* It's an invalid character, which
+		/* Set IT->ctl_chars[0] to the glyph for `\\'.  */
-			     shouldn't happen actually, but due to
+		if (SINGLE_BYTE_CHAR_P (it->c))
-			     bugs it may happen.  Let's print the char
+		  str[0] = it->c, len = 1;
-			     as is, there's not much meaningful we can
+		else
-			     do with it.  */
+		  {
+		    len = CHAR_STRING_NO_SIGNAL (it->c, str);
+		    if (len < 0)
+		      {
+			/* It's an invalid character, which shouldn't
+			   happen actually, but due to bugs it may
+			   happen.  Let's print the char as is, there's
+			   not much meaningful we can do with it.  */
 			  str[0] = it->c;
 			  str[1] = it->c >> 8;
 			  str[2] = it->c >> 16;
 			  str[3] = it->c >> 24;
 			  len = 4;
 			}
 		    }
-		  for (i = 0; i < len; i++)
+		for (i = 0; i < len; i++)
-		    {
+		  {
-		      XSETINT (it->ctl_chars[i * 4], escape_glyph);
+		    XSETINT (it->ctl_chars[i * 4], escape_glyph);
-		      /* Insert three more glyphs into IT->ctl_chars for
+		    /* Insert three more glyphs into IT->ctl_chars for
-			 the octal display of the character.  */
+		       the octal display of the character.  */
-		      g = FAST_MAKE_GLYPH (((str[i] >> 6) & 7) + '0',
+		    g = ((str[i] >> 6) & 7) + '0';
-					   face_id);
+		    XSETINT (it->ctl_chars[i * 4 + 1], g);
-		      XSETINT (it->ctl_chars[i * 4 + 1], g);
+		    g = ((str[i] >> 3) & 7) + '0';
-		      g = FAST_MAKE_GLYPH (((str[i] >> 3) & 7) + '0',
+		    XSETINT (it->ctl_chars[i * 4 + 2], g);
-					   face_id);
+		    g = (str[i] & 7) + '0';
-		      XSETINT (it->ctl_chars[i * 4 + 2], g);
+		    XSETINT (it->ctl_chars[i * 4 + 3], g);
-		      g = FAST_MAKE_GLYPH ((str[i] & 7) + '0',
+		  }
-					   face_id);
+		ctl_len = len * 4;
-		      XSETINT (it->ctl_chars[i * 4 + 3], g);
+	      }
-		    }
-		  ctl_len = len * 4;
+	    display_control:
-		}
 	      /* Set up IT->dpvec and return first character from it.  */
 	      it->dpvec_char_len = it->len;
 	      it->dpvec = it->ctl_chars;
 	      it->dpend = it->dpvec + ctl_len;
 	      it->current.dpvec_index = 0;
+	      it->dpvec_face_id = face_id;
 	      it->saved_face_id = it->face_id;
 	      it->method = next_element_from_display_vector;
 	      it->ellipsis_p = 0;
 	      goto get_next;
 	    }
 xassert (it->dpvec && it->current.dpvec_index >= 0);
 if (INTEGERP (*it->dpvec)
 && GLYPH_CHAR_VALID_P (XFASTINT (*it->dpvec)))
 {
-int lface_id;
 GLYPH g;
 g = XFASTINT (it->dpvec[it->current.dpvec_index]);
 it->c = FAST_GLYPH_CHAR (g);
 it->len = CHAR_BYTES (it->c);
 /* The entry may contain a face id to use.  Such a face id is
 	 the id of a Lisp face, not a realized face.  A face id of
 	 zero means no face is specified.  */
-lface_id = FAST_GLYPH_FACE (g);
+if (it->dpvec_face_id >= 0)
-if (lface_id)
+	it->face_id = it->dpvec_face_id;
-	{
+else
-	  /* The function returns -1 if lface_id is invalid.  */
+	{
-	  int face_id = ascii_face_of_lisp_face (it->f, lface_id);
+	  int lface_id = FAST_GLYPH_FACE (g);
-	  if (face_id >= 0)
+	  if (lface_id)
-	    it->face_id = face_id;
+	    {
+	      /* The function returns -1 if lface_id is invalid.  */
+	      int face_id = ascii_face_of_lisp_face (it->f, lface_id);
+	      if (face_id >= 0)
+		it->face_id = face_id;
+	    }
 	}
 }
 else
 /* Display table entry is invalid.  Return a space.  */
 it->c = ' ', it->len = 1;
 /* W must be a leaf window here.  */
 xassert (!NILP (w->buffer));
 #if GLYPH_DEBUG
 *w->desired_matrix->method = 0;
 #endif
-/* Force this to be looked up again for each redisp of each window.  */
-escape_glyph_face = -1;
 specbind (Qinhibit_point_motion_hooks, Qt);
 reconsider_clip_changes (w, buffer);
 DEFVAR_LISP ("show-trailing-whitespace", &Vshow_trailing_whitespace,
 doc: /* *Non-nil means highlight trailing whitespace.
 The face used for trailing whitespace is `trailing-whitespace'.  */);
 Vshow_trailing_whitespace = Qnil;
+DEFVAR_LISP ("show-nonbreak-escape", &Vshow_nonbreak_escape,
+doc: /* *Non-nil means display escape character before non-break space and hyphen.  */);
+Vshow_trailing_whitespace = Qt;
 DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer,
 doc: /* *The pointer shape to show in void text areas.
 Nil means to show the text pointer.  Other options are `arrow', `text',
 `hand', `vdrag', `hdrag', `modeline', and `hourglass'.  */);
 Vvoid_text_area_pointer = Qarrow;

Mercurial > emacs

comparison src/xdisp.c @ 59432:b6b9daefbc42