Pārlūkot izejas kodu

Add term-cursor

master
10sr pirms 5 gadiem
vecāks
revīzija
40fb50abaf
Parakstījis: 10sr GPG atslēgas ID: 7BEC428194130EB2
1 mainītis faili ar 14 papildinājumiem un 0 dzēšanām
  1. +14
    -0
      emacs.el

+ 14
- 0
emacs.el Parādīt failu

@@ -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)


Notiek ielāde…
Atcelt
Saglabāt