[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed d15d904 089/216: Fix up forward/backward until an
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed d15d904 089/216: Fix up forward/backward until any object |
Date: |
Tue, 8 Jan 2019 12:29:17 -0500 (EST) |
branch: externals/objed
commit d15d904eca487b24ed1e19da1dbcb2634a34ff85
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Fix up forward/backward until any object
---
objed.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/objed.el b/objed.el
index 3ad3e0c..70c6d95 100644
--- a/objed.el
+++ b/objed.el
@@ -590,8 +590,11 @@ Don't modify this list manually, use
`objed-define-dispatch'.")
Uses `objed--dispatch-alist' and defaults to
update to given object."
(let* ((cmd (key-binding
- (vector ;; (aref (this-command-keys-vector) 0)
- last-command-event)))
+ (vector
+ (if (> (length (this-command-keys-vector)) 2)
+ (aref (this-command-keys-vector) 0)
+ ;; for testing purposes...
+ last-command-event))))
(binding (assq cmd objed--dispatch-alist)))
(cond (binding
(funcall (cdr binding) name))
@@ -758,9 +761,6 @@ the guessed object."
(define-key map "x" 'objed-op-map)
(define-key map "c" 'objed-object-map)
- (dolist (k2d objed--dispatch-key-alist)
- (define-key map (kbd (car k2d)) (cdr k2d)))
-
;; direct acc objs
;; moved to S/R
;; (define-key map "_" 'objed-symbol-object)
@@ -887,7 +887,6 @@ Use `objed-define-dispatch' to define a dispatch command.")
(objed-define-dispatch ">" objed--forward-until)
(objed-define-dispatch "*" objed--mark-all-inside)
-
(defun objed--backward-until (name)
"Activate part from point backward until object NAME."
(let* ((start (point))
- [elpa] externals/objed b7ded6d 083/216: Improve tests, add more tests, (continued)
- [elpa] externals/objed b7ded6d 083/216: Improve tests, add more tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e5f8bac 102/216: Improve undo in region, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e5dfba1 096/216: Add extend commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d770ddd 055/216: Don't exit after eval op, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 6907e69 058/216: Improve face object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed cac61c3 084/216: Improve block objects, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 58af659 068/216: Start adding tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 655a636 090/216: Fix bug, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 838094f 097/216: Working on #14, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9f4e3cf 062/216: More face object adjustments, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d15d904 089/216: Fix up forward/backward until any object,
Stefan Monnier <=
- [elpa] externals/objed 12e3fdd 078/216: Use last command event so it can be rebound for tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 0aa6e84 103/216: Change some object bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed c0a65ec 108/216: Remove redundant iblock object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b9fe335 117/216: Improve nav for objects with leading ws, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7961536 113/216: Adjust textblock object again, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 64ed598 130/216: Mark other instances if object command is called repeatedly, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 333a9d5 120/216: Fix not loading mc variable if mc is loaded late, Stefan Monnier, 2019/01/08
- [elpa] externals/objed fe5548c 138/216: Install advices for :commands after objed is loaded, fixes #21, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5b4bf3f 128/216: Get region command positions according to objed rules, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a246088 144/216: Merge pull request #23 from gergelypolonkai/defcustom-fixes, Stefan Monnier, 2019/01/08