[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 7ad08e2 052/216: Set C-h to work as usual
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 7ad08e2 052/216: Set C-h to work as usual |
Date: |
Tue, 8 Jan 2019 12:29:10 -0500 (EST) |
branch: externals/objed
commit 7ad08e2b0586826a5960c765c30d0e975a9f888a
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Set C-h to work as usual
---
objed.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/objed.el b/objed.el
index 547087c..99ca427 100644
--- a/objed.el
+++ b/objed.el
@@ -645,6 +645,7 @@ object as an argument."
(define-key map (kbd "C-g") 'objed-quit)
(define-key map "g" 'objed-quit)
(define-key map (kbd "?") 'objed-show-top-level)
+ (define-key map (kbd "C-h") 'objed-which-key-C-h-dispatch)
;; TODO: support repeated invokation
(define-key map (kbd "C-u") 'universal-argument)
(define-key map (kbd "C-SPC") 'set-mark-command)
@@ -1190,6 +1191,19 @@ non-nil which is the case when called interactively."
(when interactive
(objed--describe-bindings objed-map))))
+(defun objed-which-key-C-h-dispatch ()
+ "If which-key popup is howing act as paging prefix.
+
+Otherwise act as ususal help prefix."
+ (interactive)
+ (if (which-key--popup-showing-p)
+ (which-key-C-h-dispatch)
+ (objed--exit-objed)
+ (setq unread-command-events
+ (append unread-command-events
+ (listify-key-sequence (kbd "C-h"))))))
+
+
(defun objed-describe-dispatch-bindings ()
"Describe `objed-dispatch-map' bindings."
(interactive)
- [elpa] externals/objed ae9f965 041/216: Fixes #9, (continued)
- [elpa] externals/objed ae9f965 041/216: Fixes #9, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 630d2de 028/216: Improve/add indentation commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 61bb3eb 031/216: Fixup bindings and docs, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ca32294 038/216: Ensure value for cursor color, #5, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 430d858 037/216: Add more command to move objects around and change bindings for them, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 64dc38b 035/216: More on indent/move commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d5dd1d0 045/216: Fix function name, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f33147d 043/216: Add syntax object adjusted from laishulu/evil-textobj-syntax, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8c3ba86 040/216: Add note about changing bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 95503ca 046/216: Fix syntax object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7ad08e2 052/216: Set C-h to work as usual,
Stefan Monnier <=
- [elpa] externals/objed dc8c569 033/216: Improve surround op, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 1f09072 064/216: Improve file object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 96c6b8f 065/216: Add DEL key for in buffer replacement, fixes #6, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 41be963 054/216: Adjust textblock and block object order, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 843d843 059/216: Remove textblock from context objects, Stefan Monnier, 2019/01/08
- [elpa] externals/objed de241e3 048/216: Start to support mc, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ebad1ac 061/216: Fix face object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 042c3bb 051/216: Change some bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f605604 057/216: Rename syntax object to face object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e94dc45 049/216: Remove :get-inner, Stefan Monnier, 2019/01/08