diff options
Diffstat (limited to 'lisp/init-my-stuff.el')
| -rw-r--r-- | lisp/init-my-stuff.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/init-my-stuff.el b/lisp/init-my-stuff.el index e42f4bc..6b82e22 100644 --- a/lisp/init-my-stuff.el +++ b/lisp/init-my-stuff.el @@ -93,3 +93,18 @@ Position the cursor at its beginning, according to the current mode." (loop for i from 1 to arg do (forward-sentence 1) (insert " ")))) + +;; by Artur Malabarba, on emacs-devel +(defun my/endless/comment-line (n) + "Comment or uncomment current line and leave point after it. +With positive prefix, apply to N lines including current one. +With negative prefix, apply to -N lines above." + (interactive "p") + (let ((range (list (line-beginning-position) + (goto-char (line-end-position n))))) + (comment-or-uncomment-region + (apply #'min range) + (apply #'max range))) + (forward-line 1) + (back-to-indentation)) +(global-set-key (kbd "C-c C-;") 'my/endless/comment-line) |