[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
One example of code I can't understand
From: |
Richard Stallman |
Subject: |
One example of code I can't understand |
Date: |
Sun, 19 Jul 2009 19:21:52 -0400 |
Here's some code from mm-util.el that I don't understand.
Well, I can understand the first 6 lines, but after that
I am stumped. The doc string gives no details of what the
value should look like or what it means.
(defvar mm-iso-8859-x-to-15-table
(and (fboundp 'coding-system-p)
(mm-coding-system-p 'iso-8859-15)
(mapcar
(lambda (cs)
(if (mm-coding-system-p (car cs))
(let ((c (string-to-char
(decode-coding-string "\341" (car cs)))))
(cons (char-charset c)
(cons
(- (string-to-char
(decode-coding-string "\341" 'iso-8859-15)) c)
(string-to-list (decode-coding-string (car (cdr cs))
(car cs))))))
'(gnus-charset 0)))
mm-iso-8859-15-compatible))
"A table of the difference character between ISO-8859-X and ISO-8859-15.")
- One example of code I can't understand, (continued)
One example of code I can't understand,
Richard Stallman <=
Re: One example of code I can't understand, Richard Stallman, 2009/07/21
Re: One example of code I can't understand, Eli Zaretskii, 2009/07/21