diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-11-19 16:06:47 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-11-19 16:06:47 -0500 |
| commit | d829b396b76e2e81572a682bc8e2f389ca615bf5 (patch) | |
| tree | 60658d15e5b81be33f738d8b078402e7e36fd62e | |
| parent | 3eb08aee73683922cfef013854ed6b2bfe7659ac (diff) | |
| download | emacsconf-el-d829b396b76e2e81572a682bc8e2f389ca615bf5.tar.xz emacsconf-el-d829b396b76e2e81572a682bc8e2f389ca615bf5.zip | |
emacsconf-subed: add more keybindings
| -rw-r--r-- | emacsconf-subed.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 "<up>") #'scroll-down) (define-key map (kbd "<down>") #'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) |