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)