diff options
author | Barry Warsaw <barry@python.org> | 2002-05-12 17:37:46 (GMT) |
---|---|---|
committer | Barry Warsaw <barry@python.org> | 2002-05-12 17:37:46 (GMT) |
commit | 69c9266f45fa56070b09cd2507fff595caa2760e (patch) | |
tree | 87c131589b72e06d0dc6c9d49be0cb0eb570b4c2 /Misc/python-mode.el | |
parent | 39a86c2188b22818c187e860fbf7d77a28a6a116 (diff) | |
download | cpython-69c9266f45fa56070b09cd2507fff595caa2760e.zip cpython-69c9266f45fa56070b09cd2507fff595caa2760e.tar.gz cpython-69c9266f45fa56070b09cd2507fff595caa2760e.tar.bz2 |
(py-execute-region): Do the blank line skipping inside the
save-excursion so that when the function is complete, point is
preserved.
Diffstat (limited to 'Misc/python-mode.el')
-rw-r--r-- | Misc/python-mode.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/Misc/python-mode.el b/Misc/python-mode.el index b242f3b..ec997c2 100644 --- a/Misc/python-mode.el +++ b/Misc/python-mode.el @@ -1495,14 +1495,6 @@ window) so you can see it, and a comment of the form is inserted at the end. See also the command `py-clear-queue'." (interactive "r\nP") ;; Skip ahead to the first non-blank line - (goto-char start) - (beginning-of-line) - (while (and (looking-at "\\s *$") - (< (point) end)) - (forward-line 1)) - (setq start (point)) - (or (< start end) - (error "Region is empty")) (let* ((proc (get-process py-which-bufname)) (temp (if (memq 'broken-temp-names py-emacs-features) (let @@ -1520,6 +1512,13 @@ is inserted at the end. See also the command `py-clear-queue'." ;; Write the contents of the buffer, watching out for indented regions. (save-excursion (goto-char start) + (beginning-of-line) + (while (and (looking-at "\\s *$") + (< (point) end)) + (forward-line 1)) + (setq start (point)) + (or (< start end) + (error "Region is empty")) (let ((needs-if (/= (py-point 'bol) (py-point 'boi)))) (set-buffer buf) (python-mode) |