sbbs.el

Diff
Login

Differences From Artifact [490ff2e445]:

To Artifact [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