emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/objed 890b8b7 044/166: Add init function for hooks


From: Clemens Radermacher
Subject: [elpa] externals/objed 890b8b7 044/166: Add init function for hooks
Date: Sun, 29 Dec 2019 08:20:58 -0500 (EST)

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

    Add init function for hooks
---
 objed.el | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/objed.el b/objed.el
index 8303737..11c8dca 100644
--- a/objed.el
+++ b/objed.el
@@ -709,14 +709,14 @@ selected one."
                          (when (objed--point-in-periphery)
                            (back-to-indentation))))
 
-    (define-key map "P" 'objed-move-line-backward)
     (define-key map "N" 'objed-move-line-forward)
+    (define-key map "P" 'objed-move-line-backward)
 
 
     (define-key map "(" 'objed-backward-until-context)
     (define-key map ")" 'objed-forward-until-context)
-    (define-key map "[" 'objed-current-or-previous-context)
-    (define-key map "]" 'objed-current-or-next-context)
+    (define-key map "[" 'objed-current-or-previous-context) ;;objed-previous)
+    (define-key map "]" 'objed-current-or-next-context) ;;objed-next)
     (define-key map "{" (objed--call-and-switch backward-paragraph paragraph))
     (define-key map "}" (defun objed-forward-paragraph ()
                           (interactive)
@@ -1253,6 +1253,7 @@ See `objed-cmd-alist'."
   (and (eq (key-binding (kbd "C-n"))
            #'next-line)
        (not (minibufferp))
+       (not (active-minibuffer-window))
        (not (and (bobp)
                  (bound-and-true-p git-commit-mode)))
        (not (derived-mode-p 'comint-mode))
@@ -2014,8 +2015,14 @@ back to `objed-initial-object' if no match found."
        (if (assq last-command objed-cmd-alist)
            last-command
          objed-initial-object))
-    (when (objed-init-p)
-      (objed--init (or obj 'char)))))
+    (objed-init obj)))
+
+(defun objed-init (&optional obj)
+  "Function for activating objed by hooks.
+
+Initialize with OBJ which defaults to char."
+  (when (objed-init-p)
+    (objed--init (or obj 'char))))
 
 ;;;###autoload
 (defun objed-activate-object ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]