diff options
author | Glenn Morris <[email protected]> | 2009-06-22 06:41:50 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2009-06-22 06:41:50 +0000 |
commit | d5067810ac1a013e191ed271d8add2999c2fd5ee (patch) | |
tree | 94568d1ea7c803f3523e8149d6dd0bc3a59145ef /lisp | |
parent | c346e888d5dac20fce62e047a66d925c5b4f49e5 (diff) |
Unindent and refill some doc-strings.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/fadr.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/fadr.el b/lisp/fadr.el index 1bdf80268a..0ffbef43ec 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))) |