mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

Added python-nav-sentence-start and python-nav-sentence-end functions

Browse source
This commit is contained in:
Fabián Ezequiel Gallina 2012-05-17 00:03:15 -03:00 • committed by Fabián Ezequiel Gallina
parent c942de99c0
commit 3697b5314a
1 changed files with 23 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/progmodes/python.el
View file

@ -590,14 +590,7 @@ START is the buffer position where the sexp starts."
;; After normal line
((setq start (save-excursion
(while (and (forward-comment -1) (not (bobp))))
(while (and (not (back-to-indentation))
(not (bobp))
(if (python-info-ppss-context 'paren)
(forward-line -1)
(if (save-excursion
(forward-line -1)
(python-info-line-ends-backslash-p))
(forward-line -1)))))
(python-nav-sentence-start)
(point-marker)))
'after-line)
;; Do not indent
@ -955,6 +948,28 @@ Returns nil if point is not in a def or class."
(forward-comment 1)
(goto-char (line-beginning-position))))
(defun python-nav-sentence-start ()
"Move to start of current sentence."
(interactive "^")
(while (and (not (back-to-indentation))
(not (bobp))
(when (or
(save-excursion
(forward-line -1)
(python-info-line-ends-backslash-p))
(python-info-ppss-context 'paren))
(forward-line -1)))))
(defun python-nav-sentence-end ()
"Move to end of current sentence."
(interactive "^")
(while (and (goto-char (line-end-position))
(not (eobp))
(when (or
(python-info-line-ends-backslash-p)
(python-info-ppss-context 'paren))
(forward-line 1)))))
;;; Shell integration