[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:29 -0400 |
Here's more code from mm-util.el that I don't understand.
;; We are in a unibyte buffer or XEmacs non-mule, so we futz around a bit.
(save-excursion
(save-restriction
(narrow-to-region b e)
(goto-char (point-min))
(skip-chars-forward "\0-\177")
(if (eobp)
'(ascii)
(let (charset)
(setq charset
(and (boundp 'current-language-environment)
(car (last (assq 'charset
(assoc current-language-environment
language-info-alist))))))
(if (eq charset 'ascii) (setq charset nil))
(or charset
(setq charset
(car (last (assq mail-parse-charset
mm-mime-mule-charset-alist)))))
(list 'ascii (or charset 'latin-iso8859-1)))))))))
One example of code I can't understand, Richard Stallman, 2009/07/19