Commit 96afe87c authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added coding:utf-8

parent 76ecaed5
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-advices.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: 7090.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-banks.el
;;;;LANGUAGE: emacs lisp
......@@ -133,8 +134,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-table
;; ---------------------------------------------------------------------
......@@ -195,8 +196,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
));;when
(setq data (cdr data))
);;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde)
);;let
(message "Not found!"))
......@@ -258,8 +259,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-old
;; ------------------------------------------------------------------------
......@@ -310,8 +311,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-xls-eur
;; ---------------------------------------------------------------------
......@@ -362,8 +363,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(replace-match lin nil nil)
(printf "%s\n" lin)
));;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
));;from-patagon-table
......@@ -421,8 +422,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-table
(defun from-evolvebank-xls-esp ()
......@@ -471,8 +472,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-xls-esp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-banks.el
;;;;LANGUAGE: emacs lisp
......@@ -169,8 +170,8 @@ Use Mozilla, and copy-and-paste to emacs."
(t ":GASTO-CORRIENTE")))
journal)
(insert lin))))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n\n\n" solde)
(dolist (entry (reverse journal))
(printf "(%s %s %s %s\n %s %s\n %s\n %s)\n\n"
......@@ -234,8 +235,8 @@ Use Mozilla, and copy-and-paste to emacs."
debits (append debits (list deb))
solde sol)
(insert lin))))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde)));;from-cajamar-2003-mozilla
......@@ -301,8 +302,8 @@ See: from-cajamar-mozilla"
(setq debits (nconc debits deb))
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "(setq movements '%S)\n" movements))
));;from-cajamar-table
......@@ -359,8 +360,8 @@ See: from-cajamar-mozilla"
(setq solde sol)
(insert lin)))
(setq data (cdr data)))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde))
(message "Nothing found! (Need from 'Fecha' to 'NO HAY MAS MOVIMIENTOS').")))
......@@ -404,8 +405,8 @@ See: from-cajamar-mozilla"
(setq debits (append debits (list deb)))
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-old
......@@ -454,8 +455,8 @@ See: from-cajamar-mozilla"
(replace-match lin nil nil)
(printf "%s\n" lin)
)) ;;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
));;from-patagon-table
......@@ -512,8 +513,8 @@ See: from-cajamar-mozilla"
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;;
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-table
;;;
;;;
......@@ -563,8 +564,8 @@ See: from-cajamar-mozilla"
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;;
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-xls-esp
;;;
;;;
......@@ -693,8 +694,8 @@ See: from-cajamar-mozilla"
;;; (setq debits (append debits (list deb)))
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-xls-eur
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-blink.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-bourse.el
;;;;LANGUAGE: emacs lisp
......@@ -180,7 +181,7 @@ for each devise [See: pjb-euro].")
(defmethod amount-at-devise ((self DeviseAccount) devise)
"Retourne le montant de la devise indiquée dans le devise-account.
"Retourne le montant de la devise indiquée dans le devise-account.
Voir account-valuation pour la valeur totale du devise-account."
(cdr (assoc devise (amounts self)))
);;amount-at-devise
......@@ -191,8 +192,8 @@ Voir account-valuation pour la valeur totale du devise-account."
);;devises
(defmethod account-valuation ((self DeviseAccount) devise)
"Retourne la valeur du devise-account dans la devise indiquée.
Utilise pjb-euro, et nécessite pour les devises flottantes, des cours à jour."
"Retourne la valeur du devise-account dans la devise indiquée.
Utilise pjb-euro, et nécessite pour les devises flottantes, des cours à jour."
(let ((total-euro 0.0))
(mapc (lambda (a)
(setq total-euro (+ total-euro
......@@ -203,7 +204,7 @@ Utilise pjb-euro, et n
(defmethod account-add ((self DeviseAccount) devise montant)
"Additionne au devise-account le montant indiqué dans la devise indiquée.
"Additionne au devise-account le montant indiqué dans la devise indiquée.
Pour additionner deux comptes, utiliser account-add-account.
Return: self."
(let ((ligne (assoc devise (amounts self))))
......@@ -215,7 +216,7 @@ Return: self."
(defmethod account-sub ((self DeviseAccount) devise montant)
"Soustrait du devise-account le montant indiqué dans la devise indiquée.
"Soustrait du devise-account le montant indiqué dans la devise indiquée.
Pour soustraire deux comptes, utiliser account-sub-account.
Return: self."
(let ((ligne (assoc devise (amounts self))))
......@@ -262,8 +263,8 @@ RETURN: self"
(defmethod account-operation-account ((self DeviseAccount)
(other DeviseAccount) op-lambda)
"Retourne un devise-account résultat de l'opération op-lambda sur
les paires de montants de même devise, et ajoute les montants-devise
"Retourne un devise-account résultat de l'opération op-lambda sur
les paires de montants de même devise, et ajoute les montants-devise
restants."
(let ((sort-a (sorted-accounts self))
(sort-b (sorted-accounts other))
......@@ -274,7 +275,7 @@ restants."
(setq result
(cons
(cond
((and a b (compare-sequal-sn-c a b)) ;; les deux sont égaux
((and a b (compare-sequal-sn-c a b)) ;; les deux sont égaux
(setq sort-a (cdr sort-a) ;; on les passe
sort-b (cdr sort-b))
;; resultat : l'operation appliquee sur eux.
......@@ -1258,20 +1259,20 @@ RETURN: self."
(defun portefeuille (operations &rest options)
"
OPERATIONS est une liste d'opérations boursières au format :
OPERATIONS est une liste d'opérations boursières au format :
( (DATE QUANTITE DEVISE COURS COMISSION SYMBOL)
(2000-10-16 20 EUR 8.98 8.20 ES0132580319) )
Achat : quantité > 0
Vente : quantité < 0
Achat : quantité > 0
Vente : quantité < 0
On peut placer 0, 1 ou plusieurs options:
'efface-reste-du-tampon --> efface le reste du tampon à partir du point
d'insertion avant d'afficher les résultats.
'efface-reste-du-tampon --> efface le reste du tampon à partir du point
d'insertion avant d'afficher les résultats.
les symboles monétaires définis
dans (euro-get-devises) --> affiche les totaux dans la devise indiquée
(que les cours soient à jour!).
les symboles monétaires définis
dans (euro-get-devises) --> affiche les totaux dans la devise indiquée
(que les cours soient à jour!).
"
(let ((portfolio (make-instance Portfolio))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-c.el
;;;;LANGUAGE: emacs lisp
......
......@@ -1816,7 +1816,7 @@ RETURN: A regexp that match the given REGEXP, but
(format tree
(token-regexp
(regexp-opt
(mapcar (function STRING) symbols)
(mapcar (lambda (x) (string-upcase (symbol-name x))) symbols)
;; (mapcan (function up-down-case) symbols)
'words))))
((consp tree) (cons (format-regexp-in (car tree))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
(setf *cl-lambda-lists* (make-hash-table :test (function equal) :size 978))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;****************************************************************************
;;FILE: pjb-cl-magic.el
;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-class.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-computer-paper.el
;;;;LANGUAGE: emacs lisp
......
This diff is collapsed.
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-cvs.el
;;;;LANGUAGE: emacs lisp
......@@ -42,7 +43,7 @@
;; file = { revision=(file,*) }
;; tag = { {file_i,version_j), k!=l ==> file_k!=file_l }
;;
;; arc_file ( (file,v1),(file,v2) ) si v2 succède v1 (+branches)
;; arc_file ( (file,v1),(file,v2) ) si v2 succède v1 (+branches)
;; arc_tag ( (tag1,tag) si existe arc_file(n1,n2) avec n1 dans tag1
;; et n2 dans tag2 )
;; poind(arc_tag(tag1,tag2)) = cardinal { arc_file(n1,n2) avec n1 dans tag1
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-cvspass.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-dodo.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-dot.el
;;;;LANGUAGE: emacs-lisp
......
;;;; -*- coding: utf-8 -*-
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-emacs.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-erc.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;*****************************************************************************
;;;;FILE: pjb-euro.el
;;;;LANGUAGE: emacs lisp
......@@ -46,24 +47,24 @@
(:BEF 40.3399 1.00 "%10.0f" "Franc Belge")
(:DEM 1.95583 0.01 "%10.2f" "Mark Allemand")
(:ESP 166.386 1.00 "%10.0f" "Peseta Espagnole")
(:FRF 6.55957 0.01 "%10.2f" "Franc Franais")
(:FRF 6.55957 0.01 "%10.2f" "Franc Français")
(:IEP 0.787564 0.01 "%10.2f" "Lire Irlandaise")
(:ITL 1936.27 1.00 "%10.0f" "Lire Italienne")
(:LUF 40.3399 1.00 "%10.0f" "Franc Luxembourgeois")
(:NLG 2.20371 1.00 "%10.2f" "Florin Nerlandais")
(:NLG 2.20371 1.00 "%10.2f" "Florin Néerlandais")
(:ATS 13.7604 0.01 "%10.2f" "Shilling Autrichien")
(:PTE 200.428 1.00 "%10.0f" "Escudo Portuguais")
(:FIM 5.94573 1.00 "%10.0f" "Mark Finlandais")
;; Cours variables:
(:UKL 1.0 0.01 "%10.2f" "Livre Sterling")
(:AUD 1.0 0.01 "%10.2f" "Dollar Australien")
(:USD 1.0 0.01 "%10.2f" "Dollar Amricain")
(:USD 1.0 0.01 "%10.2f" "Dollar Américain")
(:CAD 1.0 0.01 "%10.2f" "Dollar Canadien")
(:JPY 1.0 1.00 "%10.0f" "Yen Japonais")
(:FRS 1.0 0.01 "%10.2f" "Franc Suisse")
(:SEK 1.0 0.01 "%10.2f" "Couronne Sudoise")
(:SEK 1.0 0.01 "%10.2f" "Couronne Suèdoise")
(:DKK 1.0 0.01 "%10.2f" "Couronne Danoise")
(:NOK 1.0 0.01 "%10.2f" "Couronne Norvgienne")
(:NOK 1.0 0.01 "%10.2f" "Couronne Norvégienne")
)
"This is the list of the devises that are in the euro,
with their conversion ratios.
......@@ -227,20 +228,20 @@ three-letter devise code. The value is euro-round'ed before formating."
("1/10 Kruger Rand" 3.105)
("Lingot" 1000.00)
("Barre" 1000.00)
("Napolon (Pice Franaise 20 FRF)" 5.80)
("Pice Suisse 20 Francs" 5.80)
("Pice Union Latine 20 Francs" 5.80)
("Napoléon (Pièce Française 20 FRF)" 5.80)
("Pièce Suisse 20 Francs" 5.80)
("Pièce Union Latine 20 Francs" 5.80)
("Souverain" 7.32)
("Pice 20 Dollars Amricains" 30.09)
("Pice 10 Dollars Amricains" 15.04)
("Pice 50 Pesos Mexicains" 37.50)
("Pice 10 Florins" 6.05)
("Demi-Napolon (Pice Franaise 10 FRF)" 2.90)
("Pice Tunisienne 20 Francs" 5.80)
("Pièce 20 Dollars Américains" 30.09)
("Pièce 10 Dollars Américains" 15.04)
("Pièce 50 Pesos Mexicains" 37.50)
("Pièce 10 Florins" 6.05)
("Demi-Napoléon (Pièce Française 10 FRF)" 2.90)
("Pièce Tunisienne 20 Francs" 5.80)
("Souverain Elisabeth II" 7.32)
("Demi-Souverain" 3.66)
("Pice 5 Dollars Amricains" 7.52)
("Pice 20 Marks" 7.17)
("Pièce 5 Dollars Américains" 7.52)
("Pièce 20 Marks" 7.17)
)
"A list of sublist (name gold-mass-in-gram) of gold coins and lingot."
);;gold-coins
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-font.el
;;;;LANGUAGE: emacs lisp
......@@ -355,4 +356,4 @@ RETURN: A tree where the child of each node are labelled with
(select-default-font)))
(provide 'pjb-font)
\ No newline at end of file
(provide 'pjb-font)
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-graph.el
;;;;LANGUAGE: emacs-lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-html.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-i2p-expression.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-layers.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-list.lisp
;;;;LANGUAGE: common-lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;*****************************************************************************
;;;;FILE: pjb-mail.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-make-depends.el
;;;;LANGUAGE: emacs
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-objc-mode.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-object.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-page.el
;;;;LANGUAGE: emacs lisp
......@@ -115,4 +116,4 @@
(sit-for delay)
(force-mode-line-update t)
) ;;while
(message "Done.")))
\ No newline at end of file
(message "Done.")))
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-pgp.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-queue.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-roman.el
;;;;LANGUAGE: emacs lisp
......@@ -47,7 +48,7 @@ SEE ALSO: fahrenheit (F), celcius (C) and kelvin (K)."
(funcall (if buffer-file-read-only
(function insert)
(function message))
(format "%10.2f K %10.2f C %10.2f F %s"
(format "%10.2f K %10.2f °C %10.2f °F %s"
k
(- k 273.15)
(+ 32.0 (* 1.8 (- k 273.15)))
......@@ -91,11 +92,11 @@ SEE ALSO: fahrenheit (F), celcius (C) and kelvin (K)."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Rgles d'criture des nombres romains :
;; Les chiffres M, C, X, I ne peuvent pas tre rpts plus de quatre fois.
;; Les chiffres D, L, V ne peuvent pas tre rpts.
;; Les chiffres doivent tre cris dans l'ordre : M, D, C, L, X, V, I ;
;; sauf que un I peut prcder V, X, L, ou C, et un X peut prcder L ou C.
;; Règles d'écriture des nombres romains :
;; Les chiffres M, C, X, I ne peuvent pas être répétés plus de quatre fois.
;; Les chiffres D, L, V ne peuvent pas être répétés.
;; Les chiffres doivent être écris dans l'ordre : M, D, C, L, X, V, I ;
;; sauf que un I peut précéder V, X, L, ou C, et un X peut précéder L ou C.
;; romain : milliers centaines .
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-s2p-expression.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: secouer.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-selftrade.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-server.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-shell.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- coding: utf-8 -*-
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-sources.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: state-coding.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-strings.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-transpose.el
;;;;LANGUAGE: emacs-lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-utilities.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;*****************************************************************************
;;;;FILE: pjb-vm-kill-file.el
;;;;LANGUAGE: emacs lisp
......@@ -150,7 +151,7 @@ POST: If the message match our \"kill-file\", then it is marked deleted.
(message-cond (string-match "Credit Repair\\|$$$" value))
(message-cond (string-match "=?big5?" value))
(message-cond (string-match "=?euc-kr?" value))
(message-cond (string-match "()" value))
(message-cond (string-match "(±¤°í)" value))
)))
(let ((value (mail-fetch-field "Received" nil t)))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-work.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;; Needed for ~/.emacs
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;; emacs <-> common-lisp RPC with slime/swank
;;; In emacs, we can execute Common Lisp expressions:
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
(require 'pjb-cl)
;; Some time ago I wrote some suggestions about how to rewrite
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment