awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(emacs-lisp): default ielm working buffer to selected

Browse Source 
When invoking `+emacs-lisp/open-repl`, if no working buffer is set in
the resulting ielm buffer, it will default to the selected buffer prior
to opening the repl.
This commit is contained in:
Henrik Lissner
2025-04-13 04:25:23 -04:00
parent d209e519af
commit e096e7d79e
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
modules/lang/emacs-lisp/autoload.el
View File

@ -149,11 +149,17 @@ if it's callable, `apropos' otherwise."
;;;###autoload ;;;###autoload
(defun +emacs-lisp/open-repl () (defun +emacs-lisp/open-repl ()
"Open the Emacs Lisp REPL (`ielm')." "Open the Emacs Lisp REPL (`ielm').
If the repl isn't already open, sets ielm's working buffer to the buffer
selected before this command was invoked."
(interactive) (interactive)
(pop-to-buffer (pop-to-buffer
(or (get-buffer "*ielm*") (or (get-buffer "*ielm*")
(progn (ielm) (let ((original-buffer (current-buffer)))
(ielm)
(when (buffer-live-p original-buffer)
(ielm-change-working-buffer original-buffer))
(let ((buf (get-buffer "*ielm*"))) (let ((buf (get-buffer "*ielm*")))
(bury-buffer buf) (bury-buffer buf)
buf))))) buf)))))