emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doom/popup-restore: clone file buffers if needed

Browse source
This commit is contained in:
Henrik Lissner 2017-05-14 14:37:06 +02:00
parent 1ab5f86188
commit 5b6f3119c7
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/autoload/popups.el
View file

@ -39,8 +39,8 @@ possible rules."
;;;###autoload ;;;###autoload
(defun doom/popup-restore () (defun doom/popup-restore ()
"Restore the last open popups. If the buffers have been killed, and "Restore the last open popups. If the buffers have been killed, and
represented real files, they will be restored. Special buffers or buffers with represented real files, they will be restored. Dead special buffers or buffers
non-nil :autokill properties will not be. with non-nil :autokill properties will not be.
Returns t if popups were restored, nil otherwise." Returns t if popups were restored, nil otherwise."
(interactive) (interactive)
@ -49,10 +49,13 @@ Returns t if popups were restored, nil otherwise."
(let (any-p) (let (any-p)
(dolist (spec doom-popup-history) (dolist (spec doom-popup-history)
(let ((buffer (get-buffer (car spec))) (let ((buffer (get-buffer (car spec)))
(path (plist-get (cdr spec) :file)) (file (plist-get (cdr spec) :file))
(rules (plist-get (cdr spec) :rules))) (rules (plist-get (cdr spec) :rules)))
(when (and (not buffer) path) (when (and (not buffer) file)
(setq buffer (find-file-noselect path t))) (setq buffer
(if-let (buf (get-file-buffer file))
(clone-indirect-buffer (buffer-name buf) nil t)
(find-file-noselect file t))))
(when (and buffer (apply #'doom-popup-buffer buffer rules) (not any-p)) (when (and buffer (apply #'doom-popup-buffer buffer rules) (not any-p))
(setq any-p t)))) (setq any-p t))))
(when any-p (when any-p