From 49a57dc4e9024886bd2ab0b55fe58754fe93105d Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Wed, 8 Feb 2012 00:21:11 +0900 Subject: [PATCH] disable hl-mode in term-mode, fix bug --- emacs.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/emacs.el b/emacs.el index 1002291..94e4cc5 100644 --- a/emacs.el +++ b/emacs.el @@ -833,12 +833,15 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." ;; (dolist (key '("" "" "" "")) ;; (define-key term-raw-map (kbd key) 'term-send-raw)) ;; (define-key term-raw-map "\C-d" 'delete-char) - (set (make-variable-buffer-local 'scroll-margin) 0) - ;; (set (make-variable-buffer-local 'cua-enable-cua-keys) nil) + (set (make-local-variable 'scroll-margin) 0) + ;; (set (make-local-variable 'cua-enable-cua-keys) nil) ;; (cua-mode 0) ;; (and cua-mode ;; (local-unset-key (kbd "C-c"))) ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob) + (set (make-local-variable 'hl-line-range-function) + (lambda () + '(0 0))) )) ;; (add-hook 'term-exec-hook 'forward-char) @@ -861,7 +864,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (setq bs-default-configuration "this-frame") ;; (and bs--show-all ;; (call-interactively 'bs-toggle-show-all)) - (set (make-variable-buffer-local 'scroll-margin) 0) + (set (make-local-variable 'scroll-margin) 0) )) (defun buffer-same-dir-p (bf) @@ -1520,7 +1523,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer." ; (eshell/alias "g" "git $*") (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer) (apply 'eshell/addpath exec-path) - (set (make-variable-buffer-local 'scroll-margin) 0) + (set (make-local-variable 'scroll-margin) 0) ;; (eshell/export "GIT_PAGER=") ;; (eshell/export "GIT_EDITOR=") (eshell/export "LC_MESSAGES=C")