(defun delete-char-or-kill-terminal-buffer (N &optional killflag)
  (interactive "pnP")
  (if (string= (buffer-name) "*terminal*")
  (kill-buffer (current-buffer))
(delete-char N killflag)))
(global-set-key (kbd "C-d") 'delete-char-or-kill-terminal-buffer)