>From b375774e2f114ed5295e83ac31fe130a8b92aefa Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Thu, 9 Mar 2023 06:40:58 -0800 Subject: [PATCH 0/1] *** NOT A PATCH *** *** BLURB HERE *** F. Jason Park (1): [5.6] Add option to show visual erc-keep-place indicator lisp/erc/erc-goodies.el | 167 ++++++++++++++++++++++++++++- test/lisp/erc/erc-goodies-tests.el | 106 ++++++++++++++++++ 2 files changed, 270 insertions(+), 3 deletions(-) create mode 100644 test/lisp/erc/erc-goodies-tests.el Interdiff: diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el index b7f7214eed9..212e2e5340a 100644 --- a/lisp/erc/erc-goodies.el +++ b/lisp/erc/erc-goodies.el @@ -305,8 +305,11 @@ erc-keep-place-goto "Jump to keep-place indicator. For use with `keep-place-indicator' module." (interactive - (unless erc-keep-place-indicator-mode - (user-error "`erc-keep-place-indicator-mode' not enabled"))) + (prog1 nil + (unless erc-keep-place-indicator-mode + (user-error "`erc-keep-place-indicator-mode' not enabled")) + (deactivate-mark) + (push-mark))) (goto-char (overlay-start erc--keep-place-indicator-overlay)) (recenter (truncate (* (window-height) 0.25)) t) (require 'pulse) diff --git a/test/lisp/erc/erc-goodies-tests.el b/test/lisp/erc/erc-goodies-tests.el index f08404be687..cd5e051ca63 100644 --- a/test/lisp/erc/erc-goodies-tests.el +++ b/test/lisp/erc/erc-goodies-tests.el @@ -46,6 +46,7 @@ erc-keep-place-indicator-mode (should window-configuration-change-hook) (should erc-keep-place-mode))) ;; + erc-insert-pre-hook erc-modules) (funcall assert-off) -- 2.39.2