Overview
Comment: | Prevent nobreak-space from being highlighted |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
c728f51a59c902d54d7964076205bc7f |
User & Date: | zge on 2022-01-24 09:30:16 |
Other Links: | branch diff | manifest | tags |
Context
2022-01-24
| ||
09:35 | Replace formatting when using a prefix argument check-in: 1db3d1b5c3 user: zge tags: master, trunk | |
09:30 | Prevent nobreak-space from being highlighted check-in: c728f51a59 user: zge tags: master, trunk | |
09:22 | Add sbbs-format-word-at-point user option check-in: 4d43170777 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [a32d58a0ff] to [2a852168db].
787
788
789
790
791
792
793
794
795
796
797
798
799
800
...
822
823
824
825
826
827
828
829
830
831
832
833
834
835
|
(define-key map (kbd "c") #'sbbs-view-compose)
map))
(define-derived-mode sbbs-view-mode tabulated-list-mode "SchemeBBS Browse"
"Major mode for browsing a SchemeBBS board."
(buffer-disable-undo)
(setq tabulated-list-format [("Date" 16 t)
("#" 3 t :right-align t)
("Headline" 0 nil)]
tabulated-list-sort-key '("Date" . t))
(add-hook 'quit-window-hook
'sbbs--cleanup-board
nil t)
................................................................................
(define-key map (kbd ">") #'sbbs-goto-end)
map))
(define-derived-mode sbbs-read-mode special-mode "SchemeBBS Read"
"Major mode for reading a thread."
(buffer-disable-undo)
(visual-line-mode t)
(setq-local revert-buffer-function #'sbbs--reload-thread)
(add-hook 'post-command-hook #'sbbs--uncover-spoiler
nil t))
(defvar sbbs-compose-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-f C-b") #'sbbs-compose-format-bold)
|
>
>
>
>
|
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
...
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
|
(define-key map (kbd "c") #'sbbs-view-compose) map)) (define-derived-mode sbbs-view-mode tabulated-list-mode "SchemeBBS Browse" "Major mode for browsing a SchemeBBS board." (buffer-disable-undo) (push '(nobreak-space . default) (buffer-local-value 'face-remapping-alist (current-buffer))) (setq tabulated-list-format [("Date" 16 t) ("#" 3 t :right-align t) ("Headline" 0 nil)] tabulated-list-sort-key '("Date" . t)) (add-hook 'quit-window-hook 'sbbs--cleanup-board nil t) ................................................................................ (define-key map (kbd ">") #'sbbs-goto-end) map)) (define-derived-mode sbbs-read-mode special-mode "SchemeBBS Read" "Major mode for reading a thread." (buffer-disable-undo) (visual-line-mode t) (push '(nobreak-space . default) (buffer-local-value 'face-remapping-alist (current-buffer))) (setq-local revert-buffer-function #'sbbs--reload-thread) (add-hook 'post-command-hook #'sbbs--uncover-spoiler nil t)) (defvar sbbs-compose-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "C-c C-f C-b") #'sbbs-compose-format-bold) |