[Emacs-diffs] emacs/lisp fadr.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/06/22 06:41:50

Modified files:
        lisp           : fadr.el 

Log message:
        Unindent and refill some doc-strings.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/fadr.el?cvsroot=emacs&r1=1.2&r2=1.3

Patches:
Index: fadr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/fadr.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- fadr.el     22 Jun 2009 06:39:46 -0000      1.2
+++ fadr.el     22 Jun 2009 06:41:50 -0000      1.3
@@ -75,9 +75,8 @@
 
 (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 @@
    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)))