How to disable a minor/major mode so that mwheel-scroll don’t take effect?

Question

I am trying to have a simple solution to center the cursor at all times. I found that centered-cursor-mode was too slow and found this simpler solution. The only problem is mouse scrolling no longer works unless I disable the minor/major mode I implemented to center the cursor.

I tried to advise mwheel-scroll to disable the mode but that was unsuccessful. I am not sure what I am doing wrong.

(define-minor-mode centered-point-mode
  "Always center the cursor on the screen."
  :lighter "..."
  (cond (centered-point-mode (add-hook 'post-command-hook 'line-change))
    (t (remove-hook 'post-command-hook 'line-change))))

(defun line-change ()
  (recenter))

(define-globalized-minor-mode my-global-centered-point-mode centered-point-mode
  (lambda () (centered-point-mode 1)))
(my-global-centered-point-mode 1)

(defun disable-centered
  (interactive)
  (centered-point-mode -1))

(advice-add 'mwheel-scroll :before (lambda () (interactive) (call-interactively 'disable-centered)))

Answer 1

The O.P. has indicated in a comment underneath the original question that a previous suggestion by this author resolved the issue, and this answer is a write-up of that solution.... There is no need to use any advice-.... Instead, the O.P. could use one of two potential conditions:

1. For just one exception, modify the function line-change as follows:

(unless (eq this-command 'mwheel-scroll)
  (recenter))

2. For multiple exceptions, modify the function line-change as follows:

(unless (memq this-command '(mwheel-scroll foo-command bar-command baz-command))
  (recenter))

In most cases, this-command is the command of the current command loop -- however, certain hooks run after this-command becomes the last-command even though the command loop is still the same ... but, the post-command-hook is early enough in time so that this-command is still current.