diff options
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index be747d008dd..20266097fed 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -2301,12 +2301,11 @@ Signals an error if no shell buffer is available for current buffer." | |||
| 2301 | 2301 | ||
| 2302 | (defun python-shell-font-lock-kill-buffer () | 2302 | (defun python-shell-font-lock-kill-buffer () |
| 2303 | "Kill the font-lock buffer safely." | 2303 | "Kill the font-lock buffer safely." |
| 2304 | (python-shell-with-shell-buffer | 2304 | (when (and python-shell--font-lock-buffer |
| 2305 | (when (and python-shell--font-lock-buffer | 2305 | (buffer-live-p python-shell--font-lock-buffer)) |
| 2306 | (buffer-live-p python-shell--font-lock-buffer)) | 2306 | (kill-buffer python-shell--font-lock-buffer) |
| 2307 | (kill-buffer python-shell--font-lock-buffer) | 2307 | (when (derived-mode-p 'inferior-python-mode) |
| 2308 | (when (derived-mode-p 'inferior-python-mode) | 2308 | (setq python-shell--font-lock-buffer nil)))) |
| 2309 | (setq python-shell--font-lock-buffer nil))))) | ||
| 2310 | 2309 | ||
| 2311 | (defmacro python-shell-font-lock-with-font-lock-buffer (&rest body) | 2310 | (defmacro python-shell-font-lock-with-font-lock-buffer (&rest body) |
| 2312 | "Execute the forms in BODY in the font-lock buffer. | 2311 | "Execute the forms in BODY in the font-lock buffer. |
| @@ -2357,7 +2356,8 @@ goes wrong and syntax highlighting in the shell gets messed up." | |||
| 2357 | (defun python-shell-font-lock-post-command-hook () | 2356 | (defun python-shell-font-lock-post-command-hook () |
| 2358 | "Fontifies current line in shell buffer." | 2357 | "Fontifies current line in shell buffer." |
| 2359 | (let ((prompt-end (cdr (python-util-comint-last-prompt)))) | 2358 | (let ((prompt-end (cdr (python-util-comint-last-prompt)))) |
| 2360 | (when (and prompt-end (> (point) prompt-end)) | 2359 | (when (and prompt-end (> (point) prompt-end) |
| 2360 | (process-live-p (get-buffer-process (current-buffer)))) | ||
| 2361 | (let* ((input (buffer-substring-no-properties | 2361 | (let* ((input (buffer-substring-no-properties |
| 2362 | prompt-end (point-max))) | 2362 | prompt-end (point-max))) |
| 2363 | (start-pos prompt-end) | 2363 | (start-pos prompt-end) |