Emacs: Enable keybinding for set-goal-column.
This commit is contained in:
parent
ca57f0a092
commit
1dac11b5e1
|
@ -1,6 +1,6 @@
|
||||||
;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*-
|
;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Time-stamp: <2020-03-31T16:14:46+0200>
|
;; Time-stamp: <2020-04-17T16:43:34+0200>
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;; * Setup mouse & keyboard behaviour.
|
;; * Setup mouse & keyboard behaviour.
|
||||||
|
@ -45,7 +45,9 @@ With ARG, do it that many times."
|
||||||
"Delete characters backward until encountering the end of a word.
|
"Delete characters backward until encountering the end of a word.
|
||||||
With ARG, do it that many times."
|
With ARG, do it that many times."
|
||||||
(interactive "p")
|
(interactive "p")
|
||||||
(my/delete-word (- arg))))
|
(my/delete-word (- arg)))
|
||||||
|
;; Enable keybindings.
|
||||||
|
(put 'set-goal-column 'disabled nil))
|
||||||
:bind (("C-S-<delete>" . fixup-whitespace) ; Reduce whitespace around cursor.
|
:bind (("C-S-<delete>" . fixup-whitespace) ; Reduce whitespace around cursor.
|
||||||
("M-<down>" . scroll-up-line) ; Scroll without moving the cursor.
|
("M-<down>" . scroll-up-line) ; Scroll without moving the cursor.
|
||||||
("M-<up>" . scroll-down-line)
|
("M-<up>" . scroll-down-line)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user