mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-25 05:52:42 -08:00
Code Issues Projects Releases Wiki Activity

lisp/simple.el (goto-line): Minor optimization

Browse source
This commit is contained in:
Stefan Monnier 2026-01-22 12:58:53 -05:00
parent 7b9d3e90ce
commit 8ccab6bf06
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -1669,12 +1669,12 @@ If at all possible, an even better solution is to use char counts
rather than line counts."
(interactive (append (goto-line-read-args) '(nil t)))
;; Switch to the desired buffer, one way or another.
(if (and buffer interactive)
(when interactive
(when buffer
(let ((window (get-buffer-window buffer)))
(if window (select-window window)
(switch-to-buffer-other-window buffer))))
;; Leave mark at previous position
(when interactive
;; Leave mark at previous position
(or (region-active-p) (push-mark)))
;; Move to the specified line number in that buffer.
(let ((pos (save-restriction
@ -1695,8 +1695,8 @@ rather than line counts."
(defun goto-line-relative (line &optional buffer interactive)
"Go to LINE, counting from line at (point-min).
The line number is relative to the accessible portion of the narrowed
buffer. The argument BUFFER is the same as in the function `goto-line'.
A non-nil INTERACTIVE argument means to push the mark."
buffer. The arguments BUFFER and INTERACTIVE are the same as in the
function `goto-line'."
(interactive (append (goto-line-read-args t) t))
(goto-line line buffer t interactive))