pen-comint.el

(require 'comint)

(define-key comint-mode-map (kbd "C-j") 'comint-accumulate)
(define-key comint-mode-map (kbd "C-a") 'comint-bol)
(define-key comint-mode-map (kbd "C-e") 'end-of-line)

(defun pen-comint-del ()
  (interactive)

  (cond
   ((derived-mode-p 'comint-mode) (let ((pos
                                         (save-excursion-and-region-reliably
                                          (comint-bol))))
                                    (if (< pos (point))
                                        (delete-backward-char 1))))
   ((and (derived-mode-p 'term-mode)
         (minor-mode-enabled term-char-mode))
    (let ((pos
           (save-excursion-and-region-reliably
            (comint-bol))))
      (if (< pos (point))
          (let ((pen-mode nil))
            (execute-kbd-macro (kbd "C-h"))))))
   ((derived-mode-p 'term-mode)
    ;; (lambda () (interactive) (term-send-raw-string "?"))
    (term-send-raw))
   (t
    (delete-backward-char 1)
    ;; (let ((pen-mode nil))
    ;;   (execute-kbd-macro (kbd "C-h")))
    )))

(define-key pen-map (kbd "DEL") 'pen-comint-del)

(provide 'pen-comint)