Merged in changes from CVS trunk.

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-262
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-263
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-264
   Update from CVS: lispref/display.texi: emacs -> Emacs.

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-265
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-266
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-267
   Update from CVS


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-156

5 files changed, 198 insertions, 52 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 386c3d99a47..f8a9e5fb767 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,32 @@
+2004-04-30  Kim F. Storm  <storm@cua.dk>
+
+        * buffer.c (syms_of_buffer) <line-spacing>: Allow float value.
+        (syms_of_buffer) <cursor-type>: Doc fix.
+
+        * dispextern.h (struct it): Remove member use_default_face.
+        Add members override_ascent, override_descent, override_boff.
+
+        * xdisp.c (init_iterator): Handle line-spacing float value.
+        Initialize override_ascent member.
+        (append_space_for_newline): Reset override_ascent.
+        Remove use_default_face.
+        (calc_line_height_property): New function to calculate value of
+        line-height and line-spacing properties.  Look at overlays, too.
+        Set override_ascent, override_descent, override_boff members when
+        using another face than the current face.  Float values are now
+        relative to the frame default font, by default; accept a cons
+        of ratio and face name to specify value relative to a specific face.
+        (x_produce_glyphs): Use calc_line_height_property.
+        Use override_ascent etc. when set to handle different face heights.
+        A negative line-spacing property value is interpreted as a total
+        line height, rather than inter-line spacing.
+        (note_mouse_highlight): Allocate room for 40 overlays initially.
+
+2004-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * data.c (Fsubr_name): New fun.
+        (syms_of_data): Defsubr it.
+
 2004-04-29  Kim F. Storm  <storm@cua.dk>
 
         * xdisp.c (null_glyph_slice): New var.
diff --git a/src/buffer.c b/src/buffer.c
index db16b22e35a..7560e696685 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2143,7 +2143,7 @@ current buffer is cleared.  */)
       GPT = GPT_BYTE;
       TEMP_SET_PT_BOTH (PT_BYTE, PT_BYTE);
 
-      
+
       for (tail = BUF_MARKERS (current_buffer); tail; tail = tail->next)
         tail->charpos = tail->bytepos;
 
@@ -3339,7 +3339,7 @@ fix_start_end_in_overlays (start, end)
 
       if (endpos < start)
         break;
-      
+
       if (endpos < end
           || (startpos >= start && startpos < end))
         {
@@ -3382,7 +3382,7 @@ fix_start_end_in_overlays (start, end)
         {
           startpos = endpos;
           Fset_marker (OVERLAY_START (overlay), make_number (startpos),
-                       Qnil);     
+                       Qnil);
         }
 
       if (startpos >= end)
@@ -4193,7 +4193,7 @@ report_overlay_modification (start, end, after, arg1, arg2, arg3)
                 add_overlay_mod_hooklist (prop, overlay);
             }
         }
-      
+
       for (tail = current_buffer->overlays_after; tail; tail = tail->next)
         {
           int startpos, endpos;
@@ -5856,9 +5856,13 @@ Values are interpreted as follows:
 
   t              use the cursor specified for the frame
   nil            don't display a cursor
-  bar            display a bar cursor with default width
-  (bar . WIDTH)  display a bar cursor with width WIDTH
-  ANYTHING ELSE  display a box cursor.
+  box            display a filled box cursor
+  hollow         display a hollow box cursor
+  bar            display a vertical bar cursor with default width
+  (bar . WIDTH)  display a vertical bar cursor with width WIDTH
+  hbar           display a horisontal bar cursor with default width
+  (hbar . WIDTH) display a horisontal bar cursor with width WIDTH
+  ANYTHING ELSE  display a hollow box cursor.
 
 When the buffer is displayed in a nonselected window,
 this variable has no effect; the cursor appears as a hollow box.  */);
@@ -5866,7 +5870,9 @@ this variable has no effect; the cursor appears as a hollow box.  */);
   DEFVAR_PER_BUFFER ("line-spacing",
                      &current_buffer->extra_line_spacing, Qnil,
                      doc: /* Additional space to put between lines when displaying a buffer.
-The space is measured in pixels, and put below lines on window systems.  */);
+The space is measured in pixels, and put below lines on window systems.
+If value is a floating point number, it specifies the spacing relative
+to the default frame line height.  */);
 
   DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions,
                doc: /* List of functions called with no args to query before killing a buffer.  */);
diff --git a/src/data.c b/src/data.c
index a5f28375635..c94723d09d0 100644
--- a/src/data.c
+++ b/src/data.c
@@ -761,6 +761,19 @@ function with `&rest' args, or `unevalled' for a special form.  */)
     return Fcons (make_number (minargs), make_number (maxargs));
 }
 
+DEFUN ("subr-name", Fsubr_name, Ssubr_name, 1, 1, 0,
+       doc: /* Return name of subroutine SUBR.
+SUBR must be a built-in function.  */)
+     (subr)
+     Lisp_Object subr;
+{
+  const char *name;
+  if (!SUBRP (subr))
+    wrong_type_argument (Qsubrp, subr);
+  name = XSUBR (subr)->symbol_name;
+  return make_string (name, strlen (name));
+}
+
 DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0,
        doc: /* Return the interactive form of CMD or nil if none.
 CMD must be a command.  Value, if non-nil, is a list
@@ -3319,6 +3332,7 @@ syms_of_data ()
   defsubr (&Slognot);
   defsubr (&Sbyteorder);
   defsubr (&Ssubr_arity);
+  defsubr (&Ssubr_name);
 
   XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
 
diff --git a/src/dispextern.h b/src/dispextern.h
index 8e79211b319..8a56e1dcc28 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -1923,9 +1923,6 @@ struct it
      descent/ascent (line-height property).  Reset after this glyph.  */
   unsigned constrain_row_ascent_descent_p : 1;
 
-  /* If 1, show current glyph in default face.  Reset after this glyph.  */
-  unsigned use_default_face : 1;
-
   /* The ID of the default face to use.  One of DEFAULT_FACE_ID,
      MODE_LINE_FACE_ID, etc, depending on what we are displaying.  */
   int base_face_id;
@@ -1992,6 +1989,10 @@ struct it
      only.)  */
   int extra_line_spacing;
 
+  /* Override font height information for this glyph.
+     Used if override_ascent >= 0.  Cleared after this glyph.  */
+  int override_ascent, override_descent, override_boff;
+
   /* If non-null, glyphs are produced in glyph_row with each call to
      produce_glyphs.  */
   struct glyph_row *glyph_row;
diff --git a/src/xdisp.c b/src/xdisp.c
index 4a79521f65d..f01d3f00b2f 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -2069,6 +2069,9 @@ init_iterator (it, w, charpos, bytepos, row, base_face_id)
     {
       if (NATNUMP (current_buffer->extra_line_spacing))
         it->extra_line_spacing = XFASTINT (current_buffer->extra_line_spacing);
+      else if (FLOATP (current_buffer->extra_line_spacing))
+        it->extra_line_spacing = (XFLOAT_DATA (current_buffer->extra_line_spacing)
+                                  * FRAME_LINE_HEIGHT (it->f));
       else if (it->f->extra_line_spacing > 0)
         it->extra_line_spacing = it->f->extra_line_spacing;
     }
@@ -2086,6 +2089,7 @@ init_iterator (it, w, charpos, bytepos, row, base_face_id)
   it->slice.x = it->slice.y = it->slice.width = it->slice.height = Qnil;
   it->space_width = Qnil;
   it->font_height = Qnil;
+  it->override_ascent = -1;
 
   /* Are control characters displayed as `^C'?  */
   it->ctl_arrow_p = !NILP (current_buffer->ctl_arrow);
@@ -14201,7 +14205,7 @@ append_space_for_newline (it, default_face_p)
 
           PRODUCE_GLYPHS (it);
 
-          it->use_default_face = 0;
+          it->override_ascent = -1;
           it->constrain_row_ascent_descent_p = 0;
           it->current_x = saved_x;
           it->object = saved_object;
@@ -18509,6 +18513,97 @@ produce_stretch_glyph (it)
   take_vertical_position_into_account (it);
 }
 
+/* Calculate line-height and line-spacing properties.
+   An integer value specifies explicit pixel value.
+   A float value specifies relative value to current face height.
+   A cons (float . face-name) specifies relative value to
+   height of specified face font.
+
+   Returns height in pixels, or nil.  */
+
+static Lisp_Object
+calc_line_height_property (it, prop, font, boff)
+     struct it *it;
+     Lisp_Object prop;
+     XFontStruct *font;
+     int boff;
+{
+  Lisp_Object val;
+  Lisp_Object face_name = Qnil;
+  int ascent, descent, height, override;
+
+  val = Fget_char_property (make_number (IT_CHARPOS (*it)),
+                            prop, it->object);
+
+  if (NILP (val))
+    return val;
+
+  if (INTEGERP (val))
+    return val;
+
+  if (CONSP (val))
+    {
+      face_name = XCDR (val);
+      val = XCAR (val);
+    }
+  else if (SYMBOLP (val))
+    {
+      face_name = val;
+      val = Qnil;
+    }
+
+  override = EQ (prop, Qline_height);
+
+  if (NILP (face_name))
+    {
+      font = FRAME_FONT (it->f);
+      boff = FRAME_BASELINE_OFFSET (it->f);
+    }
+  else if (EQ (face_name, Qt))
+    {
+      override = 0;
+    }
+  else
+    {
+      int face_id;
+      struct face *face;
+      struct font_info *font_info;
+
+      face_id = lookup_named_face (it->f, face_name, ' ');
+      if (face_id < 0)
+        return -1;
+
+      face = FACE_FROM_ID (it->f, face_id);
+      font = face->font;
+      if (font == NULL)
+        return -1;
+
+      font_info = FONT_INFO_FROM_ID (it->f, face->font_info_id);
+      boff = font_info->baseline_offset;
+      if (font_info->vertical_centering)
+        boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
+    }
+
+  ascent = FONT_BASE (font) + boff;
+  descent = FONT_DESCENT (font) - boff;
+
+  if (override)
+    {
+      it->override_ascent = ascent;
+      it->override_descent = descent;
+      it->override_boff = boff;
+    }
+
+  height = ascent + descent;
+  if (FLOATP (val))
+    height = (int)(XFLOAT_DATA (val) * height);
+  else if (INTEGERP (val))
+    height *= XINT (val);
+
+  return make_number (height);
+}
+
+
 /* RIF:
    Produce glyphs/get display metrics for the display element IT is
    loaded with.  See the description of struct display_iterator in
@@ -18595,17 +18690,20 @@ x_produce_glyphs (it)
 
           it->nglyphs = 1;
 
-          if (it->use_default_face)
-            {
-              font = FRAME_FONT (it->f);
-              boff = FRAME_BASELINE_OFFSET (it->f);
-            }
- 
-          pcm = FRAME_RIF (it->f)->per_char_metric
+          pcm = FRAME_RIF (it->f)->per_char_metric
             (font, &char2b, FONT_TYPE_FOR_UNIBYTE (font, it->char_to_display));
 
-          it->ascent = FONT_BASE (font) + boff;
-          it->descent = FONT_DESCENT (font) - boff;
+          if (it->override_ascent >= 0)
+            {
+              it->ascent = it->override_ascent;
+              it->descent = it->override_descent;
+              boff = it->override_boff;
+            }
+          else
+            {
+              it->ascent = FONT_BASE (font) + boff;
+              it->descent = FONT_DESCENT (font) - boff;
+            }
 
           if (pcm)
             {
@@ -18708,26 +18806,27 @@ x_produce_glyphs (it)
              But if previous part of the line set a height, don't
              increase that height */
 
-          Lisp_Object lsp, lh;
+          Lisp_Object height, spacing;
 
+          it->override_ascent = -1;
           it->pixel_width = 0;
           it->nglyphs = 0;
 
-          lh = Fget_text_property (make_number (IT_CHARPOS (*it)),
-                                   Qline_height, it->object);
+          height = calc_line_height_property(it, Qline_height, font, boff);
 
-          if (EQ (lh, Qt))
+          if (it->override_ascent >= 0)
             {
-              it->use_default_face = 1;
-              font = FRAME_FONT (it->f);
-              boff = FRAME_BASELINE_OFFSET (it->f);
-              font_info = NULL;
+              it->ascent = it->override_ascent;
+              it->descent = it->override_descent;
+              boff = it->override_boff;
+            }
+          else
+            {
+              it->ascent = FONT_BASE (font) + boff;
+              it->descent = FONT_DESCENT (font) - boff;
             }
 
-          it->ascent = FONT_BASE (font) + boff;
-          it->descent = FONT_DESCENT (font) - boff;
-
-          if (EQ (lh, make_number (0)))
+          if (EQ (height, make_number(0)))
             {
               if (it->descent > it->max_descent)
                 {
@@ -18746,7 +18845,6 @@ x_produce_glyphs (it)
             }
           else
             {
-              int explicit_height = -1;
               it->phys_ascent = it->ascent;
               it->phys_descent = it->descent;
 
@@ -18757,23 +18855,20 @@ x_produce_glyphs (it)
                   it->ascent += face->box_line_width;
                   it->descent += face->box_line_width;
                 }
-              if (INTEGERP (lh))
-                explicit_height = XINT (lh);
-              else if (FLOATP (lh))
-                explicit_height = (it->phys_ascent + it->phys_descent)
-                  * XFLOAT_DATA (lh);
-
-              if (explicit_height > it->ascent + it->descent)
-                it->ascent = explicit_height - it->descent;
+              if (!NILP (height)
+                  && XINT (height) > it->ascent + it->descent)
+                it->ascent = XINT (height) - it->descent;
             }
 
-          lsp = Fget_text_property (make_number (IT_CHARPOS (*it)),
-                                    Qline_spacing, it->object);
-          if (INTEGERP (lsp))
-            extra_line_spacing = XINT (lsp);
-          else if (FLOATP (lsp))
-            extra_line_spacing = (it->phys_ascent + it->phys_descent)
-              * XFLOAT_DATA (lsp);
+          spacing = calc_line_height_property(it, Qline_spacing, font, boff);
+          if (!NILP (spacing))
+            {
+              int sp = XINT (spacing);
+              if (sp < 0)
+                extra_line_spacing = (-sp) - (it->phys_ascent + it->phys_descent);
+              else
+                extra_line_spacing = sp;
+            }
         }
       else if (it->char_to_display == '\t')
         {
@@ -19150,7 +19245,8 @@ x_produce_glyphs (it)
   if (it->area == TEXT_AREA)
     it->current_x += it->pixel_width;
 
-  it->descent += extra_line_spacing;
+  if (extra_line_spacing > 0)
+    it->descent += extra_line_spacing;
 
   it->max_ascent = max (it->max_ascent, it->ascent);
   it->max_descent = max (it->max_descent, it->descent);
@@ -20813,9 +20909,9 @@ note_mouse_highlight (f, x, y)
       if (BUFFERP (object))
         {
           /* Put all the overlays we want in a vector in overlay_vec.
-             Store the length in len.  If there are more than 10, make
+             Store the length in len.  If there are more than 40, make
              enough space for all, and try again.  */
-          len = 10;
+          len = 40;
           overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
           noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0);
           if (noverlays > len)