[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog bs.el cus-edit.el ibuffer....
|
From: |
Glenn Morris |
|
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog bs.el cus-edit.el ibuffer.... |
|
Date: |
Sat, 22 Aug 2009 19:29:31 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/22 19:29:30
Modified files:
lisp : ChangeLog bs.el cus-edit.el ibuffer.el
server.el startup.el strokes.el term.el view.el
lisp/calc : calc.el
lisp/play : gamegrid.el
lisp/progmodes : ada-mode.el ada-xref.el ebrowse.el gud.el
idlw-shell.el vhdl-mode.el
lisp/textmodes : picture.el reftex-index.el reftex-sel.el
reftex-toc.el rst.el tex-mode.el two-column.el
Log message:
Use forward-line rather than goto-line.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15992&r2=1.15993
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bs.el?cvsroot=emacs&r1=1.49&r2=1.50
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cus-edit.el?cvsroot=emacs&r1=1.364&r2=1.365
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ibuffer.el?cvsroot=emacs&r1=1.114&r2=1.115
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/server.el?cvsroot=emacs&r1=1.193&r2=1.194
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/startup.el?cvsroot=emacs&r1=1.532&r2=1.533
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/strokes.el?cvsroot=emacs&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.117&r2=1.118
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/view.el?cvsroot=emacs&r1=1.104&r2=1.105
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc.el?cvsroot=emacs&r1=1.129&r2=1.130
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/gamegrid.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ada-mode.el?cvsroot=emacs&r1=1.102&r2=1.103
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ada-xref.el?cvsroot=emacs&r1=1.48&r2=1.49
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ebrowse.el?cvsroot=emacs&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&r1=1.168&r2=1.169
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlw-shell.el?cvsroot=emacs&r1=3.67&r2=3.68
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/vhdl-mode.el?cvsroot=emacs&r1=1.83&r2=1.84
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/picture.el?cvsroot=emacs&r1=1.58&r2=1.59
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-index.el?cvsroot=emacs&r1=1.49&r2=1.50
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-sel.el?cvsroot=emacs&r1=1.38&r2=1.39
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-toc.el?cvsroot=emacs&r1=1.46&r2=1.47
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/rst.el?cvsroot=emacs&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/tex-mode.el?cvsroot=emacs&r1=1.223&r2=1.224
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/two-column.el?cvsroot=emacs&r1=1.45&r2=1.46
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15992
retrieving revision 1.15993
diff -u -b -r1.15992 -r1.15993
--- ChangeLog 22 Aug 2009 00:17:56 -0000 1.15992
+++ ChangeLog 22 Aug 2009 19:29:18 -0000 1.15993
@@ -1,3 +1,50 @@
+2009-08-22 Glenn Morris <address@hidden>
+
+ * bs.el (bs--redisplay):
+ * cus-edit.el (custom-redraw):
+ * ibuffer.el (ibuffer-bury-buffer):
+ * server.el (server-goto-line-column):
+ * startup.el (command-line-1):
+ * strokes.el (strokes-xpm-for-stroke):
+ * term.el (term-display-buffer-line):
+ * view.el (View-goto-line):
+ * calc/calc.el (calc-do, calc-trail-buffer):
+ * play/gamegrid.el (gamegrid-add-score-insecure):
+ * progmodes/ada-mode.el (ada-compile-goto-error):
+ * progmodes/ada-xref.el (ada-xref-find-in-modified-ali):
+ (ebrowse-select-1st-to-9nth):
+ * progmodes/ebrowse.el (ebrowse-toggle-file-name-display)
+ * progmodes/gud.el (gud-display-line):
+ (idlwave-shell-display-line):
+ * progmodes/idlw-shell.el (idlwave-shell-goto-frame)
+ * progmodes/make-mode.el (makefile-browser-toggle):
+ (vhdl-speedbar-port-copy, vhdl-compose-components-package):
+ * progmodes/vhdl-mode.el (vhdl-speedbar-find-file)
+ * textmodes/picture.el (picture-draw-rectangle):
+ * textmodes/reftex-index.el (reftex-index-goto-letter):
+ (reftex-select-jump-to-previous):
+ * textmodes/reftex-sel.el (reftex-find-start-point)
+ * textmodes/reftex-toc.el (reftex-toc, reftex-toc-restore-region):
+ (rst-straighten-deco-spacing, rst-section-tree, rst-toc):
+ * textmodes/rst.el (rst-promote-region, rst-straighten-decorations)
+ * textmodes/tex-mode.el (tex-compilation-parse-errors):
+ * textmodes/two-column.el (2C-associated-buffer):
+ Use forward-line rather than goto-line.
+
+ * emulation/vi.el (vi-goto-line): Don't warn about non-interactive
+ goto-line.
+
+ * international/ucs-normalize.el (nfd)
+ (decomposition-translation-alist, decomposition-char-recursively)
+ (alist-list-to-vector, quick-check-list, quick-check-list-to-regexp):
+ Declare.
+
+ * progmodes/make-mode.el (makefile-browser-insert-selection): Use
+ goto-char rather than goto-line.
+
+ * progmodes/prolog.el (compilation-error-regexp-alist)
+ (compilation-forget-errors): Declare.
+
2009-08-22 Juri Linkov <address@hidden>
* progmodes/grep.el (lgrep, rgrep): At the beginning
Index: bs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bs.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- bs.el 25 Feb 2009 20:33:22 -0000 1.49
+++ bs.el 22 Aug 2009 19:29:24 -0000 1.50
@@ -1,7 +1,7 @@
;;; bs.el --- menu for selecting and displaying buffers
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;; 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Olaf Sylvester <address@hidden>
;; Maintainer: Olaf Sylvester <address@hidden>
;; Keywords: convenience
@@ -575,10 +575,11 @@
"Redisplay whole Buffer Selection Menu.
If KEEP-LINE-P is non-nil the point will stay on current line.
SORT-DESCRIPTION is an element of `bs-sort-functions'."
- (let ((line (1+ (count-lines 1 (point)))))
+ (let ((line (count-lines 1 (point))))
(bs-show-in-buffer (bs-buffer-list nil sort-description))
(when keep-line-p
- (goto-line line))
+ (goto-char (point-min))
+ (forward-line line))
(beginning-of-line)))
(defun bs--goto-current-buffer ()
Index: cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.364
retrieving revision 1.365
diff -u -b -r1.364 -r1.365
--- cus-edit.el 10 Jul 2009 09:17:44 -0000 1.364
+++ cus-edit.el 22 Aug 2009 19:29:24 -0000 1.365
@@ -2192,9 +2192,10 @@
(when (and (>= pos from) (<= pos to))
(condition-case nil
(progn
- (if (> column 0)
- (goto-line line)
- (goto-line (1+ line)))
+ (goto-char (point-min))
+ (forward-line (if (> column 0)
+ (1- line)
+ line))
(move-to-column column))
(error nil)))))
Index: ibuffer.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ibuffer.el,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -b -r1.114 -r1.115
--- ibuffer.el 25 Feb 2009 20:33:22 -0000 1.114
+++ ibuffer.el 22 Aug 2009 19:29:24 -0000 1.115
@@ -1,7 +1,7 @@
;;; ibuffer.el --- operate on buffers like dired
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;; 2009 Free Software Foundation, Inc.
;; Author: Colin Walters <address@hidden>
;; Maintainer: John Paul Wallington <address@hidden>
@@ -1093,7 +1093,8 @@
(line (+ 1 (count-lines 1 (point)))))
(bury-buffer buf)
(ibuffer-update nil t)
- (goto-line line)))
+ (goto-char (point-min))
+ (forward-line (1- line))))
(defun ibuffer-visit-tags-table ()
"Visit the tags table in the buffer on this line. See `visit-tags-table'."
Index: server.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/server.el,v
retrieving revision 1.193
retrieving revision 1.194
diff -u -b -r1.193 -r1.194
--- server.el 29 Jun 2009 03:25:14 -0000 1.193
+++ server.el 22 Aug 2009 19:29:25 -0000 1.194
@@ -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 <address@hidden>
;; Maintainer: FSF
@@ -1098,7 +1099,8 @@
"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))))))
Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.532
retrieving revision 1.533
diff -u -b -r1.532 -r1.533
--- startup.el 1 Jul 2009 14:02:33 -0000 1.532
+++ startup.el 22 Aug 2009 19:29:25 -0000 1.533
@@ -2258,8 +2258,9 @@
(if (= file-count 1)
(setq first-file-buffer (find-file file))
(find-file-other-window file)))
- (or (zerop line)
- (goto-line line))
+ (unless (zerop line)
+ (goto-char (point-min))
+ (forward-line (1- line)))
(setq line 0)
(unless (< column 1)
(move-to-column (1- column)))
@@ -2292,8 +2293,9 @@
(inhibit-startup-screen
(find-file-other-window file))
(t (find-file file))))
- (or (zerop line)
- (goto-line line))
+ (unless (zerop line)
+ (goto-char (point-min))
+ (forward-line (1- line)))
(setq line 0)
(unless (< column 1)
(move-to-column (1- column)))
Index: strokes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/strokes.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- strokes.el 21 Aug 2009 07:24:29 -0000 1.41
+++ strokes.el 22 Aug 2009 19:29:25 -0000 1.42
@@ -1187,14 +1187,16 @@
(let ((char (or (car rainbow-chars) ?\.)))
(loop for i from 0 to 2 do
(loop for j from 0 to 2 do
- (goto-line (+ 16 i y))
+ (goto-char (point-min))
+ (forward-line (+ 15 i y))
(forward-char (+ 1 j x))
(delete-char 1)
(insert char)))
(setq rainbow-chars (cdr rainbow-chars)
lift-flag nil))
;; Otherwise, just plot the point...
- (goto-line (+ 17 y))
+ (goto-char (point-min))
+ (forward-line (+ 16 y))
(forward-char (+ 2 x))
(subst-char-in-region (point) (1+ (point)) ?\s ?\*)))
((strokes-lift-p point)
Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- term.el 16 Aug 2009 15:39:14 -0000 1.117
+++ term.el 22 Aug 2009 19:29:25 -0000 1.118
@@ -3465,7 +3465,8 @@
(set-buffer buffer)
(save-restriction
(widen)
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
(setq pos (point))
(setq overlay-arrow-string "=>")
(or overlay-arrow-position
Index: view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/view.el,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -b -r1.104 -r1.105
--- view.el 26 Jul 2009 23:06:53 -0000 1.104
+++ view.el 22 Aug 2009 19:29:25 -0000 1.105
@@ -817,7 +817,8 @@
Also set the mark at the position where point was."
(interactive "p")
(push-mark)
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
(view-recenter))
(defun View-back-to-mark (&optional ignore)
Index: calc/calc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- calc/calc.el 7 Aug 2009 14:52:56 -0000 1.129
+++ calc/calc.el 22 Aug 2009 19:29:27 -0000 1.130
@@ -1,7 +1,7 @@
;;; calc.el --- the GNU Emacs calculator
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005,
+;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
;; Maintainer: Jay Belanger <address@hidden>
@@ -1615,11 +1615,13 @@
(and (memq 'position-point calc-command-flags)
(if (eq major-mode 'calc-mode)
(progn
- (goto-line calc-final-point-line)
+ (goto-char (point-min))
+ (forward-line (1- calc-final-point-line))
(move-to-column calc-final-point-column))
(save-current-buffer
(calc-select-buffer)
- (goto-line calc-final-point-line)
+ (goto-char (point-min))
+ (forward-line (1- calc-final-point-line))
(move-to-column calc-final-point-column))))
(unless (memq 'keep-flags calc-command-flags)
(save-excursion
@@ -2019,7 +2021,8 @@
(eq (marker-buffer calc-trail-pointer) calc-trail-buffer))
(save-excursion
(set-buffer calc-trail-buffer)
- (goto-line 2)
+ (goto-char (point-min))
+ (forward-line 1)
(setq calc-trail-pointer (point-marker))))
calc-trail-buffer)
Index: play/gamegrid.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/gamegrid.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- play/gamegrid.el 5 Jan 2009 03:23:09 -0000 1.40
+++ play/gamegrid.el 22 Aug 2009 19:29:27 -0000 1.41
@@ -586,7 +586,8 @@
(t ""))))
(sort-fields 1 (point-min) (point-max))
(reverse-region (point-min) (point-max))
- (goto-line (1+ gamegrid-score-file-length))
+ (goto-char (point-min))
+ (forward-line gamegrid-score-file-length)
(delete-region (point) (point-max))
(setq buffer-read-only t)
(save-buffer)))
Index: progmodes/ada-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-mode.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- progmodes/ada-mode.el 20 Jul 2009 16:40:29 -0000 1.102
+++ progmodes/ada-mode.el 22 Aug 2009 19:29:27 -0000 1.103
@@ -229,6 +229,8 @@
(const ada-no-auto-case))
:group 'ada)
+;; FIXME If this is not something required by the ada language, this
+;; should be removed.
(defcustom ada-clean-buffer-before-saving t
"*Non-nil means remove trailing spaces and untabify the buffer before
saving."
:type 'boolean :group 'ada)
@@ -793,8 +795,9 @@
(compilation-find-file (point-marker) (match-string 1) "./")
(set-buffer file)
- (if (stringp line)
- (goto-line (string-to-number line)))
+ (when (stringp line)
+ (goto-char (point-min))
+ (forward-line (1- (string-to-number line))))
(setq source (point-marker)))
Index: progmodes/ada-xref.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-xref.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- progmodes/ada-xref.el 5 Jan 2009 03:23:14 -0000 1.48
+++ progmodes/ada-xref.el 22 Aug 2009 19:29:28 -0000 1.49
@@ -1901,7 +1901,8 @@
(ada-name-of identlist)))
;; one => should be the right one
((= len 1)
- (goto-line (caar declist)))
+ (goto-char (point-min))
+ (forward-line (1- (caar declist))))
;; more than one => display choice list
(t
@@ -1937,7 +1938,8 @@
(read-from-minibuffer "Enter No. of your choice: "))))
)
(set-buffer ali-buffer)
- (goto-line (car (nth (1- choice) declist)))
+ (goto-char (point-min))
+ (forward-line (1- (car (nth (1- choice) declist))))
))))))
@@ -2166,7 +2168,8 @@
;; move the cursor to the correct position
(push-mark)
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
(move-to-column column)
;; If we are not on the identifier, the ali file was not up-to-date.
Index: progmodes/ebrowse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ebrowse.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- progmodes/ebrowse.el 13 Mar 2009 19:55:58 -0000 1.53
+++ progmodes/ebrowse.el 22 Aug 2009 19:29:28 -0000 1.54
@@ -1337,7 +1337,8 @@
(setf ebrowse--show-file-names-flag (not ebrowse--show-file-names-flag))
(let ((old-line (count-lines (point-min) (point))))
(ebrowse-redraw-tree)
- (goto-line old-line)))
+ (goto-char (point-min))
+ (forward-line (1- old-line))))
@@ -4316,7 +4317,8 @@
(interactive)
(let* ((maxlin (count-lines (point-min) (point-max)))
(n (min maxlin (+ 2 (string-to-number (this-command-keys))))))
- (goto-line n)
+ (goto-char (point-min))
+ (forward-line (1- n))
(throw 'electric-buffer-menu-select (point))))
Index: progmodes/gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.168
retrieving revision 1.169
diff -u -b -r1.168 -r1.169
--- progmodes/gud.el 11 Aug 2009 10:49:00 -0000 1.168
+++ progmodes/gud.el 22 Aug 2009 19:29:28 -0000 1.169
@@ -1,12 +1,12 @@
;;; gud.el --- Grand Unified Debugger mode for running GDB and other debuggers
+;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
+;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+
;; Author: Eric S. Raymond <address@hidden>
;; Maintainer: FSF
;; Keywords: unix, tools
-;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
-;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
-
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
@@ -2715,7 +2715,8 @@
(setq gud-keep-buffer t)))
(save-restriction
(widen)
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
(setq pos (point))
(or gud-overlay-arrow-position
(setq gud-overlay-arrow-position (make-marker)))
Index: progmodes/idlw-shell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/idlw-shell.el,v
retrieving revision 3.67
retrieving revision 3.68
diff -u -b -r3.67 -r3.68
--- progmodes/idlw-shell.el 22 Jul 2009 03:07:23 -0000 3.67
+++ progmodes/idlw-shell.el 22 Aug 2009 19:29:28 -0000 3.68
@@ -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 <address@hidden>
;; Carsten Dominik <address@hidden>
@@ -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)
Index: progmodes/vhdl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -b -r1.83 -r1.84
--- progmodes/vhdl-mode.el 21 Aug 2009 07:24:31 -0000 1.83
+++ progmodes/vhdl-mode.el 22 Aug 2009 19:29:28 -0000 1.84
@@ -15152,7 +15152,8 @@
(let ((buffer (get-file-buffer (car token))))
(speedbar-find-file-in-frame (car token))
(when (or vhdl-speedbar-jump-to-unit buffer)
- (goto-line (cdr token))
+ (goto-char (point-min))
+ (forward-line (1- (cdr token)))
(recenter))
(vhdl-speedbar-update-current-unit t t)
(speedbar-set-timer dframe-update-speed)
@@ -15170,7 +15171,8 @@
(let ((token (get-text-property
(match-beginning 3) 'speedbar-token)))
(vhdl-visit-file (car token) t
- (progn (goto-line (cdr token))
+ (progn (goto-char (point-min))
+ (forward-line (1- (cdr token)))
(end-of-line)
(if is-entity
(vhdl-port-copy)
@@ -15919,7 +15921,8 @@
;; insert component declarations
(while ent-alist
(vhdl-visit-file (nth 2 (car ent-alist)) nil
- (progn (goto-line (nth 3 (car ent-alist)))
+ (progn (goto-char (point-min))
+ (forward-line (1- (nth 3 (car ent-alist))))
(end-of-line)
(vhdl-port-copy)))
(goto-char component-pos)
Index: textmodes/picture.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/picture.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- textmodes/picture.el 5 Jan 2009 03:24:08 -0000 1.58
+++ textmodes/picture.el 22 Aug 2009 19:29:29 -0000 1.59
@@ -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 @@
(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 @@
(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)))
Index: textmodes/reftex-index.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-index.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- textmodes/reftex-index.el 5 Jan 2009 03:24:09 -0000 1.49
+++ textmodes/reftex-index.el 22 Aug 2009 19:29:29 -0000 1.50
@@ -1088,7 +1088,8 @@
"Go to the CHAR section in the index."
(let ((pos (point))
(case-fold-search nil))
- (goto-line 3)
+ (goto-char (point-min))
+ (forward-line 2)
(if (re-search-forward (concat "^" (char-to-string char)) nil t)
(progn
(beginning-of-line)
Index: textmodes/reftex-sel.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-sel.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- textmodes/reftex-sel.el 5 Jan 2009 03:24:10 -0000 1.38
+++ textmodes/reftex-sel.el 22 Aug 2009 19:29:29 -0000 1.39
@@ -362,7 +362,8 @@
(throw 'exit t)))
((integerp loc)
(when (<= loc (count-lines (point-min) (point-max)))
- (goto-line loc)
+ (goto-char (point-min))
+ (forward-line (1- loc))
(throw 'exit t)))))
(goto-char fallback))))
@@ -525,7 +526,8 @@
(goto-char pos))
((and (local-variable-p 'reftex-last-line (current-buffer))
(integerp reftex-last-line))
- (goto-line reftex-last-line))
+ (goto-char (point-min))
+ (forward-line (1- reftex-last-line)))
(t (ding)))))
(defun reftex-select-toggle-follow ()
"Toggle follow mode: Other window follows with full context."
Index: textmodes/reftex-toc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-toc.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- textmodes/reftex-toc.el 5 Jan 2009 03:24:10 -0000 1.46
+++ textmodes/reftex-toc.el 22 Aug 2009 19:29:29 -0000 1.47
@@ -1,6 +1,7 @@
;;; reftex-toc.el --- RefTeX's table of contents mode
-;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005,
-;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+
+;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Author: Carsten Dominik <address@hidden>
;; Maintainer: address@hidden
@@ -230,8 +231,8 @@
'toc here-I-am
(symbol-value reftex-docstruct-symbol))))
(put 'reftex-toc :reftex-line 3)
- (goto-line 3)
- (beginning-of-line)))
+ (goto-char (point-min))
+ (forward-line 2)))
;; Find the correct starting point
(reftex-find-start-point (point) offset (get 'reftex-toc :reftex-line))
@@ -628,10 +629,13 @@
(defun reftex-toc-restore-region (point-line &optional mark-line)
- (if mark-line
- (progn (goto-line mark-line)
- (setq mpos (point))))
- (if point-line (goto-line point-line))
+ (when mark-line
+ (goto-char (point-min))
+ (forward-line (1- mark-line))
+ (setq mpos (point)))
+ (when point-line
+ (goto-char (point-min))
+ (forward-line (1- point-line)))
(if mark-line
(progn
(set-mark mpos)
Index: textmodes/rst.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/rst.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- textmodes/rst.el 19 Feb 2009 22:14:15 -0000 1.11
+++ textmodes/rst.el 22 Aug 2009 19:29:29 -0000 1.12
@@ -1398,7 +1398,8 @@
(let (m line)
(while (and cur (< (setq line (caar cur)) region-end-line))
(setq m (make-marker))
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
(push (list (set-marker m (point)) (cdar cur)) marker-list)
(setq cur (cdr cur)) ))
@@ -1463,7 +1464,8 @@
(lambda (deco)
(cons (rst-position (cdr deco) hier)
(let ((m (make-marker)))
- (goto-line (car deco))
+ (goto-char (point-min))
+ (forward-line (1- (car deco)))
(set-marker m (point))
m)))
alldecos))
@@ -1497,7 +1499,8 @@
;; adjust for the changes in the document.
(dolist (deco (nreverse alldecos))
;; Go to the appropriate position.
- (goto-line (car deco))
+ (goto-char (point-min))
+ (forward-line (1- (car deco)))
(insert "@\n")
;; FIXME: todo, we
)
@@ -1628,7 +1631,8 @@
(save-excursion
(setq lines
(mapcar (lambda (deco)
- (goto-line (car deco))
+ (goto-char (point-min))
+ (forward-line (1- (car deco)))
(list (gethash (cons (cadr deco) (caddr deco)) levels)
(rst-get-stripped-line)
(let ((m (make-marker)))
@@ -2019,7 +2023,8 @@
(set (make-local-variable 'rst-toc-return-buffer) curbuf)
;; Move the cursor near the right section in the TOC.
- (goto-line line)
+ (goto-char (point-min))
+ (forward-line (1- line))
))
@@ -2134,7 +2139,9 @@
;; If the index is positive, goto the line, otherwise go to the buffer
;; boundaries.
(if (and cur (>= idx 0))
- (goto-line (car cur))
+ (progn
+ (goto-char (point-min))
+ (forward-line (1- (car cur))))
(if (> offset 0) (goto-char (point-max)) (goto-char (point-min))))
))
Index: textmodes/tex-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/tex-mode.el,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- textmodes/tex-mode.el 20 May 2009 15:14:22 -0000 1.223
+++ textmodes/tex-mode.el 22 Aug 2009 19:29:30 -0000 1.224
@@ -2229,7 +2229,10 @@
(find-file-noselect filename))
(save-excursion
(if new-file
- (progn (goto-line linenum) (setq last-position nil))
+ (progn
+ (goto-char (point-min))
+ (forward-line (1- linenum))
+ (setq last-position nil))
(goto-char last-position)
(forward-line (- linenum last-linenum)))
;; first try a forward search for the error text,
Index: textmodes/two-column.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/two-column.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- textmodes/two-column.el 4 Jun 2009 01:11:06 -0000 1.45
+++ textmodes/two-column.el 22 Aug 2009 19:29:30 -0000 1.46
@@ -537,7 +537,8 @@
(if (get-buffer-window (2C-other t))
(select-window (get-buffer-window (2C-other)))
(switch-to-buffer (2C-other)))
- (newline (goto-line line))
+ (goto-char (point-min))
+ (newline (forward-line (1- line)))
(if col
(move-to-column col)
(end-of-line 1))))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog bs.el cus-edit.el ibuffer....,
Glenn Morris <=