From c160a74f01535e53dd293c0924771c5b267e4906 Mon Sep 17 00:00:00 2001 From: Lin Sun Date: Mon, 20 May 2024 06:55:31 +0000 Subject: [PATCH] ; Enhance the "python-shell-send-block" for convenience * lisp/progmodes/python.el (python-shell-send-block): The "python-shell-send-block" will send block without header by default. * lisp/progmodes/python.el: Update the test case. --- lisp/progmodes/python.el | 6 +++--- test/lisp/progmodes/python-tests.el | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 7f28f583543..af7c4122ba0 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -4149,14 +4149,14 @@ interactively." "Send the block at point to inferior Python process. The block is delimited by `python-nav-beginning-of-block' and `python-nav-end-of-block'. If optional argument ARG is non-nil -(interactively, the prefix argument), send the block body without +\(interactively, the prefix argument), send the block body with its header. If optional argument MSG is non-nil, force display of a user-friendly message if there's no process running; this always happens interactively." (interactive (list current-prefix-arg t)) (let ((beg (save-excursion (when (python-nav-beginning-of-block) - (if (null arg) + (if arg (beginning-of-line) (python-nav-end-of-statement) (beginning-of-line 2))) @@ -4165,7 +4165,7 @@ always happens interactively." (python-indent-guess-indent-offset-verbose nil)) (if (and beg end) (python-shell-send-region beg end nil msg t) - (user-error "Can't get code block from current position.")))) + (user-error "Can't get code block from current position")))) (defun python-shell-send-buffer (&optional send-main msg) "Send the entire buffer to inferior Python process. diff --git a/test/lisp/progmodes/python-tests.el b/test/lisp/progmodes/python-tests.el index f50797953c3..803008db8a3 100644 --- a/test/lisp/progmodes/python-tests.el +++ b/test/lisp/progmodes/python-tests.el @@ -7476,7 +7476,7 @@ print('current 3')" (goto-char (point-min)) (should-error (python-shell-send-block) :type 'user-error) (forward-line) - (python-shell-send-block) + (python-shell-send-block t) ;; send block with header (python-tests-shell-wait-for-prompt) (python-shell-with-shell-buffer (goto-char (point-min)) @@ -7485,7 +7485,7 @@ print('current 3')" (should (re-search-forward "current 2" nil t)) (should-not (re-search-forward "current 3" nil t))) (forward-line) - (python-shell-send-block t) ;; send block body only + (python-shell-send-block) ;; send block body only (python-tests-shell-wait-for-prompt) (python-shell-with-shell-buffer ;; should only 1 line output from the block body -- 2.20.5