Commit df1c29a0 authored by Glenn Morris's avatar Glenn Morris
Browse files

(makefile-browser-toggle): Use forward-line rather than goto-line.

(makefile-browser-insert-selection): Use goto-char rather than goto-line.
parent 7537cf23
...@@ -1486,9 +1486,10 @@ definition and conveniently use this command." ...@@ -1486,9 +1486,10 @@ definition and conveniently use this command."
(let ((this-line (count-lines (point-min) (point)))) (let ((this-line (count-lines (point-min) (point))))
(setq this-line (max 1 this-line)) (setq this-line (max 1 this-line))
(makefile-browser-toggle-state-for-line 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)) (let ((inhibit-read-only t))
(beginning-of-line) (beginning-of-line) ; redundant?
(if (makefile-browser-on-macro-line-p) (if (makefile-browser-on-macro-line-p)
(let ((macro-name (makefile-browser-this-line-macro-name))) (let ((macro-name (makefile-browser-this-line-macro-name)))
(delete-region (point) (progn (end-of-line) (point))) (delete-region (point) (progn (end-of-line) (point)))
...@@ -1528,7 +1529,7 @@ large dependencies from the browser to the client buffer. ...@@ -1528,7 +1529,7 @@ large dependencies from the browser to the client buffer.
Insertion takes place at point." Insertion takes place at point."
(interactive) (interactive)
(save-excursion (save-excursion
(goto-line 1) (goto-char (point-min))
(let ((current-line 1)) (let ((current-line 1))
(while (not (eobp)) (while (not (eobp))
(if (makefile-browser-get-state-for-line current-line) (if (makefile-browser-get-state-for-line current-line)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment