Fixing bugs

This commit is contained in:
Benson Chu 2024-11-21 10:11:00 -06:00
parent 37eac88fa0
commit 31b80fd723
2 changed files with 4 additions and 2 deletions

View file

@ -36,6 +36,7 @@
(setq fname (file-name-nondirectory (file-name-sans-extension file)) (setq fname (file-name-nondirectory (file-name-sans-extension file))
temporary-file-directory (expand-file-name "tmp" file-directory))) temporary-file-directory (expand-file-name "tmp" file-directory)))
(make-directory temporary-file-directory)
(make-temp-file (concat fname "-") (make-temp-file (concat fname "-")
nil ext))) nil ext)))

View file

@ -132,11 +132,12 @@
(defun lbc/around-act (orig &rest args) (defun lbc/around-act (orig &rest args)
(let ((buff-orig (current-buffer)) (let ((buff-orig (current-buffer))
(previous-act (slot-value lbc/source-buffer-info 'producing-act-buffer)) (act-buffer (apply orig args))
(act-buffer (apply orig args))) previous-act)
(with-current-buffer buff-orig (with-current-buffer buff-orig
;; Make sure info is initialized ;; Make sure info is initialized
(lbc/source-buffer-mode 1) (lbc/source-buffer-mode 1)
(setq previous-act (slot-value lbc/source-buffer-info 'producing-act-buffer))
(setf (slot-value lbc/source-buffer-info 'next-act-buffer) (setf (slot-value lbc/source-buffer-info 'next-act-buffer)
act-buffer)) act-buffer))