[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 051028c 129/216: Fix init for entry commands whic
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 051028c 129/216: Fix init for entry commands which use after-init-alist |
Date: |
Tue, 8 Jan 2019 12:29:25 -0500 (EST) |
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
- [elpa] externals/objed 29bccb0 042/216: Whitespace cleanup, (continued)
- [elpa] externals/objed 29bccb0 042/216: Whitespace cleanup, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 2e1e5c1 110/216: Run compilation as part of make test, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 433e92d 104/216: Block objed advices in object body codes, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 79ec8af 116/216: Fix boundary error, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5a1c9f7 122/216: Improve char switching with objec-ace, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 38887bb 107/216: Adjust textblock object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed fc11d2b 119/216: Fix skipping ws if point is after the object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d50117d 114/216: Fix kill-op error, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 49e36fd 123/216: Change back to indentation behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ce608d8 115/216: Add symbol object back, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 051028c 129/216: Fix init for entry commands which use after-init-alist,
Stefan Monnier <=
- [elpa] externals/objed 4b21416 112/216: Fix endless textblock search, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 703d634 131/216: Move some op bindings to more emacsy bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 92fd6e7 135/216: Fix marking instances in objects not surrounding point, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b9866d6 101/216: Fix undo op behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 0e1d041 105/216: Simplify object macro usage, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 69db302 126/216: Some mroe init changes, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 0c5a4e3 147/216: Version bump, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7617799 136/216: Allow testing different emacs versions, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f5904c2 142/216: Add eval commands to keeper commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 734711a 124/216: Add move-to-window-line-top-bottom to activation cmds, Stefan Monnier, 2019/01/08