Aggiornato emacs_linux.

linum senza whitespace.

diff --git a/tools/emacs_linux b/tools/emacs_linux
index 1264599f62aa6b62903fccb9dc410febdd6781b1..85036d9d035d25d5bc92a34216d508deb1bd7813 100644 (file)
--- a/tools/emacs_linux
+++ b/tools/emacs_linux
@@ -22,6 +22,23 @@
 
 
 (global-linum-mode 1) ; display line numbers in margin
+
+(defvar my-linum-format-string "%4d")
+
+(add-hook 'linum-before-numbering-hook 'my-linum-get-format-string)
+
+(defun my-linum-get-format-string ()
+  (let* ((width (length (number-to-string
+                         (count-lines (point-min) (point-max)))))
+         (format (concat "%" (number-to-string width) "d\u2502")))
+    (setq my-linum-format-string format)))
+
+(setq linum-format 'my-linum-format)
+
+(defun my-linum-format (line-number)
+  (propertize (replace-regexp-in-string " " "\u2002" (format my-linum-format-string line-number)) 'face 'linum))
+
+
 (column-number-mode 1)
 ;(setq make-backup-files nil) ; stop creating backup~ files
 (setq version-control t)