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: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)))))))))




reply via email to

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