[elpa] scratch/hyperbole 8894d83051 04/15: (kotl-mode:pre-self-insert-command): Use buffer-locally at top-level

[Stefan Monnier]

branch: scratch/hyperbole
commit 8894d83051f90b977c05d4d4bdd5e80877c93db0
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (kotl-mode:pre-self-insert-command): Use buffer-locally at top-level
    
    * kotl/kotl-mode.el (kotl-mode): Don't impose our `pre-command-hook` on
    all buffers.
    (kotl-mode:pre-self-insert-command): Remove now-redundant test that
    we're in a Kotl buffer.  Remove also `hyperb:stack-frame` test which
    seems to have been added while debugging a problem around May 2021.
---
 kotl/kotl-mode.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 89cd6d46f4..d52e516d51 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -131,7 +131,7 @@ It provides the following keys:
   ;;
   ;; Prevent insertion of characters outside of editable bounds,
   ;; e.g. after the mouse sets point to a non-editable position
-  (add-hook 'pre-command-hook #'kotl-mode:pre-self-insert-command)
+  (add-hook 'pre-command-hook #'kotl-mode:pre-self-insert-command nil t)
   ;;
   ;; Ensure that outline structure data is saved when save-buffer is called
   ;; from save-some-buffers, {C-x s}.
@@ -3318,10 +3318,14 @@ Mouse may have moved point outside of an editable area.
                              kotl-mode:self-insert-command
                              orgtbl-self-insert-command
                              self-insert-command))
-        (eq major-mode 'kotl-mode)
         (not (kview:valid-position-p))
         ;; Prevent repeatedly moving point to valid position when moving trees
-        (not (hyperb:stack-frame '(kcell-view:to-label-end))))
+        ;; FIXME: This may have been useful in some older version of
+        ;; the code but now that it runs from a `pre-command-hook',
+        ;; `kcell-view:to-label-end' can never be in the call
+        ;; stack (except of course during debugging and such).
+        ;;(not (hyperb:stack-frame '(kcell-view:to-label-end)))
+        )
     (kotl-mode:to-valid-position)))
 
 (defun kotl-mode:print-attributes (_kview)