Mercurial > emacs

diff lisp/progmodes/idlw-shell.el @ 104543:da8b3e61b182

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use forward-line rather than goto-line.
author Glenn Morris <rgm@gnu.org>
date Sat, 22 Aug 2009 19:29:18 +0000
parents 55ba5af4bf3a
children 468b7fa34d2c
line wrap: on
line diff
--- a/lisp/progmodes/idlw-shell.el	Sat Aug 22 19:21:18 2009 +0000
+++ b/lisp/progmodes/idlw-shell.el	Sat Aug 22 19:29:18 2009 +0000
@@ -1,7 +1,7 @@
 ;; idlw-shell.el --- run IDL as an inferior process of Emacs.
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-;;    Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
 ;;          Carsten Dominik <dominik@astro.uva.nl>
@@ -2317,7 +2317,8 @@
    (frame
     (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
     (widen)
-    (goto-line (nth 1 frame)))))
+    (goto-char (point-min))
+    (forward-line (1- (nth 1 frame))))))
 
 (defun idlwave-shell-pc-frame ()
   "Returns the frame for IDL execution."
@@ -2388,8 +2389,8 @@
           (set-buffer buffer)
           (save-restriction
             (widen)
-            (goto-line (nth 1 frame))
-	    (forward-line 0)
+            (goto-char (point-min))
+            (forward-line (1- (nth 1 frame)))
             (setq pos (point))
 	    (setq idlwave-shell-is-stopped t)