emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Unset unused markers

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

1
modules/completion/ivy/config.el
View file

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

21
modules/editor/evil/autoload/advice.el
View file

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

26
modules/tools/lookup/autoload/lookup.el
View file

@ -163,18 +163,20 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g.
(+lookup--run-handlers handler identifier origin) (+lookup--run-handlers handler identifier origin)
(user-error "No lookup handler selected")) (user-error "No lookup handler selected"))
(run-hook-wrapped handlers #'+lookup--run-handlers identifier origin)))) (run-hook-wrapped handlers #'+lookup--run-handlers identifier origin))))
(when (cond ((null result) (unwind-protect
(message "No lookup handler could find %S" identifier) (when (cond ((null result)
nil) (message "No lookup handler could find %S" identifier)
((markerp result) nil)
(funcall (or display-fn #'switch-to-buffer) ((markerp result)
(marker-buffer result)) (funcall (or display-fn #'switch-to-buffer)
(goto-char result) (marker-buffer result))
result) (goto-char result)
(result)) result)
(with-current-buffer (marker-buffer origin) (result))
(better-jumper-set-jump (marker-position origin))) (with-current-buffer (marker-buffer origin)
result))) (better-jumper-set-jump (marker-position origin)))
result)
(set-marker origin nil))))
;; ;;