[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog progmodes/flymake.el progm...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog progmodes/flymake.el progm... |
Date: |
Tue, 01 Sep 2009 03:18:59 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/01 03:18:56
Modified files:
lisp : ChangeLog
lisp/progmodes : flymake.el gdb-mi.el idlw-shell.el python.el
verilog-mode.el
lisp/term : ns-win.el
lisp/textmodes : bibtex.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.16075&r2=1.16076
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/flymake.el?cvsroot=emacs&r1=1.62&r2=1.63
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlw-shell.el?cvsroot=emacs&r1=3.68&r2=3.69
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/python.el?cvsroot=emacs&r1=1.96&r2=1.97
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/verilog-mode.el?cvsroot=emacs&r1=1.33&r2=1.34
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.48&r2=1.49
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/bibtex.el?cvsroot=emacs&r1=1.147&r2=1.148
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16075
retrieving revision 1.16076
diff -u -b -r1.16075 -r1.16076
--- ChangeLog 1 Sep 2009 03:02:25 -0000 1.16075
+++ ChangeLog 1 Sep 2009 03:18:44 -0000 1.16076
@@ -1,5 +1,27 @@
2009-09-01 Glenn Morris <address@hidden>
+ * net/eudc-bob.el (eudc-bob-generic-menu, eudc-bob-image-menu)
+ (eudc-bob-sound-menu): Use defvar rather than defconst, since
+ easy-menu-define wants to modify these.
+
+ * net/net-utils.el (nslookup): Use make-comint rather than comint-run.
+
+ * net/browse-url.el (browse-url-file-url):
+ * term/internal.el (dos-codepage-setup):
+ Use default-value rather than default-enable-multibyte-characters.
+
+ * progmodes/flymake.el (flymake-highlight-line)
+ (flymake-goto-file-and-line, flymake-goto-line):
+ * progmodes/gdb-mi.el (gdb-mouse-until, gdb-mouse-jump)
+ (gdb-goto-breakpoint):
+ * progmodes/idlw-shell.el (idlwave-shell-move-to-bp):
+ * progmodes/python.el (python-find-function)
+ (python-pdbtrack-track-stack-file):
+ * progmodes/verilog-mode.el (verilog-surelint-off):
+ * term/ns-win.el (ns-open-file-select-line):
+ * textmodes/bibtex.el (bibtex-validate, bibtex-validate-globally):
+ Use forward-line rather than goto-line.
+
* textmodes/reftex-cite.el (reftex-offer-bib-menu):
* textmodes/reftex-index.el (reftex-display-index):
* textmodes/reftex-ref.el (reftex-offer-label-menu):
Index: progmodes/flymake.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/flymake.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- progmodes/flymake.el 13 Mar 2009 20:33:27 -0000 1.62
+++ progmodes/flymake.el 1 Sep 2009 03:18:52 -0000 1.63
@@ -805,7 +805,8 @@
(defun flymake-highlight-line (line-no line-err-info-list)
"Highlight line LINE-NO in current buffer.
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
- (goto-line line-no)
+ (goto-char (point-min))
+ (forward-line (1- line-no))
(let* ((line-beg (flymake-line-beginning-position))
(line-end (flymake-line-end-position))
(beg line-beg)
@@ -1269,7 +1270,8 @@
(if (not (file-exists-p file))
(flymake-log 1 "File %s does not exist" file)
(find-file file)
- (goto-line line)))
+ (goto-char (point-min))
+ (forward-line (1- line))))
;; flymake minor mode declarations
(defvar flymake-mode-line nil)
@@ -1443,7 +1445,8 @@
(defun flymake-goto-line (line-no)
"Go to line LINE-NO, then skip whitespace."
- (goto-line line-no)
+ (goto-char (point-min))
+ (forward-line (1- line-no))
(flymake-skip-whitespace))
(defun flymake-goto-next-error ()
Index: progmodes/gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- progmodes/gdb-mi.el 31 Aug 2009 12:35:55 -0000 1.40
+++ progmodes/gdb-mi.el 1 Sep 2009 03:18:52 -0000 1.41
@@ -910,7 +910,8 @@
(gud-call (concat "until " (number-to-string line))))
(gdb-if-arrow gdb-disassembly-position
(save-excursion
- (goto-line (line-number-at-pos (posn-point end)))
+ (goto-char (point-min))
+ (forward-line (1- (line-number-at-pos (posn-point end))))
(forward-char 2)
(gud-call (concat "until *%a"))))))
@@ -930,7 +931,8 @@
(gud-call (concat "jump " (number-to-string line)))))
(gdb-if-arrow gdb-disassembly-position
(save-excursion
- (goto-line (line-number-at-pos (posn-point end)))
+ (goto-char (point-min))
+ (forward-line (1- (line-number-at-pos (posn-point end))))
(forward-char 2)
(progn
(gud-call (concat "tbreak *%a"))
@@ -3337,7 +3339,8 @@
(display-buffer buffer))))
(setq gdb-source-window window)
(with-current-buffer buffer
- (goto-line (string-to-number line))
+ (goto-char (point-min))
+ (forward-line (1- (string-to-number line)))
(set-window-point window (point))))))
(error "Not recognized as break/watchpoint line")))))
Index: progmodes/idlw-shell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/idlw-shell.el,v
retrieving revision 3.68
retrieving revision 3.69
diff -u -b -r3.68 -r3.69
--- progmodes/idlw-shell.el 22 Aug 2009 19:29:28 -0000 3.68
+++ progmodes/idlw-shell.el 1 Sep 2009 03:18:52 -0000 3.69
@@ -2790,7 +2790,8 @@
(or (not bp-line) (funcall closer-func cur-line bp-line)))
(setq bp-line cur-line))))
(unless bp-line (error "No further breakpoints"))
- (goto-line bp-line)))
+ (goto-char (point-min))
+ (forward-line (1- bp-line))))
;; Examine Commands ------------------------------------------------------
Index: progmodes/python.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/python.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- progmodes/python.el 21 Aug 2009 07:24:30 -0000 1.96
+++ progmodes/python.el 1 Sep 2009 03:18:53 -0000 1.97
@@ -2203,7 +2203,8 @@
(unless file (error "Don't know where `%s' is defined" name))
(pop-to-buffer (find-file-noselect file))
(when (integerp line)
- (goto-line line))))
+ (goto-char (point-min))
+ (forward-line (1- line)))))
;;;; Skeletons
@@ -2614,7 +2615,8 @@
target_buffer (cadr target)
target_fname (buffer-file-name target_buffer))
(switch-to-buffer-other-window target_buffer)
- (goto-line target_lineno)
+ (goto-char (point-min))
+ (forward-line (1- target_lineno))
(message "pdbtrack: line %s, file %s" target_lineno target_fname)
(python-pdbtrack-overlay-arrow t)
(pop-to-buffer origbuf t)
Index: progmodes/verilog-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/verilog-mode.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- progmodes/verilog-mode.el 28 Aug 2009 17:02:54 -0000 1.33
+++ progmodes/verilog-mode.el 1 Sep 2009 03:18:53 -0000 1.34
@@ -4071,7 +4071,8 @@
(and (file-exists-p name)
(find-file-noselect name))))))))
(switch-to-buffer buffer)
- (goto-line (string-to-number line))
+ (goto-char (point-min))
+ (forward-line (- (string-to-number line)))
(end-of-line)
(catch 'already
(cond
Index: term/ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- term/ns-win.el 21 Aug 2009 07:31:14 -0000 1.48
+++ term/ns-win.el 1 Sep 2009 03:18:54 -0000 1.49
@@ -723,9 +723,10 @@
(if ns-select-overlay
(setq ns-select-overlay (delete-overlay ns-select-overlay)))
(deactivate-mark)
- (goto-line (if (consp ns-input-line)
+ (goto-char (point-min))
+ (forward-line (1- (if (consp ns-input-line)
(min (car ns-input-line) (cdr ns-input-line))
- ns-input-line)))
+ ns-input-line))))
(ns-input-line
(if (not ns-select-overlay)
(overlay-put (setq ns-select-overlay (make-overlay (point-min)
Index: textmodes/bibtex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -b -r1.147 -r1.148
--- textmodes/bibtex.el 6 Apr 2009 20:43:18 -0000 1.147
+++ textmodes/bibtex.el 1 Sep 2009 03:18:55 -0000 1.148
@@ -3845,7 +3845,8 @@
(insert (format "%s:%d: %s\n" file (car err) (cdr err))))
(set-buffer-modified-p nil)
(toggle-read-only 1)
- (goto-line 3)) ; first error message
+ (goto-char (point-min))
+ (forward-line 2)) ; first error message
(display-buffer err-buf)
nil) ; return `nil' (i.e., buffer is invalid)
(message "%s is syntactically correct"
@@ -3902,7 +3903,8 @@
(dolist (err (sort error-list 'string-lessp)) (insert err))
(set-buffer-modified-p nil)
(toggle-read-only 1)
- (goto-line 3)) ; first error message
+ (goto-char (point-min))
+ (forward-line 2)) ; first error message
(display-buffer err-buf)
nil) ; return `nil' (i.e., buffer is invalid)
(message "No duplicate keys.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/flymake.el progm...,
Glenn Morris <=