emacs-devel
[Top][All Lists]
Advanced

[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.")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]