(setq circul-uninteresting-buffer-regexp
      "\\`\\*\\|\\` \\|.+\\.log\\'\\|bbdb\\|TAGS")
(setq circul-uninteresting-buffer-exception-regexp 
      "\\`\\*coq\\|\\`\\*cvs\\*")

; circuler en ignorant les buffers inintéressants (commençants par *,
; configurable):
(global-set-key [(control kp-enter)]  'circul-bury-buffer)
(global-set-key [(control kp-add)]  'circul-unbury-buffer)






; assignation de caractère au buffer, et rappel d'un buffer numerote
; de 0 a 9 assignation: 

;  C-kp0...Ckp-9 assigne un buffer
;  C-S-kp0...Ckp-S-9 assigne une position dans un buffer
;  kp0...kp9 rappelle le buffer ou la position
;  en principe il ne peut pas y avoir un caractère associé aux deux à
;  la fois si on n'utilise que les deux fonctions circul-set

(global-set-key [(control kp-insert)] 
  '(lambda () (interactive) (circul-set-current-buf ?0)))
(global-set-key [(control kp-0)] 
  '(lambda () (interactive) (circul-set-current-reg ?0)))
;rappel: kp1
(global-set-key [(kp-insert)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?0)))


(global-set-key [(control kp-end)] 
  '(lambda () (interactive) (circul-set-current-buf ?1)))
(global-set-key [(control kp-1)] 
  '(lambda () (interactive) (circul-set-current-reg ?1)))
;rappel: kp1
(global-set-key [(kp-end)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?1)))


(global-set-key [(control kp-down)] 
  '(lambda () (interactive) (circul-set-current-buf ?2)))
(global-set-key [(control kp-2)] 
  '(lambda () (interactive) (circul-set-current-reg ?2)))
;rappel: kp1
(global-set-key [(kp-down)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?2)))


(global-set-key [(control kp-next)] 
  '(lambda () (interactive) (circul-set-current-buf ?3)))
(global-set-key [(control kp-3)] 
  '(lambda () (interactive) (circul-set-current-reg ?3)))
;rappel: kp1
(global-set-key [(kp-next)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?3)))


(global-set-key [(control kp-left)] 
  '(lambda () (interactive) (circul-set-current-buf ?4)))
(global-set-key [(control kp-4)] 
  '(lambda () (interactive) (circul-set-current-reg ?4)))
;rappel: kp1
(global-set-key [(kp-left)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?4)))


(global-set-key [(control kp-begin)] 
  '(lambda () (interactive) (circul-set-current-buf ?5)))
(global-set-key [(control kp-5)] 
  '(lambda () (interactive) (circul-set-current-reg ?5)))
;rappel: kp1
(global-set-key [(kp-begin)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?5)))


(global-set-key [(control kp-right)] 
  '(lambda () (interactive) (circul-set-current-buf ?6)))
(global-set-key [(control kp-6)] 
  '(lambda () (interactive) (circul-set-current-reg ?6)))
;rappel: kp1
(global-set-key [(kp-right)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?6)))


(global-set-key [(control kp-home)] 
  '(lambda () (interactive) (circul-set-current-buf ?7)))
(global-set-key [(control kp-7)] 
  '(lambda () (interactive) (circul-set-current-reg ?7)))
;rappel: kp1
(global-set-key [(kp-home)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?7)))


(global-set-key [(control kp-up)] 
  '(lambda () (interactive) (circul-set-current-buf ?8)))
(global-set-key [(control kp-8)] 
  '(lambda () (interactive) (circul-set-current-reg ?8)))
;rappel: kp1
(global-set-key [(kp-up)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?8)))


(global-set-key [(control kp-prior)] 
  '(lambda () (interactive) (circul-set-current-buf ?9)))
(global-set-key [(control kp-9)] 
  '(lambda () (interactive) (circul-set-current-reg ?9)))
;rappel: kp1
(global-set-key [(kp-prior)] 
  '(lambda () (interactive) (circul-jump-to-register-or-buffer ?9)))



(provide 'circul-keys-pc)