hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 09:31:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

oops

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2015-11-09 20:28:48 +01:00
parent ace0919a0c
commit d408e21250
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
boon-keys.el
View file

@ -41,7 +41,7 @@
(define-key boon-c-map "," (lambda () (interactive) (boon-push-events "C-c C-,")))
(define-key boon-c-map "." (lambda () (interactive) (boon-push-events "C-c C-.")))
(define-key boon-c-map ">" (lambda () (interactive) (boon-push-events "C-c C->")))
(define-key boon-c-map "" (lambda () (interactive) (boon-push-events "C-c C-")))
(define-key boon-c-map "<" (lambda () (interactive) (boon-push-events "C-c C-<")))
(define-key boon-c-map "=" (lambda () (interactive) (boon-push-events "C-c C-=")))
(define-key boon-c-map "[" (lambda () (interactive) (boon-push-events "C-c [")))
(define-key boon-c-map "]" (lambda () (interactive) (boon-push-events "C-c ]")))

4
boon-main.el
View file

@ -158,9 +158,9 @@ NOTE: Do not run for every cursor."
"Return non-nil if the point is at the current line indentation."
(eq (save-excursion (back-to-indentation) (point)) (point)))
(defun boon-smarter-upward ()
(defun boon-smarter-upward (count)
"Move upward, to a line with the same level of indentation, or less."
(interactive)
(interactive "p")
(back-to-indentation)
(dotimes (number count)
(previous-logical-line)