Unset unused markers

In case of overlay leaks.
This commit is contained in:
Henrik Lissner 2020-12-12 15:00:30 -05:00
parent c4a0174fe2
commit 765b6dcfca
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 26 additions and 22 deletions

View file

@ -89,6 +89,7 @@ results buffer.")
+ivy--origin))
(with-current-buffer (marker-buffer +ivy--origin)
(better-jumper-set-jump +ivy--origin)))
(set-marker +ivy--origin nil)
(setq +ivy--origin nil)))
(after! yasnippet

View file

@ -190,6 +190,7 @@ From https://github.com/emacs-evil/evil/issues/606"
(let* ((count (count-lines beg end))
(count (if (> count 1) (1- count) count))
(fixup-mark (make-marker)))
(unwind-protect
(dotimes (var count)
(if (and (bolp) (eolp))
(join-line 1)
@ -199,7 +200,7 @@ From https://github.com/emacs-evil/evil/issues/606"
(fill-region-as-paragraph beg end nil t)
(goto-char fixup-mark)
(fixup-whitespace))))
(set-marker fixup-mark nil)))
(set-marker fixup-mark nil))))
;;;###autoload
(defun +evil--fix-dabbrev-in-minibuffer-h ()

View file

@ -163,6 +163,7 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g.
(+lookup--run-handlers handler identifier origin)
(user-error "No lookup handler selected"))
(run-hook-wrapped handlers #'+lookup--run-handlers identifier origin))))
(unwind-protect
(when (cond ((null result)
(message "No lookup handler could find %S" identifier)
nil)
@ -174,7 +175,8 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g.
(result))
(with-current-buffer (marker-buffer origin)
(better-jumper-set-jump (marker-position origin)))
result)))
result)
(set-marker origin nil))))
;;