ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 13:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Realign the file according to Elisp conventions

Browse Source
This commit is contained in:
Matus Goljer 2018-09-13 14:26:58 +02:00
parent 3f382d2c8f
commit 8172edd05a
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mc-separate-operations.el
View File

@ -75,11 +75,11 @@
(defun mc--number-to-letters (number) (defun mc--number-to-letters (number)
(let ((letter (let ((letter
(char-to-string (char-to-string
(+ (mod number 26) ?a))) (+ (mod number 26) ?a)))
(number2 (/ number 26))) (number2 (/ number 26)))
(if (> number2 0) (if (> number2 0)
(concat (mc--number-to-letters (- number2 1)) letter) (concat (mc--number-to-letters (- number2 1)) letter)
letter))) letter)))
(defun mc--insert-letter-and-increase () (defun mc--insert-letter-and-increase ()
@ -137,19 +137,14 @@ Might not behave as intended if more than one cursors are on the same line."
(lambda () (lambda ()
(interactive) (interactive)
(let ((missing-spaces (- rightest-column (current-column)))) (let ((missing-spaces (- rightest-column (current-column))))
(save-excursion (insert (make-string missing-spaces character))) (save-excursion (insert (make-string missing-spaces character)))
(forward-char missing-spaces) (forward-char missing-spaces))))))
)
))
)
)
;;;###autoload ;;;###autoload
(defun mc/vertical-align-with-space () (defun mc/vertical-align-with-space ()
"Aligns all cursors with whitespace like `mc/vertical-align' does" "Aligns all cursors with whitespace like `mc/vertical-align' does"
(interactive) (interactive)
(mc/vertical-align 32) (mc/vertical-align 32))
)
(provide 'mc-separate-operations) (provide 'mc-separate-operations)
;;; mc-separate-operations.el ends here ;;; mc-separate-operations.el ends here