Overview
| Comment: | Fix typo in sbbs--thread-loader's Scheme->Elisp translation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
c0938f900565438444200ef0dcb5d5ee |
| User & Date: | zge on 2022-01-24 09:12:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-01-24
| ||
| 09:16 | Fix type update from [d0b75dd168] check-in: c6c6a90cab user: zge tags: master, trunk | |
| 09:12 | Fix typo in sbbs--thread-loader's Scheme->Elisp translation check-in: c0938f9005 user: zge tags: master, trunk | |
| 09:11 | Fix /mona/ check-in: d0b75dd168 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [490ff2e445] to [81d2e3071c].
509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 |
(save-excursion
(save-match-data
(while (search-forward "#f" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "nil")))))
(save-excursion
(save-match-data
(while (search-forward "#f" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "t")))))
(let ((thread (read (current-buffer))))
(with-current-buffer buf
(let ((buffer-read-only nil))
(erase-buffer)
(setq header-line-format
|
| |
509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 |
(save-excursion
(save-match-data
(while (search-forward "#f" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "nil")))))
(save-excursion
(save-match-data
(while (search-forward "#t" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "t")))))
(let ((thread (read (current-buffer))))
(with-current-buffer buf
(let ((buffer-read-only nil))
(erase-buffer)
(setq header-line-format
|