From d829b396b76e2e81572a682bc8e2f389ca615bf5 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 19 Nov 2023 16:06:47 -0500 Subject: emacsconf-subed: add more keybindings --- emacsconf-subed.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/emacsconf-subed.el b/emacsconf-subed.el index 95480cd..c1cef79 100644 --- a/emacsconf-subed.el +++ b/emacsconf-subed.el @@ -160,7 +160,7 @@ TYPE can be 'end if you want the match end instead of the beginning." (let (result current) (mapc (lambda (o) - (if (elt o 4) + (if (not (string= (or (elt o 4) "") "")) (progn (when current (setq result (cons current result))) (setq current @@ -323,10 +323,12 @@ Create it if necessary." (define-key map [up-1] #'ignore) (define-key map [drag-mouse-1] #'ignore) (define-key map [mouse-movement] #'ignore) + (define-key map (kbd "") #'scroll-down) (define-key map (kbd "") #'scroll-up) (define-key map (kbd "M-q") #'emacsconf-subed-unfill-paragraph) (define-key map (kbd "M-.") #'emacsconf-subed-merge-and-unfill) (define-key map "q" #'emacsconf-subed-unfill-paragraph) + (define-key map "p" #'subed-backward-subtitle-text) (define-key map "." #'emacsconf-subed-merge-and-unfill) (define-key map "u" #'undo) (define-key map (kbd "SPC") #'scroll-up) -- cgit v1.2.3