Browse Source

Add term-cursor

master
10sr 5 years ago
parent
commit
40fb50abaf
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 14 additions and 0 deletions
  1. +14
    -0
      emacs.el

+ 14
- 0
emacs.el View File

@@ -348,6 +348,20 @@ found, otherwise returns nil."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; editor

;; Used from term-cursor
(defun my-cursor-type-change (&rest args)
"ARGS are discarded."
(if buffer-read-only
(setq cursor-type 'bar)
(setq cursor-type 'box)))
(add-hook 'switch-buffer-functionsp
'my-cursor-type-change)
(add-hook 'read-only-mode-hook
'my-cursor-type-change)
(when (fboundp 'global-term-cursor-mode)
(global-term-cursor-mode 1))
;; (term-cursor--eval)

(setq kill-whole-line t)
(setq scroll-conservatively 35
scroll-margin 2)


Loading…
Cancel
Save