aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-08-22 19:20:27 +0000
committerGlenn Morris2009-08-22 19:20:27 +0000
commitdf1c29a0a0cfc2ad8302e85b794ff3bc76126333 (patch)
treec7c3f5c3a891bd8c68762cdafda91a62f9585166
parent7537cf237a296384498a7a3b69799e08962f1461 (diff)
downloademacs-df1c29a0a0cfc2ad8302e85b794ff3bc76126333.tar.gz
emacs-df1c29a0a0cfc2ad8302e85b794ff3bc76126333.zip
(makefile-browser-toggle): Use forward-line rather than goto-line.
(makefile-browser-insert-selection): Use goto-char rather than goto-line.
-rw-r--r--lisp/progmodes/make-mode.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index fa8cf63c87a..cff6ec24bf1 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -1486,9 +1486,10 @@ definition and conveniently use this command."
1486 (let ((this-line (count-lines (point-min) (point)))) 1486 (let ((this-line (count-lines (point-min) (point))))
1487 (setq this-line (max 1 this-line)) 1487 (setq this-line (max 1 this-line))
1488 (makefile-browser-toggle-state-for-line this-line) 1488 (makefile-browser-toggle-state-for-line this-line)
1489 (goto-line this-line) 1489 (goto-char (point-min))
1490 (forward-line (1- this-line))
1490 (let ((inhibit-read-only t)) 1491 (let ((inhibit-read-only t))
1491 (beginning-of-line) 1492 (beginning-of-line) ; redundant?
1492 (if (makefile-browser-on-macro-line-p) 1493 (if (makefile-browser-on-macro-line-p)
1493 (let ((macro-name (makefile-browser-this-line-macro-name))) 1494 (let ((macro-name (makefile-browser-this-line-macro-name)))
1494 (delete-region (point) (progn (end-of-line) (point))) 1495 (delete-region (point) (progn (end-of-line) (point)))
@@ -1528,7 +1529,7 @@ large dependencies from the browser to the client buffer.
1528Insertion takes place at point." 1529Insertion takes place at point."
1529 (interactive) 1530 (interactive)
1530 (save-excursion 1531 (save-excursion
1531 (goto-line 1) 1532 (goto-char (point-min))
1532 (let ((current-line 1)) 1533 (let ((current-line 1))
1533 (while (not (eobp)) 1534 (while (not (eobp))
1534 (if (makefile-browser-get-state-for-line current-line) 1535 (if (makefile-browser-get-state-for-line current-line)