ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2026-02-04 14:22:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use built-in line-number-at-pos in Emacs >= 28 (#373)

Browse Source
This commit is contained in:
Renato Ferreira
2026-01-08 06:09:20 -03:00
committed by GitHub
parent 9017f3be6b
commit 2cd802b1f7
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
multiple-cursors-core.el
View File

@@ -123,18 +123,20 @@ rendered or shift text."
(and (listp cursor-type)
(eq (car cursor-type) 'bar)))))
(defun mc/line-number-at-pos (&optional pos absolute)
"Faster implementation of `line-number-at-pos'."
(if pos
(save-excursion
(if absolute
(save-restriction
(widen)
(goto-char pos)
(string-to-number (format-mode-line "%l")))
(goto-char pos)
(string-to-number (format-mode-line "%l"))))
(string-to-number (format-mode-line "%l"))))
(if (>= emacs-major-version 28)
(defalias 'mc/line-number-at-pos #'line-number-at-pos)
(defun mc/line-number-at-pos (&optional pos absolute)
"Faster implementation of `line-number-at-pos'."
(if pos
(save-excursion
(if absolute
(save-restriction
(widen)
(goto-char pos)
(string-to-number (format-mode-line "%l")))
(goto-char pos)
(string-to-number (format-mode-line "%l"))))
(string-to-number (format-mode-line "%l")))))
(defun mc/make-cursor-overlay-at-eol (pos)
"Create overlay to look like cursor at end of line."