From 31b80fd7236a0c5034615a8e732e573836746c55 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 21 Nov 2024 10:11:00 -0600 Subject: [PATCH] Fixing bugs --- lisp/llvm-lib/llvm-act-on-file/make-tmp-output-file.el | 1 + lisp/llvm-lib/llvm-buffer-chain.el | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/llvm-lib/llvm-act-on-file/make-tmp-output-file.el b/lisp/llvm-lib/llvm-act-on-file/make-tmp-output-file.el index 1948ce0..2962c7b 100644 --- a/lisp/llvm-lib/llvm-act-on-file/make-tmp-output-file.el +++ b/lisp/llvm-lib/llvm-act-on-file/make-tmp-output-file.el @@ -36,6 +36,7 @@ (setq fname (file-name-nondirectory (file-name-sans-extension file)) temporary-file-directory (expand-file-name "tmp" file-directory))) + (make-directory temporary-file-directory) (make-temp-file (concat fname "-") nil ext))) diff --git a/lisp/llvm-lib/llvm-buffer-chain.el b/lisp/llvm-lib/llvm-buffer-chain.el index 6be1d19..996057d 100644 --- a/lisp/llvm-lib/llvm-buffer-chain.el +++ b/lisp/llvm-lib/llvm-buffer-chain.el @@ -132,11 +132,12 @@ (defun lbc/around-act (orig &rest args) (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 ;; Make sure info is initialized (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) act-buffer))