emacs: Added some functions from @magnars, replaced standard goto-line with his version

2013-08-05 11:54:38 +02:00 · 2013-08-05 11:54:38 +02:00 · 46b80c00fd
commit 46b80c00fd
parent 006043d82e
4 changed files with 70 additions and 3 deletions
--- a/emacs.d/init-settings.el
+++ b/emacs.d/init-settings.el
@ -111,6 +111,16 @@ comment as a filename."
 ;; Not the real deal without this ...
 (set-variable 'nyan-wavy-trail t)

+(setq linum-format (lambda (line)
+                     (propertize
+                      (format (concat " %"
+                                      (number-to-string
+                                       (length (number-to-string
+                                                (line-number-at-pos (point-max)))))
+                                      "d ")
+                              line)
+                      'face 'linum)))
+
 ;; Hiding JOIN, QUIT, PART
 (setq erc-hide-list '("JOIN" "PART" "QUIT"))