[elpa] externals/objed d826c0f 216/216: Improve non interactive init

[Stefan Monnier]

branch: externals/objed
commit d826c0f4969733e4f5275f564872e23b9a55f125
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Improve non interactive init
---
 objed.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/objed.el b/objed.el
index b299218..72ace9e 100644
--- a/objed.el
+++ b/objed.el
@@ -173,9 +173,10 @@ See also `objed-disabled-p'"
   :type '(repeat symbol))
 
 (defcustom objed-init-p-function #'objed-init-p
-  "Function which test if objed is allowd to initialize.
+  "Function which tests if objed is allowed to initialize.
 
-The function should return nil if objed should not initialize."
+This is only used for non-interactive initialization. The
+function should return nil if objed should not initialize."
   :type 'function)
 
 
@@ -1059,7 +1060,6 @@ See `objed-cmd-alist'."
              (not objed-disabled-p)
              (not (eq (cadr overriding-terminal-local-map)
                       objed-map))
-             (funcall objed-init-p-function)
              (or (not objed-disabled-modes)
                  (not (apply 'derived-mode-p objed-disabled-modes))))
       (objed--init cmd)))
@@ -1098,6 +1098,7 @@ See `objed-cmd-alist'."
        (not (minibufferp))
        (not (and (bobp)
                  (bound-and-true-p git-commit-mode)))
+       (not (derived-mode-p 'comint-mode))
        (not (and (bobp) (eobp)))
        ;; only for modes which do not
        ;; their their own modal setup