sbbs.el

Check-in [c728f51a59]
Login
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: c728f51a59c902d54d7964076205bc7fb07ae2d53860c8704e06bbabcd0f5e1a
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [a32d58a0ff] to [2a852168db].

   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)