Skip to content
This repository
Browse code

Bidirectional slurp.

  • Loading branch information...
commit 72fdb39bde671b6ebc02eed47a8a5c799234430a 1 parent a359f69
Phil Hagelberg authored

Showing 2 changed files with 6 additions and 4 deletions. Show diff stats Hide diff stats

  1. +3 1 modules/starter-kit-lisp.el
  2. +3 3 starter-kit.el
4 modules/starter-kit-lisp.el
@@ -73,7 +73,9 @@
73 73
74 74 (eval-after-load 'paredit
75 75 ;; need a binding that works in the terminal
76   - '(define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp))
  76 + '(progn
  77 + (define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp)
  78 + (define-key paredit-mode-map (kbd "M-(") 'paredit-backward-slurp-sexp)))
77 79
78 80 (dolist (mode '(scheme emacs-lisp lisp clojure clojurescript))
79 81 (when (> (display-color-cells) 8)
6 starter-kit.el
@@ -56,7 +56,7 @@
56 56 (global-set-key (kbd "M-x") 'smex)
57 57
58 58 (defun esk-eval-after-init (form)
59   - "Add `(lambda () FORM)' to `after-init-hook'.
  59 + "Add `(lambda () FORM)' to `after-init-hook'.
60 60
61 61 If Emacs has already finished initialization, also eval FORM immediately."
62 62 (let ((func (list 'lambda nil form)))
@@ -64,8 +64,8 @@
64 64 (when after-init-time
65 65 (eval form))))
66 66
67   - (esk-eval-after-init
68   - '(progn
  67 + (esk-eval-after-init
  68 + '(progn
69 69 (when (file-exists-p esk-system-config) (load esk-system-config))
70 70 (when (file-exists-p esk-user-config) (load esk-user-config))
71 71 (when (file-exists-p esk-user-dir)

0 comments on commit 72fdb39

Please sign in to comment.
Something went wrong with that request. Please try again.