11 lines
319 B
EmacsLisp
11 lines
319 B
EmacsLisp
(provide 'thoom-editing)
|
|
|
|
(defun thoom/move-to-beginnings ()
|
|
"Move between the two beginnings of a line: The very beginning, and the first non-whitespace character."
|
|
(interactive "^")
|
|
(if (bolp)
|
|
(back-to-indentation)
|
|
(move-beginning-of-line 1)))
|
|
|
|
(global-set-key (kbd "C-a") #'thoom/move-to-beginnings)
|