Minor fixes for a recent commit

* src/xdisp.c (find_display_property): Fix style of comments.
(Fget_display_property): Doc fix.
(get_display_property): Fix style and whitespace.

diff --git a/src/xdisp.c b/src/xdisp.c
index cda7e04522c67fba60c0958e2f69cf815c8283de..59509418790ff36ce5993c983e53af6882fd38a1 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -5150,7 +5150,7 @@ find_display_property (Lisp_Object disp, Lisp_Object prop)
 {
   if (NILP (disp))
     return Qnil;
-  /* We have a vector of display specs. */
+  /* We have a vector of display specs.  */
   if (VECTORP (disp))
     {
       for (ptrdiff_t i = 0; i < ASIZE (disp); i++)
@@ -5163,7 +5163,7 @@ find_display_property (Lisp_Object disp, Lisp_Object prop)
        }
       return Qnil;
     }
-  /* We have a list of display specs. */
+  /* We have a list of display specs.  */
   else if (CONSP (disp)
           && CONSP (XCAR (disp)))
     {
@@ -5176,7 +5176,7 @@ find_display_property (Lisp_Object disp, Lisp_Object prop)
            return XCAR (XCDR (elem));
 
          /* Check that we have a proper list before going to the next
-            element. */
+            element.  */
          if (CONSP (XCDR (disp)))
            disp = XCDR (disp);
          else
@@ -5184,7 +5184,7 @@ find_display_property (Lisp_Object disp, Lisp_Object prop)
        }
       return Qnil;
     }
-  /* A simple display spec. */
+  /* A simple display spec.  */
   else if (CONSP (disp)
           && CONSP (XCDR (disp))
           && EQ (XCAR (disp), prop))
@@ -5193,11 +5193,11 @@ find_display_property (Lisp_Object disp, Lisp_Object prop)
     return Qnil;
 }
 
-static Lisp_Object get_display_property (ptrdiff_t bufpos, Lisp_Object prop,
-                                        Lisp_Object object)
+static
+Lisp_Object get_display_property (ptrdiff_t bufpos, Lisp_Object prop,
+                                 Lisp_Object object)
 {
   return find_display_property (Fget_text_property (make_fixnum (bufpos),
-
                                                    Qdisplay, object),
                                prop);
 }
@@ -5282,12 +5282,12 @@ display_min_width (struct it *it, ptrdiff_t bufpos,
 
 DEFUN ("get-display-property", Fget_display_property,
        Sget_display_property, 2, 4, 0,
-       doc: /* Get the `display' property PROP at POSITION.
+       doc: /* Get the value of the `display' property PROP at POSITION.
 If OBJECT, this should be a buffer or string where the property is
-fetched from.  This defaults to the current buffer.
+fetched from.  If omitted, OBJECT defaults to the current buffer.
 
-If PROPERTIES, use those properties instead of the properties at
-POSITION.  */)
+If PROPERTIES, look for value of PROP in PROPERTIES instead of the
+properties at POSITION.  */)
   (Lisp_Object position, Lisp_Object prop, Lisp_Object object,
    Lisp_Object properties)
 {