sbbs.el

Check-in [9d746ddc9a]
Login
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: 9d746ddc9a6317e46d89f84beeb175f36264abd5f402291dd4388d2267f7a767
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)