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 | (save-excursion (save-match-data (while (search-forward "#f" nil t) (unless (cadddr (syntax-ppss)) (replace-match "nil"))))) (save-excursion (save-match-data | | | 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 |
︙ | ︙ |