sbbs.el: Diff

Differences From Artifact [a32d58a0ff]:

File sbbs.el — part of check-in [4d43170777] at 2022-01-24 09:22:48 on branch master — Add sbbs-format-word-at-point user option (user: zge, size: 31157) [annotate] [blame] [check-ins using]

To Artifact [2a852168db]:

File sbbs.el — part of check-in [c728f51a59] at 2022-01-24 09:30:16 on branch master — Prevent nobreak-space from being highlighted (user: zge, size: 31365) [annotate] [blame] [check-ins using]

   787    787       (define-key map (kbd "c") #'sbbs-view-compose)
   788    788       map))
   789    789   
   790    790   (define-derived-mode sbbs-view-mode tabulated-list-mode "SchemeBBS Browse"
   791    791     "Major mode for browsing a SchemeBBS board."
   792    792     (buffer-disable-undo)
   793    793   
          794  +  (push '(nobreak-space . default)
          795  +        (buffer-local-value 'face-remapping-alist (current-buffer)))
   794    796     (setq tabulated-list-format [("Date" 16 t)
   795    797                                  ("#" 3 t :right-align t)
   796    798                                  ("Headline" 0 nil)]
   797    799           tabulated-list-sort-key '("Date" . t))
   798    800     (add-hook 'quit-window-hook
   799    801               'sbbs--cleanup-board
   800    802               nil t)
................................................................................
   822    824       (define-key map (kbd ">") #'sbbs-goto-end)
   823    825       map))
   824    826   
   825    827   (define-derived-mode sbbs-read-mode special-mode "SchemeBBS Read"
   826    828     "Major mode for reading a thread."
   827    829     (buffer-disable-undo)
   828    830     (visual-line-mode t)
          831  +  (push '(nobreak-space . default)
          832  +        (buffer-local-value 'face-remapping-alist (current-buffer)))
   829    833     (setq-local revert-buffer-function #'sbbs--reload-thread)
   830    834     (add-hook 'post-command-hook #'sbbs--uncover-spoiler
   831    835               nil t))
   832    836   
   833    837   (defvar sbbs-compose-mode-map
   834    838     (let ((map (make-sparse-keymap)))
   835    839       (define-key map (kbd "C-c C-f C-b") #'sbbs-compose-format-bold)