diff options
| author | Miles Bader | 2007-08-13 13:41:28 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-08-13 13:41:28 +0000 |
| commit | 37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53 (patch) | |
| tree | 7fb68e80f66e55100c48b9751cf70c74af2d4bf1 /lisp/progmodes/python.el | |
| parent | 031b6333283be57d971e557b83da31c6be937b0a (diff) | |
| parent | 9d2db4c6637fe37d75f947063bcb2ecce319a1bc (diff) | |
| download | emacs-37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53.tar.gz emacs-37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53.zip | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-851
Diffstat (limited to 'lisp/progmodes/python.el')
| -rw-r--r-- | lisp/progmodes/python.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 9bef41a0878..462445f3d71 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -348,7 +348,7 @@ comments and strings, or that point is within brackets/parens." | |||
| 348 | (error nil)))))))) | 348 | (error nil)))))))) |
| 349 | 349 | ||
| 350 | (defun python-comment-line-p () | 350 | (defun python-comment-line-p () |
| 351 | "Return non-nil iff current line has only a comment." | 351 | "Return non-nil if current line has only a comment." |
| 352 | (save-excursion | 352 | (save-excursion |
| 353 | (end-of-line) | 353 | (end-of-line) |
| 354 | (when (eq 'comment (syntax-ppss-context (syntax-ppss))) | 354 | (when (eq 'comment (syntax-ppss-context (syntax-ppss))) |
| @@ -356,7 +356,7 @@ comments and strings, or that point is within brackets/parens." | |||
| 356 | (looking-at (rx (or (syntax comment-start) line-end)))))) | 356 | (looking-at (rx (or (syntax comment-start) line-end)))))) |
| 357 | 357 | ||
| 358 | (defun python-blank-line-p () | 358 | (defun python-blank-line-p () |
| 359 | "Return non-nil iff current line is blank." | 359 | "Return non-nil if current line is blank." |
| 360 | (save-excursion | 360 | (save-excursion |
| 361 | (beginning-of-line) | 361 | (beginning-of-line) |
| 362 | (looking-at "\\s-*$"))) | 362 | (looking-at "\\s-*$"))) |
| @@ -850,7 +850,7 @@ multi-line bracketed expressions." | |||
| 850 | "Skip out of any nested brackets. | 850 | "Skip out of any nested brackets. |
| 851 | Skip forward if FORWARD is non-nil, else backward. | 851 | Skip forward if FORWARD is non-nil, else backward. |
| 852 | If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point. | 852 | If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point. |
| 853 | Return non-nil iff skipping was done." | 853 | Return non-nil if skipping was done." |
| 854 | (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss)))) | 854 | (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss)))) |
| 855 | (forward (if forward -1 1))) | 855 | (forward (if forward -1 1))) |
| 856 | (unless (zerop depth) | 856 | (unless (zerop depth) |
| @@ -1199,7 +1199,7 @@ local value.") | |||
| 1199 | (define-key map "\C-c\C-l" 'python-load-file) | 1199 | (define-key map "\C-c\C-l" 'python-load-file) |
| 1200 | (define-key map "\C-c\C-v" 'python-check) | 1200 | (define-key map "\C-c\C-v" 'python-check) |
| 1201 | ;; Note that we _can_ still use these commands which send to the | 1201 | ;; Note that we _can_ still use these commands which send to the |
| 1202 | ;; Python process even at the prompt iff we have a normal prompt, | 1202 | ;; Python process even at the prompt provided we have a normal prompt, |
| 1203 | ;; i.e. '>>> ' and not '... '. See the comment before | 1203 | ;; i.e. '>>> ' and not '... '. See the comment before |
| 1204 | ;; python-send-region. Fixme: uncomment these if we address that. | 1204 | ;; python-send-region. Fixme: uncomment these if we address that. |
| 1205 | 1205 | ||