jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix module and remove wrongly added code to siren-core

Browse Source
This commit is contained in:
Jim Myhrberg
2015-10-04 11:49:14 +01:00
parent 5b5f014912
commit c9553f2435
3 changed files with 2 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
core/siren-core.el
View File

@@ -18,28 +18,5 @@ Position the cursor at it's beginning, according to the current mode."
(interactive "P")
(sp-wrap-with-pair ,s)))
(defun siren-move-beginning-of-line (arg)
"Move point back to indentation of beginning of line.
Move point to the first non-whitespace character on this line.
If point is already there, move to the beginning of the line.
Effectively toggle between the first non-whitespace character and
the beginning of the line.
If ARG is not nil or 1, move forward ARG - 1 lines first. If
point reaches the beginning or end of the buffer, stop there."
(interactive "^p")
(setq arg (or arg 1))
;; Move lines first
(when (/= arg 1)
(let ((line-move-visual nil))
(forward-line (1- arg))))
(let ((orig-point (point)))
(back-to-indentation)
(when (= orig-point (point))
(move-beginning-of-line 1))))
(provide 'siren-core)