Pb avec calendar

Bonjour à tous,

Bien cela fait maintenant qq temps que j'essaye de franciser mon
calendrier et que j'y arrive pas ou pas complétement. De plus mon
niveau en Lisp est proche du néant et je ne comprend pas certaines
erreurs.
J'utilise une version Emacs 21.1.4 (Debian testing).
Sinon, j'ai consulté le news group mais les info dispo ne sont plus
bonnes :
http://groups.google.fr/group/fr.co...read/thre=
ad/ed077968989c393f/1dfc0718c786aa70?q=calendrier&rnum=10#1dfc0718c786a=
a70
http://groups.google.fr/group/fr.co...read/thre=
ad/3a933e465fcb18eb/8fc7ab5af7cd0cfd?q=calendrier&rnum=7#8fc7ab5af7cd0c=
fd


Bon, voici la liste de mes pb :

Probleme n°1

1) Je n'arrive pas à virer les vacances américaines pourtant j'ai
cela :
; on efface les jours feries non français
(setq general-holidays nil)
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq oriental-holidays nil)
(setq solar-holidays nil)
; on ajoute les jours de vacances franchouillards
(setq other-holidays
'((holiday-fixed 1 1 "Nouvel an")
(holiday-fixed 5 1 "Fête du travail")
(holiday-fixed 5 8 "Victoire 1945")
;(feries-paques)
(holiday-fixed 7 14 "Fête nationale")
(holiday-fixed 8 15 "Assomption")
(holiday-fixed 11 11 "Armistice 1918")
(holiday-fixed 11 1 "Toussaint")
(holiday-fixed 12 25 "Noël")
;; fetes a date variable
(holiday-float 5 0 2 "Fête des mères")
(holiday-float 6 0 3 "Fête des pères")
))


Pourtant, dans calendrier, si je vais sur le 11 novembre, j'ai droit à
un Veteran's day comme description !


Probléme n°2
2) Pourquoi, pour avoir un format de date européen partout, il faut
que je fasse :
; on utilise le format européen (Jour Mois Année) et non américain
(M J A)
(european-calendar) ; apparement cela marche mieux comme cela
; (setq european-calendar-style t)

car le setq ne semble pas fonctionner, pourquoi ?

Problême n°3
3)
Pour franciser les dates, pourquoi faut il que je passe par un setq et
non par un defvar (qui ne marche pas) dans la ligne suivante ?

Par exemple :

; Traduction des jours et mois apparaissant dans le calendrier
; j'utilisais avant defvar mais cela ne marche plus pourquoi ?
(setq calendar-day-abbrev-array
["dim" "lun" "mar" "mer" "jeu" "ven" "sam"])

Problême n°4
4)
J'avais récupéré cette fonction, mais displayed year n'est plus une
variable reconnue dans calendar et je n'ai pas réussi à trouver la
variable qui renvoit maintenant l'année actuelle, des idées ?
un "apropos-variable year" ne m'a pas donné grand chose !

;; **********************
;; Calculer les jours de fêtes
;; **********************
;; Trouvé chez Philippe Dumont
;; http://pro.dumontweb.com/pages/emac...drier.html


;; Gestion des fêtes religieuses
;; **********************
(defun feries-paques ()
"Liste des jours de vacances relatifs a paques."
(let* ((century (1+ (/ displayed-year 100)))
(shifted-epact ;; Age of moon for April 5
(% (+ 14 (* 11 (% displayed-year 19));; by Nicaean rule
(- ;; corrected for the Gregorian century rule
(/ (* 3 century) 4))
(/ ;; corrected for Metonic cycle inaccuracy.
(+ 5 (* 8 century)) 25)
(* 30 century));; Keeps value positive.
30))
(adjusted-epact ;; Adjust for 29.5 day month.
(if (or (= shifted-epact 0)
(and (= shifted-epact 1) (< 10 (% displayed-year 19))))
(1+ shifted-epact)
shifted-epact))
(paschal-moon ;; Day after the full moon on or after March 21.
(- (calendar-absolute-from-gregorian (list 4 19 displayed-year))
adjusted-epact))
(abs-easter (calendar-dayname-on-or-before 0 (+ paschal-moon 7)))
(day-list
(list
(list (calendar-gregorian-from-absolute abs-easter)
"Pâques")
(list (calendar-gregorian-from-absolute (+ abs-easter 1))
"Lundi de Pâques")
(list (calendar-gregorian-from-absolute (+ abs-easter 39))
"Jeudi de l'ascension")
(list (calendar-gregorian-from-absolute (+ abs-easter 49))
"Pentecôte")
(list (calendar-gregorian-from-absolute (+ abs-easter 50))
"Lundi de Pentecôte")))
(output-list
(filter-visible-calendar-holidays day-list)))
output-list))


Problême n°5
5)
Bon, c'est pas spécifique à calendar, c'est juste peut être un pb de
lisp, si une bonne ame veut bien m'aider :

Pourquoi cette commande ne fonctionne pas ?
(setq diary-file (concat BLD-repertoire-cfg "/BLD-diary"))
alors que celle-ci, oui
(setq diary-file "/home/BlueDian/personnel/plans/diary")

et que BLD-repertoire-cfg a été défini par un :
(defconst BLD-repertoire-emacs (expand-file-name "~/.dir-emacs"))
(defconst BLD-repertoire-cfg (concat BLD-repertoire-emacs "/cfg"))


Bon, dsl c'etait un peu long !

BlueDian