mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +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))
|
||||
temporary-file-directory (expand-file-name "tmp" file-directory)))
|
||||
|
||||
(make-directory temporary-file-directory)
|
||||
(make-temp-file (concat fname "-")
|
||||
nil ext)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Reference in a new issue