mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use forward-line rather than goto-line.

Browse source
This commit is contained in:
Glenn Morris 2009-08-22 19:29:18 +00:00
parent a569b48010
commit e6ce8c4239
24 changed files with 207 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/server.el
View file

@ -1,7 +1,8 @@
;;; server.el --- Lisp code for GNU Emacs running as server process
;; Copyright (C) 1986, 1987, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: William Sommerfeld <wesommer@athena.mit.edu>
;; Maintainer: FSF
@ -1098,7 +1099,8 @@ The following commands are accepted by the client:
"Move point to the position indicated in LINE-COL.
LINE-COL should be a pair (LINE . COL)."
(when line-col
(goto-line (car line-col))
(goto-char (point-min))
(forward-line (1- (car line-col)))
(let ((column-number (cdr line-col)))
(when (> column-number 0)
(move-to-column (1- column-number))))))