[elpa] externals/objed 051028c 129/216: Fix init for entry commands which use after-init-alist

[Stefan Monnier]

branch: externals/objed
commit 051028cb73c08c748643d30fc41d7c4955a84486
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Fix init for entry commands which use after-init-alist
---
 objed.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/objed.el b/objed.el
index 48f8af5..093f774 100644
--- a/objed.el
+++ b/objed.el
@@ -619,11 +619,14 @@ update to given object."
 
 CMD is the command for which object should be guessed. Returns
 cons of guessed object and its state."
-  (let ((o (cdr (assq cmd objed-cmd-alist))))
+  (let ((objed--block-p t)
+        (o (cdr (assq cmd objed-cmd-alist)))
+        (initf (cdr (assq cmd objed--after-init-alist))))
     (if o
         (objed--switch-to o (if (eq cmd #'back-to-indentation)
                                 'inner 'whole))
-      (objed--update-current-object))))
+      (objed--update-current-object))
+    (when initf (funcall initf objed--opoint))))
 
 
 ;; * Keymaps
@@ -1186,10 +1189,7 @@ SYM is a symbol (command or object symbol) used to 
initialize."
 
   ;; init object
   (if (commandp sym)
-      (let* ((objed--block-p t)
-             (initf (cdr (assq sym objed--after-init-alist))))
-        (objed--switch-to-object-for-cmd sym)
-        (when initf (funcall initf objed--opoint)))
+      (objed--switch-to-object-for-cmd sym)
     (objed--switch-to sym))
 
   ;; transient map