Sfoglia il codice sorgente

Add term-cursor

master
10sr 5 anni fa
parent
commit
40fb50abaf
Firmato da: 10sr ID Chiave GPG: 7BEC428194130EB2
1 ha cambiato i file con 14 aggiunte e 0 eliminazioni
  1. +14
    -0
      emacs.el

+ 14
- 0
emacs.el Vedi 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)


Caricamento…
Annulla
Salva