diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
| commit | e6ce8c4239a0b7003430d94a5f591e1d4ad50213 (patch) | |
| tree | 17852bba62da89f449af8c75f4fe50a3fb89852f /lisp/textmodes/picture.el | |
| parent | a569b4801085fa14c3bd0d153e389636645908b9 (diff) | |
| download | emacs-e6ce8c4239a0b7003430d94a5f591e1d4ad50213.tar.gz | |
Use forward-line rather than goto-line.
Diffstat (limited to 'lisp/textmodes/picture.el')
| -rw-r--r-- | lisp/textmodes/picture.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 1f532b41974..92412eccd10 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -1,7 +1,7 @@ ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model -;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF @@ -559,7 +559,8 @@ Leaves the region surrounding the rectangle." (left (min c1 c2)) (top (min r1 r2)) (bottom (max r1 r2))) - (goto-line top) + (goto-char (point-min)) + (forward-line (1- top)) (move-to-column left t) (picture-update-desired-column t) @@ -580,7 +581,8 @@ Leaves the region surrounding the rectangle." (picture-insert picture-rectangle-v (- (picture-current-line) top)) (picture-set-motion pvs phs) - (goto-line sl) + (goto-char (point-min)) + (forward-line (1- sl)) (move-to-column sc t))) |