emacs figé

Bonjour,

depuis quelques mois j'ai emacs qui fige au bout d'un moment aléatoire.
Je suis obligé de faire un kill -9 sur son process.

Un strace sur le pid m'indique les infos suivantes :
--- SIGALRM (Alarm clock) @ 0 (0) ---
gettimeofday({1134321520, 349336}, NULL) = 0
gettimeofday({1134321520, 349357}, NULL) = 0
setitimer(ITIMER_REAL, {it_interval={0, 0}, it_value={0, 1000}}, NULL) = 0
sigreturn() = ? (mask now [IO])
futex(0xb7c72900, FUTEX_WAIT, 2, NULL) = -1 EINTR (Interrupted system call)

Ceci en boucle...

Une recherche sur google m'indique que d'autres ont eu le problème mais
je n'ai pas trouvé la solution.
J'utilise emacs 21.4a-1ubuntu1

Voici mon .emacs

(server-start)
(require 'color-theme)
(require 'mmm-mode)
(require 'ibuffer)
(require 'tramp)
;; (require 'psvn)
;; (require 'vc-svn)
(color-theme-subtle-hacker)

(global-font-lock-mode t)
(setq user-mail-address "fred@fdsfdsfds.org")
(setq explicit-shell-file-name "/bin/bash")
(setq gnus-secondary-select-methods '((nnml "mails")))
(tool-bar-mode 0)
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(canlock-password "fdsgfsdgdfdfsdfsdfdsfsdfdsfdsfsd")
'(case-fold-search t)
'(current-language-environment "Latin-1")
'(default-input-method "latin-1-prefix")
'(ecb-eshell-auto-activate t)
'(ecb-eshell-enlarge-when-eshell nil)
'(ecb-layout-window-sizes nil)
'(ecb-options-version "2.27")
'(ecb-source-path (quote ("./dev")))
'(global-font-lock-mode t nil (font-lock))
'(uniquify-buffer-name-style (quote forward) nil (uniquify)))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)

;; Pour que la couleur marche en mode shell.
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

(setq fill-column 79)

;; Definit firefox comme brouteur web, pour suivre les liens
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "firefox")


(set-input-mode nil nil 1)

;; calendrier

(setq european-calendar-style 't)
(setq calendar-week-start-day 1)
;; (setq calendar-day-name-array
;; ["Dimanche" "Lundi" "Mardi" "Mercredi" "Jeudi" "Vendredi" "Samedi"])
;; (setq calendar-month-name-array
;; ["Janvier" "F\uffffvrier" "Mars" "Avril" "Mai" "Juin" "Juillet"
;; "Ao\ufffft" "Septembre" "Octobre" "Novembre" "D\uffffcembre"])

;;

;; (setq default-file-name-coding-system "UTF-8")

;; (turn-on-follow-mouse)

(setq text-mode-hook 'turn-on-auto-fill)

(global-set-key "\C-x\C-b" 'ibuffer-and-update)


(define-key global-map (read-kbd-macro "M-SPC") 'hippie-expand)
(setq hippie-expand-try-functions-list
'( try-expand-list
try-expand-dabbrev
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file-name-partially
try-complete-file-name
try-expand-list
try-complete-lisp-symbol-partially
try-complete-lisp-symbol
try-expand-whole-kill
)
)


;; egtk.el mode
;; (autoload 'egtk-mode "egtk" "mode for editing GTK+ code")
;; (add-hook 'c-mode-hook 'egtk-mode)

;;; Mouse wheel
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)

(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)

(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)

(setq tramp-default-method "ssh")
(setq-default transient-mark-mode t)

(global-set-key "\C-cg" 'goto-line)