truncate lines setup

redguardtoo · Jun 25, 2015 · db64249 · db64249
1 parent f61860e
commit db64249
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lisp/init-misc-lazy.el b/lisp/init-misc-lazy.el
@@ -228,7 +228,6 @@ grab matched string, cssize them, and insert into kill ring"
                   "elpa"))
        (add-to-list 'grep-find-ignored-directories v))
      ))
-(add-hook 'grep-mode-hook (lambda () (toggle-truncate-lines 1)))
 
 ;; {{ support MY packages which are not included in melpa
 (autoload 'wxhelp-browse-class-or-api "wxwidgets-help" "" t)

diff --git a/lisp/init-misc.el b/lisp/init-misc.el
@@ -218,6 +218,13 @@
 
 (add-hook 'prog-mode-hook 'generic-prog-mode-hook-setup)
 
+;; {{ display long lines in truncated style (end line with $)
+(defun truncate-lines-setup ()
+  (toggle-truncate-lines 1))
+(add-hook 'grep-mode-hook 'truncate-lines-setup)
+;; (add-hook 'org-mode-hook 'truncate-lines-setup)
+;; }}
+
 ;; turns on auto-fill-mode, don't use text-mode-hook because for some
 ;; mode (org-mode for example), this will make the exported document
 ;; ugly!