From: Glenn Morris <rgm@gnu.org>
Date: Mon, 22 Jun 2009 06:41:50 +0000 (+0000)
Subject: Unindent and refill some doc-strings.
X-Git-Tag: emacs-pretest-23.1.90~2479
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5067810ac1a013e191ed271d8add2999c2fd5ee;p=emacs.git

Unindent and refill some doc-strings.
---

diff --git a/lisp/fadr.el b/lisp/fadr.el
index 1bdf80268a0..0ffbef43ec1 100644
--- a/lisp/fadr.el
+++ b/lisp/fadr.el
@@ -75,9 +75,8 @@ FIELD is a symbol."
 
 (defmacro fadr-define-select (name regexp &optional doc filter)
   "Define a function NAME of one string argument which will
-  extract data from it using the first subgroup in REGEXP. If
-  FILTER is specified, it will be called with the resulting
-  string."
+extract data from it using the first subgroup in REGEXP. If
+FILTER is specified, it will be called with the resulting string."
   `(defun ,name (path)
      ,doc
      (let ((string (if (string-match ,regexp path)
@@ -153,8 +152,7 @@ respective values of OBJECT members."
    string))
 
 (defun fadr-format (string object &rest objects)
-  "Format STRING with OBJECTS, then `fadr-expand' the result with
-OBJECT."
+  "Format STRING with OBJECTS, then `fadr-expand' the result with OBJECT."
   (let ((new-string (apply 'format (append (list string) objects))))
     (fadr-expand new-string object)))