Exemplo com vários termos
(defun my-run-term ()
(interactive)
(require 'multi-term)
(command-execute 'multi-term)
(setq-default truncate-lines nil)
(if (not (boundp 'term-number))
(defvar term-number 1 "term index in the current emacs session") )
(rename-buffer (concat "Term " (int-to-string term-number)))
(setq term-number (+ 1 term-number)))
(global-set-key (kbd "C-S-t") 'my-run-term) ;; mappe sur C-T