ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2026-02-04 06:12:25 +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) (and (listp cursor-type)
(eq (car cursor-type) 'bar))))) (eq (car cursor-type) 'bar)))))
(defun mc/line-number-at-pos (&optional pos absolute) (if (>= emacs-major-version 28)
"Faster implementation of `line-number-at-pos'." (defalias 'mc/line-number-at-pos #'line-number-at-pos)
(if pos (defun mc/line-number-at-pos (&optional pos absolute)
(save-excursion "Faster implementation of `line-number-at-pos'."
(if absolute (if pos
(save-restriction (save-excursion
(widen) (if absolute
(goto-char pos) (save-restriction
(string-to-number (format-mode-line "%l"))) (widen)
(goto-char pos) (goto-char pos)
(string-to-number (format-mode-line "%l")))) (string-to-number (format-mode-line "%l")))
(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) (defun mc/make-cursor-overlay-at-eol (pos)
"Create overlay to look like cursor at end of line." "Create overlay to look like cursor at end of line."