496 (message "term")

   496 (message "term")

   497 

   497 

   498 (setq term-buffer-maximum-size (lsh 1 14))

   498 (setq term-buffer-maximum-size (lsh 1 14))

   499 

   499 

   500 (my--eval-after-load term

   500 (my--eval-after-load term

   501   (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))

   503   (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))

   502   (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))

   504   (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))

   503   (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)

   505   (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)

   504   (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)

   506   (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)

   505   (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))

   507   (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))

   512   (define-key term-raw-map [M-left] 'my-term-send-m-left) )

   514   (define-key term-raw-map [M-left] 'my-term-send-m-left) )

   513 

   515 

   514 (defun my-term-mode-hook ()

   516 (defun my-term-mode-hook ()

   515   (goto-address-mode 1))

   517   (goto-address-mode 1))

   516 (add-hook 'term-mode-hook #'my-term-mode-hook)

   518 (add-hook 'term-mode-hook #'my-term-mode-hook)

   517 

   521 

   518 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   522 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   519 (message "proced")

   523 (message "proced")

   520 

   524 

   521 (setq-default proced-format 'medium)

   525 (setq-default proced-format 'medium)