From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: One example of code I can't understand Date: Sun, 19 Jul 2009 19:21:29 -0400 Message-ID: Reply-To: rms@gnu.org NNTP-Posting-Host: lo.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: ger.gmane.org 1248046002 27265 80.91.229.12 (19 Jul 2009 23:26:42 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 19 Jul 2009 23:26:42 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 20 01:26:36 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MSfm6-0007BU-LK for ged-emacs-devel@m.gmane.org; Mon, 20 Jul 2009 01:26:34 +0200 Original-Received: from localhost ([127.0.0.1]:57993 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MSfm5-0005Ir-WE for ged-emacs-devel@m.gmane.org; Sun, 19 Jul 2009 19:26:34 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MSfhG-0003I9-OJ for emacs-devel@gnu.org; Sun, 19 Jul 2009 19:21:34 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MSfhC-0003Fn-4L for emacs-devel@gnu.org; Sun, 19 Jul 2009 19:21:34 -0400 Original-Received: from [199.232.76.173] (port=36931 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MSfhB-0003Fi-Vt for emacs-devel@gnu.org; Sun, 19 Jul 2009 19:21:30 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]:54534) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MSfhB-0001Tw-N0 for emacs-devel@gnu.org; Sun, 19 Jul 2009 19:21:29 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1MSfhB-0004z4-CR; Sun, 19 Jul 2009 19:21:29 -0400 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:112787 Archived-At: 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)))))))))