debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Move notmuch-search-interactive-region to notmuch-lib as notmuch-interactive-region

Browse source
This commit is contained in:
Pierre Neidhardt 2019-04-09 18:47:12 +02:00 committed by David Bremner
parent b58594cd5b
commit f3cba19f88
2 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/notmuch-lib.el
View file

@ -1008,6 +1008,15 @@ status."
(defvar notmuch-show-process-crypto nil)
(make-variable-buffer-local 'notmuch-show-process-crypto)
(defun notmuch-interactive-region ()
"Return the bounds of the current interactive region.
This returns (BEG END), where BEG and END are the bounds of the
region if the region is active, or both `point' otherwise."
(if (region-active-p)
(list (region-beginning) (region-end))
(list (point) (point))))
(provide 'notmuch-lib)
;; Local Variables:

17
emacs/notmuch.el
View file

@ -557,20 +557,11 @@ thread."
(setq output (append output (notmuch-search-get-tags pos)))))
output))
(defun notmuch-search-interactive-region ()
"Return the bounds of the current interactive region.
This returns (BEG END), where BEG and END are the bounds of the
region if the region is active, or both `point' otherwise."
(if (region-active-p)
(list (region-beginning) (region-end))
(list (point) (point))))
(defun notmuch-search-interactive-tag-changes (&optional initial-input)
"Prompt for tag changes for the current thread or region.
Returns (TAG-CHANGES REGION-BEGIN REGION-END)."
(let* ((region (notmuch-search-interactive-region))
(let* ((region (notmuch-interactive-region))
(beg (first region)) (end (second region))
(prompt (if (= beg end) "Tag thread" "Tag region")))
(cons (notmuch-read-tag-changes
@ -590,8 +581,8 @@ is inactive this applies to the thread at point.
If ONLY-MATCHED is non-nil, only tag matched messages."
(interactive (notmuch-search-interactive-tag-changes))
(unless (and beg end)
(setq beg (car (notmuch-search-interactive-region))
end (cadr (notmuch-search-interactive-region))))
(setq beg (car (notmuch-interactive-region))
end (cadr (notmuch-interactive-region))))
(let ((search-string (notmuch-search-find-stable-query-region
beg end only-matched)))
(notmuch-tag search-string tag-changes)
@ -627,7 +618,7 @@ messages will be \"unarchived\" (i.e. the tag changes in
`notmuch-archive-tags' will be reversed).
This function advances the next thread when finished."
(interactive (cons current-prefix-arg (notmuch-search-interactive-region)))
(interactive (cons current-prefix-arg (notmuch-interactive-region)))
(when notmuch-archive-tags
(notmuch-search-tag
(notmuch-tag-change-list notmuch-archive-tags unarchive) beg end))