Overview
| Comment: | Bind TAB to forward-button |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9d746ddc9a6317e46d89f84beeb175f3 |
| User & Date: | zge on 2021-03-09 21:16:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-28
| ||
| 10:53 | Fix checkdoc complaints check-in: 6673da2ac4 user: zge tags: master, trunk | |
|
2021-03-09
| ||
| 21:16 | Bind TAB to forward-button check-in: 9d746ddc9a user: zge tags: master, trunk | |
|
2021-01-22
| ||
| 17:08 | Make sbbs-read-board prompt easier to use check-in: b0f8109722 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [7cb8f67ab8] to [a3702196fd].
707 708 709 710 711 712 713 714 715 716 717 718 719 720 |
(hl-line-mode t))
(defvar sbbs-read-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(define-key map (kbd "<tab>") #'forward-button)
(define-key map (kbd "<backtab>") #'backward-button)
(define-key map (kbd "r") #'sbbs-read-reply)
(define-key map (kbd "n") #'sbbs-read-next)
(define-key map (kbd "p") #'sbbs-read-previous)
(define-key map (kbd "a") #'sbbs-show-pop)
(define-key map (kbd "u") #'sbbs-show-pop)
(define-key map (kbd "l") #'sbbs-show-pop)
|
> |
707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 |
(hl-line-mode t))
(defvar sbbs-read-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(define-key map (kbd "<tab>") #'forward-button)
(define-key map (kbd "TAB") #'forward-button)
(define-key map (kbd "<backtab>") #'backward-button)
(define-key map (kbd "r") #'sbbs-read-reply)
(define-key map (kbd "n") #'sbbs-read-next)
(define-key map (kbd "p") #'sbbs-read-previous)
(define-key map (kbd "a") #'sbbs-show-pop)
(define-key map (kbd "u") #'sbbs-show-pop)
(define-key map (kbd "l") #'sbbs-show-pop)
|