Mercurial > emacs
comparison lisp/progmodes/python.el @ 104774:468b7fa34d2c
Use forward-line rather than goto-line.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 01 Sep 2009 03:18:44 +0000 |
parents | 2e0765155e47 |
children | bd2966850aac |
comparison
equal
deleted
inserted
replaced
104773:380c4c2a4fc2 | 104774:468b7fa34d2c |
---|---|
2201 (file (car loc)) | 2201 (file (car loc)) |
2202 (line (cdr loc))) | 2202 (line (cdr loc))) |
2203 (unless file (error "Don't know where `%s' is defined" name)) | 2203 (unless file (error "Don't know where `%s' is defined" name)) |
2204 (pop-to-buffer (find-file-noselect file)) | 2204 (pop-to-buffer (find-file-noselect file)) |
2205 (when (integerp line) | 2205 (when (integerp line) |
2206 (goto-line line)))) | 2206 (goto-char (point-min)) |
2207 (forward-line (1- line))))) | |
2207 | 2208 |
2208 ;;;; Skeletons | 2209 ;;;; Skeletons |
2209 | 2210 |
2210 (defcustom python-use-skeletons nil | 2211 (defcustom python-use-skeletons nil |
2211 "Non-nil means template skeletons will be automagically inserted. | 2212 "Non-nil means template skeletons will be automagically inserted. |
2612 | 2613 |
2613 (setq target_lineno (car target) | 2614 (setq target_lineno (car target) |
2614 target_buffer (cadr target) | 2615 target_buffer (cadr target) |
2615 target_fname (buffer-file-name target_buffer)) | 2616 target_fname (buffer-file-name target_buffer)) |
2616 (switch-to-buffer-other-window target_buffer) | 2617 (switch-to-buffer-other-window target_buffer) |
2617 (goto-line target_lineno) | 2618 (goto-char (point-min)) |
2619 (forward-line (1- target_lineno)) | |
2618 (message "pdbtrack: line %s, file %s" target_lineno target_fname) | 2620 (message "pdbtrack: line %s, file %s" target_lineno target_fname) |
2619 (python-pdbtrack-overlay-arrow t) | 2621 (python-pdbtrack-overlay-arrow t) |
2620 (pop-to-buffer origbuf t) | 2622 (pop-to-buffer origbuf t) |
2621 ;; in large shell buffers, above stuff may cause point to lag output | 2623 ;; in large shell buffers, above stuff may cause point to lag output |
2622 (goto-char procmark) | 2624 (goto-char procmark) |