emacs: src/xdisp.c comparison

comparison src/xdisp.c @ 90072:cb67264d6096

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-2 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-83 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-84 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-3 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-4 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-5 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-6 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-11 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-12 Remove "-face" suffix from lazy-highlight face name * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-13 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-16 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-17 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-18 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-21 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-22 <no summary provided> * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-23 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-39 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40 Fix regressions from latest reftex update * miles@gnu.org--gnu-2005/gnus--rel--5.10--base-0 tag of miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-82 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-1 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-2 Merge from miles@gnu.org--gnu-2004 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-3 Merge from emacs--cvs-trunk--0

author	Miles Bader <miles@gnu.org>
date	Sun, 16 Jan 2005 03:40:12 +0000
parents	f6b4d0ebf147 92e1b372276b
children	2874904abbd4

comparison

equal deleted inserted replaced

-:f6b4d0ebf147
+:cb67264d6096
 /* Display generation from window structure and buffer text.
-Copyright (C) 1985,86,87,88,93,94,95,97,98,99,2000,01,02,03,04
+Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1997, 1998, 1999,
-Free Software Foundation, Inc.
+2000, 2001, 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
 This file is part of GNU Emacs.
 GNU Emacs is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 /* 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->glyph_row && it->glyph_row->mode_line_p)
 		       || (it->c != '\n' && it->c != '\t'))
 		    : (it->multibyte_p
 		       ? (!CHAR_PRINTABLE_P (it->c)
-			  || it->c == 0xA0 /* NO-BREAK SPACE */
+			  || (!NILP (Vshow_nonbreak_escape)
-			  || it->c == 0xAD /* SOFT HYPHEN */)
+			      && (it->c == 0xA0 /* NO-BREAK SPACE */
+				  || it->c == 0xAD /* SOFT HYPHEN */)))
 		       : (it->c >= 127
 			  && (! unibyte_display_via_language_environment
 			      || (UNIBYTE_CHAR_HAS_MULTIBYTE_P (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);
+			  face_id = merge_faces (it->f, Qt, lface_id,
+						 it->face_id);
+			}
+		    }
 		  else
-		    g = FAST_MAKE_GLYPH ('^', face_id);
+		    {
+		      /* Merge the escape-glyph face into the current face.  */
+		      face_id = merge_faces (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 == 0xA0 || it->c == 0xAD)
+	      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
+		      face_id = merge_faces (it->f, Qt, lface_id,
-		    g = FAST_MAKE_GLYPH ('\\', face_id);
+					     it->face_id);
-		  XSETINT (it->ctl_chars[0], g);
+		    }
-		  g = FAST_MAKE_GLYPH (it->c == 0xAD ? '-' : ' ', 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_faces (it->f, Qescape_glyph, 0,
-		  int i;
+					 it->face_id);
-		  GLYPH escape_glyph;
+		  escape_glyph = '\\';
+		}
-		  /* Set IT->ctl_chars[0] to the glyph for `\\'.  */
-		  if (it->dp
+	      if (it->c == 0xA0 || it->c == 0xAD)
-		      && 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 == 0xAD ? '-' : ' ';
-		  else
+		  XSETINT (it->ctl_chars[1], g);
-		    escape_glyph = FAST_MAKE_GLYPH ('\\', face_id);
+		  ctl_len = 2;
+		  goto display_control;
-		  if (CHAR_BYTE8_P (it->c))
+		}
-		    {
-		      str[0] = CHAR_TO_BYTE8 (it->c);
+	      {
-		      len = 1;
+		unsigned char str[MAX_MULTIBYTE_LENGTH];
-		    }
+		int len;
-		  else if (it->c < 256)
+		int i;
-		    {
-		      str[0] = it->c;
+		/* Set IT->ctl_chars[0] to the glyph for `\\'.  */
-		      len = 1;
+		if (CHAR_BYTE8_P (it->c))
-		    }
+		  {
-		  else
+		    str[0] = CHAR_TO_BYTE8 (it->c);
-		    {
+		    len = 1;
-		      /* It's an invalid character, which
+		  }
-			 shouldn't happen actually, but due to
+		else if (it->c < 256)
-			 bugs it may happen.  Let's print the char
+		  {
-			 as is, there's not much meaningful we can
+		    str[0] = it->c;
-			 do with it.  */
+		    len = 1;
+		  }
+		else
+		  {
+		    /* 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;
 	    }
 	    it->method = next_element_from_buffer;
 	  it->dpvec = NULL;
 	  it->current.dpvec_index = -1;
-	  /* Recheck faces after display vector */
-	  it->stop_charpos = 0;
 	  /* Skip over characters which were displayed via IT->dpvec.  */
 	  if (it->dpvec_char_len < 0)
 	    reseat_at_next_visible_line_start (it, 1);
 	  else if (it->dpvec_char_len > 0)
 	    {
 	      it->len = it->dpvec_char_len;
 	      set_iterator_to_next (it, reseat_p);
 	    }
+	  /* Recheck faces after display vector */
+	  it->stop_charpos = IT_CHARPOS (*it);
 	}
 }
 else if (it->method == next_element_from_string)
 {
 /* Current display element is a character from a Lisp string.  */
 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 > 0)
-	    it->face_id = face_id;
+	    it->face_id = merge_faces (it->f, Qt, lface_id,
+				       it->saved_face_id);
 	}
 }
 else
 /* Display table entry is invalid.  Return a space.  */
 it->c = ' ', it->len = 1;
 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);
 /* Has the mode line to be updated?  */
 return n;
 }
 DEFUN ("format-mode-line", Fformat_mode_line, Sformat_mode_line,
-0, 4, 0,
+1, 4, 0,
-doc: /* Return the mode-line of selected window as a string.
+doc: /* Format a string out of a mode line format specification.
-First optional arg FORMAT specifies a different format string (see
+First arg FORMAT specifies the mode line format (see `mode-line-format'
-`mode-line-format' for details) to use.  If FORMAT is t, return
+for details) to use.
-the buffer's header-line.  Second optional arg WINDOW specifies a
-different window to use as the context for the formatting.
+Optional second arg FACE specifies the face property to put
-If third optional arg NO-PROPS is non-nil, string is not propertized.
+on all characters for which no face is specified.
-Fourth optional arg BUFFER specifies which buffer to use.  */)
+t means whatever face the window's mode line currently uses
-(format, window, no_props, buffer)
+\(either `mode-line' or `mode-line-inactive', depending).
-Lisp_Object format, window, no_props, buffer;
+nil means the default is no face property.
+If FACE is an integer, the value string has no text properties.
+Optional third and fourth args WINDOW and BUFFER specify the window
+and buffer to use as the context for the formatting (defaults
+are the selected window and the window's buffer).  */)
+(format, face, window, buffer)
+Lisp_Object format, face, window, buffer;
 {
 struct it it;
 int len;
 struct window *w;
 struct buffer *old_buffer = NULL;
-enum face_id face_id = DEFAULT_FACE_ID;
+int face_id = -1;
+int no_props = INTEGERP (face);
 if (NILP (window))
 window = selected_window;
 CHECK_WINDOW (window);
 w = XWINDOW (window);
 if (NILP (buffer))
 buffer = w->buffer;
 CHECK_BUFFER (buffer);
+if (NILP (format))
+return build_string ("");
+if (no_props)
+face = Qnil;
+if (!NILP (face))
+{
+if (EQ (face, Qt))
+	face = (EQ (window, selected_window) ? Qmode_line : Qmode_line_inactive);
+face_id = lookup_named_face (XFRAME (WINDOW_FRAME (w)), face, 0, 0);
+}
+if (face_id < 0)
+face_id = DEFAULT_FACE_ID;
 if (XBUFFER (buffer) != current_buffer)
 {
 old_buffer = current_buffer;
 set_buffer_internal_1 (XBUFFER (buffer));
 }
-if (NILP (format) || EQ (format, Qt))
-{
-face_id = (NILP (format)
-		 ? CURRENT_MODE_LINE_FACE_ID (w)
-		 : HEADER_LINE_FACE_ID);
-format = (NILP (format)
-		? current_buffer->mode_line_format
-		: current_buffer->header_line_format);
-}
 init_iterator (&it, w, -1, -1, NULL, face_id);
-if (NILP (no_props))
+if (!no_props)
 {
-mode_line_string_face
+mode_line_string_face = face;
-	= (face_id == MODE_LINE_FACE_ID ? Qmode_line
-	   : face_id == MODE_LINE_INACTIVE_FACE_ID ? Qmode_line_inactive
-	   : face_id == HEADER_LINE_FACE_ID ? Qheader_line : Qnil);
 mode_line_string_face_prop
-	= (NILP (mode_line_string_face) ? Qnil
+	= (NILP (face) ? Qnil : Fcons (Qface, Fcons (face, Qnil)));
-	   : Fcons (Qface, Fcons (mode_line_string_face, Qnil)));
 /* We need a dummy last element in mode_line_string_list to
 	 indicate we are building the propertized mode-line string.
 	 Using mode_line_string_face_prop here GC protects it.  */
 mode_line_string_list
 pop_frame_kboard ();
 if (old_buffer)
 set_buffer_internal_1 (old_buffer);
-if (NILP (no_props))
+if (!no_props)
 {
 Lisp_Object str;
 mode_line_string_list = Fnreverse (mode_line_string_list);
 str = Fmapconcat (intern ("identity"), XCDR (mode_line_string_list),
 			make_string ("", 0));
 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_nonbreak_escape = 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 @ 90072:cb67264d6096