emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge pull request #2034 from thierryvolpiatto/remove_marked_overlays 

Only remove mark overlays in `mu4e-mark-at-point`
This commit is contained in:
Dirk-Jan C. Binnema 2021-06-17 22:22:00 +03:00 committed by GitHub
parent 6ddfc61c8d 2f251209e3
commit 7034556ab4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-mark.el
View File

@ -266,8 +266,8 @@ The following marks are available, and the corresponding props:
;; update the hash -- remove everything current, and if add the new ;; update the hash -- remove everything current, and if add the new
;; stuff, unless we're unmarking ;; stuff, unless we're unmarking
(remhash docid mu4e~mark-map) (remhash docid mu4e~mark-map)
;; remove possible overlays ;; remove possible mark overlays
(remove-overlays (line-beginning-position) (line-end-position)) (remove-overlays (line-beginning-position) (line-end-position) 'mu4e-mark t)
;; now, let's set a mark (unless we were unmarking) ;; now, let's set a mark (unless we were unmarking)
(unless (eql mark 'unmark) (unless (eql mark 'unmark)
(puthash docid (cons mark target) mu4e~mark-map) (puthash docid (cons mark target) mu4e~mark-map)
@ -282,6 +282,8 @@ The following marks are available, and the corresponding props:
(mu4e~headers-goto-docid docid t))) (mu4e~headers-goto-docid docid t)))
(overlay (make-overlay start (+ start (length targetstr))))) (overlay (make-overlay start (+ start (length targetstr)))))
(overlay-put overlay 'display targetstr) (overlay-put overlay 'display targetstr)
(overlay-put overlay 'mu4e-mark t)
(overlay-put overlay 'evaporate t)
docid))))))) docid)))))))
(defun mu4e~mark-get-move-target () (defun mu4e~mark-get-move-target ()