show line numbers when jumping to line

1 files changed, 15 insertions, 0 deletions

diff --git a/init.el b/init.el
index 2b8d85c..40654bf 100644
--- a/init.el
+++ b/init.el
@@ -328,3 +328,18 @@
 (page-break-lines-mode 1)
 (global-set-key (kbd "<C-prior>") 'backward-page)
 (global-set-key (kbd "<C-next>") 'forward-page)
+
+
+;; http://whattheemacsd.com/key-bindings.el-01.html#disqus_thread
+(global-set-key [remap goto-line] 'my/goto-line-with-feedback)
+(defun my/goto-line-with-feedback ()
+  "Show line numbers temporarily, while prompting for the line number input"
+  (interactive)
+  (let ((line-numbers-off-p (not linum-mode)))
+    (unwind-protect
+        (progn
+          (when line-numbers-off-p
+            (linum-mode 1))
+          (call-interactively 'goto-line))
+      (when line-numbers-off-p
+        (linum-mode -1)))))