Overview
Comment: | use variable-pitch face for links |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
093b218ae8d11efcf0325f4049a083bb |
User & Date: | philip@warpmail.net on 2020-05-05 19:49:38 |
Other Links: | branch diff | manifest | tags |
Context
2020-05-26
| ||
10:35 | updated board list check-in: 3836dcc4c0 user: philip@warpmail.net tags: master, trunk | |
2020-05-05
| ||
19:49 | use variable-pitch face for links check-in: 093b218ae8 user: philip@warpmail.net tags: master, trunk | |
19:49 | added formatting functions for compose-mode check-in: 9cf3c77a3c user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [a69b270c46] to [8f395ca288].
257 257 (sbbs-view-open id range))) 258 258 ;; other thread 259 259 ((/= id sbbs--thread-id) 260 260 (let ((sbbs--board board)) 261 261 (sbbs-view-open id range))) 262 262 ;; this thread 263 263 (range (sbbs--limit-to-range range)))))) 264 - (insert-button text 'action func 'sbbs-ref range))))) 264 + (insert-button (propertize text 'face 'variable-pitch) 265 + 'action func 'sbbs-ref range))))) 265 266 266 267 (defun sbbs--insert-sxml-par (sxml) 267 268 "Insert paragraph contents SXML at point." 268 269 (dolist (it sxml) 269 270 (cond ((stringp it) 270 271 (insert (propertize it 'face 'variable-pitch))) 271 272 ((eq (car it) 'br)