X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-query.el;h=3cfccbc3e891aebb9829886457018e302d42f0ed;hp=a8e5d11f92aef903ef31219f6b9c3af05ae6be72;hb=e63f37a4a90c5d2a399a99a0566b6e1dfea263aa;hpb=e1a700067a22214f54064c281219fbbbef87de06 diff --git a/emacs/notmuch-query.el b/emacs/notmuch-query.el index a8e5d11f..3cfccbc3 100644 --- a/emacs/notmuch-query.el +++ b/emacs/notmuch-query.el @@ -47,22 +47,21 @@ is a possibly empty forest of replies." seq))) (defun notmuch-query-map-threads (fn threads) - "Apply FN to every thread in THREADS. Flatten results to a list. - -See the function notmuch-query-get-threads for more information." + "Apply function FN to every thread in THREADS. +Flatten results to a list. See the function +`notmuch-query-get-threads' for more information." (notmuch-query-map-aux 'notmuch-query-map-forest fn threads)) (defun notmuch-query-map-forest (fn forest) - "Apply function to every message in a forest. Flatten results to a list. - -See the function notmuch-query-get-threads for more information. -" + "Apply function FN to every message in FOREST. +Flatten results to a list. See the function +`notmuch-query-get-threads' for more information." (notmuch-query-map-aux 'notmuch-query-map-tree fn forest)) (defun notmuch-query-map-tree (fn tree) - "Apply function FN to every message in TREE. Flatten results to a list. - -See the function notmuch-query-get-threads for more information." + "Apply function FN to every message in TREE. +Flatten results to a list. See the function +`notmuch-query-get-threads' for more information." (cons (funcall fn (car tree)) (notmuch-query-map-forest fn (cadr tree)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;