mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 08:14:15 +00:00
Fixing bugs
This commit is contained in:
parent
37eac88fa0
commit
31b80fd723
2 changed files with 4 additions and 2 deletions
|
|
@ -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)))
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue