Browse Source

[Fix #433] Disable problematic binding M-[

custom
Bozhidar Batsov 12 years ago
parent
commit
150ac9e510
  1. 3
      core/prelude-editor.el
  2. 3
      modules/prelude-lisp.el

3
core/prelude-editor.el

@ -111,7 +111,8 @@ Will only occur if prelude-whitespace is also enabled."
(show-smartparens-global-mode +1) (show-smartparens-global-mode +1)
(define-key prog-mode-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "("))) (define-key prog-mode-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "(")))
(define-key prog-mode-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
;; FIXME: pick terminal friendly binding
;; (define-key prog-mode-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
(define-key prog-mode-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\""))) (define-key prog-mode-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\"")))
;; disable annoying blink-matching-paren ;; disable annoying blink-matching-paren

3
modules/prelude-lisp.el

@ -40,7 +40,8 @@
;; wrap keybindings ;; wrap keybindings
(define-key lisp-mode-shared-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "("))) (define-key lisp-mode-shared-map (kbd "M-(") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "(")))
(define-key lisp-mode-shared-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
;; FIXME: Pick terminal-friendly binding.
;;(define-key lisp-mode-shared-map (kbd "M-[") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "[")))
(define-key lisp-mode-shared-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\""))) (define-key lisp-mode-shared-map (kbd "M-\"") (lambda (&optional arg) (interactive "P") (sp-wrap-with-pair "\"")))
;; a great lisp coding hook ;; a great lisp coding hook

Loading…
Cancel
Save