[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 4c878f8 21/59: Change objed-append-mode activatio
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 4c878f8 21/59: Change objed-append-mode activation rules |
Date: |
Sun, 24 Mar 2019 06:06:37 -0400 (EDT) |
branch: externals/objed
commit 4c878f8dd983f16ed0d631cd97ed9e08b9465f4a
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Change objed-append-mode activation rules
---
objed.el | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/objed.el b/objed.el
index 8c49f81..cb9c80c 100644
--- a/objed.el
+++ b/objed.el
@@ -647,7 +647,7 @@ selected one."
(define-key map (kbd "C-h n") 'which-key-show-next-page-cycle)
(define-key map (kbd "C-h p") 'which-key-show-previous-page-cycle))
- (define-key map (kbd "C-M-w") 'append-next-kill)
+ (define-key map (kbd "C-M-w") 'objed-append-mode)
;; todo: restore object state, too?
(define-key map "/" (objed--call-and-switch undo char))
(define-key map "~" 'objed-undo-in-object)
@@ -2391,27 +2391,36 @@ region command."
(interactive)
(objed--do #'delete-region))
+
+(defvar objed--append-do-append nil)
+
(define-minor-mode objed-append-mode
"Append kills on `objed-copy'.
When `objed-append-mode' is active `objed-copy' will append kills
-to the `kill-ring'.")
+to the `kill-ring'."
+ :init-value nil
+ (if objed-append-mode
+ (setq objed--append-do-append nil)))
+
(defun objed-copy ()
"Copy objects.
On repeat activate `objed-append-mode'"
(interactive)
- (when objed-append-mode
+ (when (and objed-append-mode
+ objed--append-do-append)
;; append on repeat
(setq last-command 'kill-region))
(objed--do #'copy-region-as-kill)
(if (eq real-last-command real-this-command)
- (progn (objed-append-mode 1)
- (message "Append mode activated. Press g to stop."))
- (message (if objed-append-mode
+ (ignore "implement register")
+ (message (if (and objed-append-mode
+ objed--append-do-append)
"Appended to `kill-ring'"
- "Copied to `kill-ring.'"))))
+ "Copied to `kill-ring.'"))
+ (setq objed--append-do-append t)))
(defun objed-del-insert ()
"Delete current object and exit to insert state."
@@ -3322,9 +3331,6 @@ If region is active deactivate it first."
(cond (mark-active
(setq mark-active nil)
(objed--init objed--object))
- (objed-append-mode
- (objed-append-mode -1)
- (message "Append mode deactivated"))
(t
(objed--exit-objed))))
- [elpa] externals/objed c87ea0f 38/59: Change binding for objed-insert, (continued)
- [elpa] externals/objed c87ea0f 38/59: Change binding for objed-insert, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed b5e68c9 33/59: Add objed insert command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 1d116bd 42/59: Improve objed context object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed fef1621 47/59: Reorder few defuns by topic, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed dc86d31 45/59: Change bindings for duplicate ops, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed a46a1e5 46/59: Add binding for including leading ws, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 315a622 40/59: Update beg of object at point semantics, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed a09e198 36/59: Improve objed-eval-exp, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5af62e2 35/59: Default to char if current buffer has no objed--object set, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 26cd732 32/59: Exit with exit code or op name, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 4c878f8 21/59: Change objed-append-mode activation rules,
Clemens Radermacher <=
- [elpa] externals/objed c17de45 48/59: Convert toggle state to shrink context command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed fe2b5f1 34/59: Improve objed-copy, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 08cb11c 31/59: Eval op improvements/fixes, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 951af46 28/59: Convert eval op to eval-context, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 20d776a 04/59: Improve identifier command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 084c9ea 39/59: Adding toggle identifier place command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed d35abd5 30/59: Improve eval context op for comments and change its binding, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 26235a7 44/59: Improve duplicate op, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5f9a7f6 37/59: Give feedback message on reformat, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed bc5aa6c 26/59: Add left/right char to cmd-alist, Clemens Radermacher, 2019/03/24