Mercurial > emacs
changeset 103518:b3548b2342dc
Unindent and refill some doc-strings.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 22 Jun 2009 06:41:50 +0000 |
| parents | f1303f5d7a0d |
| children | 86efef758d8c |
| files | lisp/fadr.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/fadr.el Mon Jun 22 06:39:46 2009 +0000 +++ b/lisp/fadr.el Mon Jun 22 06:41:50 2009 +0000 @@ -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)))