diff options
| author | Glenn Morris | 2009-08-22 19:20:27 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-08-22 19:20:27 +0000 |
| commit | df1c29a0a0cfc2ad8302e85b794ff3bc76126333 (patch) | |
| tree | c7c3f5c3a891bd8c68762cdafda91a62f9585166 | |
| parent | 7537cf237a296384498a7a3b69799e08962f1461 (diff) | |
| download | emacs-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.el | 7 |
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. | |||
| 1528 | Insertion takes place at point." | 1529 | Insertion 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) |