[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes make-mode.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes make-mode.el |
Date: |
Sat, 22 Aug 2009 19:20:28 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/22 19:20:27
Modified files:
lisp/progmodes : make-mode.el
Log message:
(makefile-browser-toggle): Use forward-line rather than goto-line.
(makefile-browser-insert-selection): Use goto-char rather than
goto-line.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/make-mode.el?cvsroot=emacs&r1=1.129&r2=1.130
Patches:
Index: make-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/make-mode.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- make-mode.el 5 Jan 2009 03:23:44 -0000 1.129
+++ make-mode.el 22 Aug 2009 19:20:27 -0000 1.130
@@ -1486,9 +1486,10 @@
(let ((this-line (count-lines (point-min) (point))))
(setq this-line (max 1 this-line))
(makefile-browser-toggle-state-for-line this-line)
- (goto-line this-line)
+ (goto-char (point-min))
+ (forward-line (1- this-line))
(let ((inhibit-read-only t))
- (beginning-of-line)
+ (beginning-of-line) ; redundant?
(if (makefile-browser-on-macro-line-p)
(let ((macro-name (makefile-browser-this-line-macro-name)))
(delete-region (point) (progn (end-of-line) (point)))
@@ -1528,7 +1529,7 @@
Insertion takes place at point."
(interactive)
(save-excursion
- (goto-line 1)
+ (goto-char (point-min))
(let ((current-line 1))
(while (not (eobp))
(if (makefile-browser-get-state-for-line current-line)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/progmodes make-mode.el,
Glenn Morris <=