X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=babddbb6fef87652ed7204fb4dc65351d12f72b1;hp=5562ad104ff3bef84a2f312aade85b30d46fb00e;hb=df3fab18fe70ea750f6f06da30291c67de7e74f2;hpb=a2388bc56e55da5d5695816818274f8a84b0ed92 diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 5562ad10..babddbb6 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -18,7 +18,7 @@ ;; along with Notmuch. If not, see . ;; ;; Authors: Carl Worth -;; Homepage: https://notmuchmail.org/ +;; Homepage: https://notmuchmail.org ;;; Commentary: @@ -62,7 +62,7 @@ ;; ;; TL;DR: notmuch-emacs from MELPA and notmuch from distro packages is ;; NOT SUPPORTED. -;; + ;;; Code: (eval-when-compile (require 'cl-lib)) @@ -432,11 +432,10 @@ returns nil." (defun notmuch-search-foreach-result (beg end fn) "Invoke FN for each result between BEG and END. -FN should take one argument. It will be applied to the -character position of the beginning of each result that overlaps -the region between points BEG and END. As a special case, if (= -BEG END), FN will be applied to the result containing point -BEG." +FN should take one argument. It will be applied to the character +position of the beginning of each result that overlaps the region +between points BEG and END. As a special case, if (= BEG END), +FN will be applied to the result containing point BEG." (let ((pos (notmuch-search-result-beginning beg)) ;; End must be a marker in case fn changes the ;; text.