Remove experimental dead code

This commit is contained in:
Gerard Vermeulen 2024-02-02 10:46:39 +01:00
parent c5979fb175
commit f569c9f7be

View File

@ -4818,34 +4818,6 @@ the Org-mode source block code before calling `eglot-ensure'."
(eglot-org-babel-edit-prep info)))
#+end_src
#+caption[Make sessions for "eval-buffer" in "org-src-mode" buffers.]:
#+caption: Make sessions for ~eval-buffer~ in ~org-src-mode~ buffers.
#+caption: *Experimental: do not tangle*.
#+begin_src emacs-lisp -n :results silent :tangle no
(with-eval-after-load 'emacs
(defun org-babel-edit-prep:python (info)
(message "`%S'" info)
(let* ((session (cdr (assq :session (nth 2 info))))
(muffed (if (member session '("none" ":default")) ;; nil
"*Python*"
(org-babel-python-with-earmuffs session)))
(key (car (rassoc muffed org-babel-python-buffers))))
;; (message "obpb is `%S'" org-babel-python-buffers)
;; (message "session is `%S', muffed is `%S', key is `%S'"
;; session muffed key)
(unless (and (get-buffer muffed)
(buffer-match-p '(major-mode . inferior-python-mode) muffed)
(get-process (org-babel-python-without-earmuffs muffed)))
(when (y-or-n-p "Start Python session?")
(org-babel-python-initiate-session
(if (eq key :default) nil (org-babel-python-without-earmuffs muffed))))
;; (message "obpb is `%S'" org-babel-python-buffers)
)
(setq-local python-shell-buffer-name
(org-babel-python-without-earmuffs muffed)))
(eglot-org-babel-edit-prep info)))
#+end_src
#+caption[Setup Python =org-src-mode= buffers for =eglot=]:
#+caption: Setup Python =org-src-mode= buffers for =eglot=.
#+name: lst:setup-python-org-src-mode-for-eglot