summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-editing.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index 0d5646d..acd01c8 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -150,6 +150,18 @@ and '<<<' mark the bounds of the narrowed region.
(define-key km/editing-map "i" 'indent-relative)
+;; From http://whattheemacsd.com/key-bindings.el-01.html
+(defun km/goto-line-with-feedback ()
+ "Show line numbers temporarily, while prompting for the line number input"
+ (interactive)
+ (unwind-protect
+ (progn
+ (linum-mode 1)
+ (call-interactively 'goto-line))
+ (linum-mode -1)))
+
+(global-set-key [remap goto-line] 'km/goto-line-with-feedback)
+
;; Kill map
(define-prefix-command 'km/kill-map)
(global-set-key (kbd "C-c k") 'km/kill-map)