github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: doom-column -> doom-modeline-column.

Browse source
This commit is contained in:
Vincent Zhang 2018-06-27 01:34:08 +08:00
parent c712afc625
commit 2c7c908aa0
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doom-modeline.el
View file

@ -696,6 +696,7 @@ icons."
;; ;;
(defsubst doom-modeline-column (pos) (defsubst doom-modeline-column (pos)
"Get the column of the position `POS'."
(save-excursion (goto-char pos) (save-excursion (goto-char pos)
(current-column))) (current-column)))
@ -715,8 +716,8 @@ lines are selected, or the NxM dimensions of a block selection."
(let ((lines (count-lines beg (min end (point-max))))) (let ((lines (count-lines beg (min end (point-max)))))
(concat (cond ((or (bound-and-true-p rectangle-mark-mode) (concat (cond ((or (bound-and-true-p rectangle-mark-mode)
(eq 'block evil-visual-selection)) (eq 'block evil-visual-selection))
(let ((cols (abs (- (doom-column end) (let ((cols (abs (- (doom-modeline-column end)
(doom-column beg))))) (doom-modeline-column beg)))))
(format "%dx%dB" lines cols))) (format "%dx%dB" lines cols)))
((eq evil-visual-selection 'line) ((eq evil-visual-selection 'line)
(format "%dL" lines)) (format "%dL" lines))