From 3121ebb490857e7305921058a2e6d2f2a821377a Mon Sep 17 00:00:00 2001
From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 12 Feb 2004 00:46:03 +0000
Subject: [PATCH] Merge the ELisp-based uncompface program written by TAKAI
 Kousuke. (compface): New customization group. (uncompface-use-external): New
 user option. (uncompface): Call uncompface-internal if
 uncompface-use-external is nil. (uncompface-internal): New function.  Note
 that there are also some other functions and variables added for this
 function.

---
 lisp/ChangeLog   |  10 +
 lisp/compface.el | 695 +++++++++++++++++++++++++++++++++++++++++++++--
 2 files changed, 680 insertions(+), 25 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1660f69b9..af4f6305b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2004-02-12  TAKAI Kousuke  <tak@kmc.gr.jp>
+
+	* compface.el: Merge the ELisp-based uncompface program.
+	(compface): New customization group.
+	(uncompface-use-external): New user option.
+	(uncompface): Call uncompface-internal if uncompface-use-external
+	is nil.
+	(uncompface-internal): New function.  Note that there are also
+	some other functions and variables added for this function.
+
 2004-02-10  Jesper Harder  <harder@ifa.au.dk>
 
 	* nnrss.el (nnrss-read-group-data): Initialize nnrss-group-hashtb
diff --git a/lisp/compface.el b/lisp/compface.el
index 185f9494f..b9fc657c8 100644
--- a/lisp/compface.el
+++ b/lisp/compface.el
@@ -1,7 +1,8 @@
 ;;; compface.el --- functions for converting X-Face headers
-;; Copyright (C) 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;	TAKAI Kousuke <tak@kmc.gr.jp>
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -25,33 +26,677 @@
 
 ;;; Code:
 
-;;;###
+(defgroup compface nil
+  "X-Face image conversion."
+  :group 'extensions)
+
+(defcustom uncompface-use-external (and (not noninteractive)
+					(executable-find "uncompface")
+					(executable-find "icontopbm")
+					t)
+  "*Non-nil means use the external `uncompface' and `icontopbm' programs.
+If this variable is set to nil, use the internal Lisp-based function."
+  :type 'boolean
+  :group 'compface)
+
 (defun uncompface (face)
   "Convert FACE to pbm.
-Requires the external programs `uncompface', and `icontopbm'.  On a
-GNU/Linux system these might be in packages with names like `compface'
-or `faces-xface' and `netpbm' or `libgr-progs', for instance."
-  (with-temp-buffer
-    (insert face)
-    (and (eq 0 (apply 'call-process-region (point-min) (point-max)
-		      "uncompface"
-		      'delete '(t nil) nil))
-	 (progn
-	   (goto-char (point-min))
-	   (insert "/* Width=48, Height=48 */\n")
-	   ;; I just can't get "icontopbm" to work correctly on its
-	   ;; own in XEmacs.  And Emacs doesn't understand un-raw pbm
-	   ;; files.
-	   (if (not (featurep 'xemacs))
-	       (eq 0 (call-process-region (point-min) (point-max)
-					  "icontopbm"
-					  'delete '(t nil)))
-	     (shell-command-on-region (point-min) (point-max)
-				      "icontopbm | pnmnoraw"
-				      (current-buffer) t)
-	     t))
-	 (buffer-string))))
+If `uncompface-use-external' is non-nil, it requires the external
+programs `uncompface', and `icontopbm'.  On a GNU/Linux system these
+might be in packages with names like `compface' or `faces-xface' and
+`netpbm' or `libgr-progs', for instance."
+  (if uncompface-use-external
+      (with-temp-buffer
+	(insert face)
+	(and (eq 0 (apply 'call-process-region (point-min) (point-max)
+			  "uncompface"
+			  'delete '(t nil) nil))
+	     (progn
+	       (goto-char (point-min))
+	       (insert "/* Width=48, Height=48 */\n")
+	       ;; I just can't get "icontopbm" to work correctly on its
+	       ;; own in XEmacs.  And Emacs doesn't understand un-raw pbm
+	       ;; files.
+	       (if (not (featurep 'xemacs))
+		   (eq 0 (call-process-region (point-min) (point-max)
+					      "icontopbm"
+					      'delete '(t nil)))
+		 (shell-command-on-region (point-min) (point-max)
+					  "icontopbm | pnmnoraw"
+					  (current-buffer) t)
+		 t))
+	     (buffer-string)))
+    (uncompface-internal face)))
+
+;; The following section is a bug-for-bug compatible version of
+;; `uncompface' program entirely implemented in Emacs-Lisp.
+
+(eval-when-compile
+  ;; The size of 48x48 is actually hard-coded into the code itself,
+  ;; so you cannot simply change those values.  So we hard-code
+  ;; them into the compiled code.
+  (defconst uncompface-width 48
+    "Width of X-Face bitmap image.")
+  (defconst uncompface-height 48
+    "Height of X-Face bitmap image.")
+
+  ;; Again, this is also hard-coded into the compiled code.
+  (defconst uncompface-guesses
+    (mapcar (lambda (x)
+	      (mapcar (lambda (x)
+			(let ((vector (make-vector (length x) nil))
+			      (i 0))
+			  (while x
+			    (or (zerop (car x))
+				(aset vector i t))
+			    (setq x (cdr x)
+				  i (1+ i)))
+			  vector))
+		      x))
+	    '((;; g_00
+	       (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		1 1 1 0 0 0 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 1 0 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 1
+		0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 1 1 0 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1
+		0 1 0 0 0 1 0 1 0 0 1 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1
+		0 0 0 0 0 0 0 1 0 0 1 1 1 1 1 1
+		1 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1
+		1 0 0 0 0 0 0 0 1 1 0 0 1 0 0 1
+		0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 1 1 0 1 1 0 0 0 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 0 1 0 1 0 0
+		0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1
+		0 1 0 1 0 1 1 1 0 1 0 0 0 1 1 1
+		1 1 0 1 0 1 1 1 0 0 1 1 1 1 0 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 1 1 1 1 1 0 0 0 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		1 0 0 1 1 0 1 1 1 1 0 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 1 1 1 1 1 0 0 0 1 1 1 0 1
+		0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 0 0 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 0 0 1 1 1 1
+		1 1 0 1 0 1 1 1 0 0 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 0 0 1 1 1 1 0 1 1 1 1 1 1
+		0 1 0 1 0 1 1 0 0 0 1 0 0 1 0 1
+		0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1
+		1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1
+		0 1 0 1 1 1 1 1 0 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 1 1 1 0 1 1 1 1 1
+		0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 1 1 1 1 0 1 0 0 0 1 0
+		0 0 0 0 1 0 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		0 0 0 1 1 0 0 0 1 1 0 1 0 1 1 1
+		1 0 0 1 0 1 0 0 0 1 1 1 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1
+		0 0 0 1 1 1 1 1 1 0 1 1 0 1 1 1
+		0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 1
+		0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 1 1 1 1 0 0 0 1 1 1 1 1
+		1 0 0 0 0 1 0 0 1 0 0 0 1 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 1 0 1 0 1
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 0 0 0 0 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1
+		0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
+		0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0
+		0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1
+		0 1 0 0 1 0 1 0 0 1 0 0 0 0 0 0
+		0 1 0 1 1 1 1 1 0 1 0 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1
+		1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 1 0 1
+		1 1 0 1 0 1 1 1 0 1 0 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1
+		1 1 0 1 1 1 1 1 0 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 0 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 0 0 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 0 0 1 1 1 0 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1
+		0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1
+		0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0
+		0 0 0 0 0 0 1 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
+		1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1
+		0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 1
+		1 0 1 0 1 1 1 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
+		0 1 0 0 0 1 1 0 0 0 0 0 1 1 0 0
+		0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
+		1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1
+		1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 1 1 1 1 1 1 1 0 1 0 1 1 1 1 1
+		1 1 0 1 1 0 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 0 1 1 1 1 1 0
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1
+		1 0 0 1 0 1 0 1 0 1 0 0 1 1 1 1
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		1 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 1 0 0 1 0 1 0 0 0 0 1 1 1 0
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 0 1
+		0 1 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 0 1 0
+		0 0 0 0 0 1 0 0 0 1 0 0 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 0 1 1 1 0 1 1 1 0 1 1 1
+		0 1 0 0 0 1 1 1 1 1 1 0 1 1 0 1
+		0 0 0 0 0 1 0 1 0 0 0 0 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 1 0 1 1 1 1
+		1 1 0 1 1 0 0 0 0 1 0 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 0 1 1 1 1 1 0 1 0 1 1 1 1 1
+		0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1
+		1 0 0 1 0 1 0 0 0 0 0 0 1 1 0 1
+		0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1
+		0 1 0 0 0 1 1 0 0 1 0 1 0 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 0 1 1 0 1
+		0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 1
+		0 1 0 0 0 1 1 1 0 1 1 0 1 1 0 0
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 0 1 1 0 1 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
+		0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0
+		1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 1
+		0 0 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 1 1 1 1 0 1 0 0 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 0
+		0 0 0 0 1 1 0 1 0 0 0 0 1 1 1 1
+		0 0 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 0 0 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 1 1 0 0 0 1 0 0 1 1 0
+		1 1 0 0 1 1 1 1 0 0 0 0 0 1 0 1
+		1 1 0 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 0 1 1 1 1 1 1 1 0 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 1 0 1 1 1 0 1 0 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 0 1 1 0 0 0 0 0 1 0 0 1
+		0 1 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 0 1 0 1 0 0 0 1 0 0 0
+		1 0 1 0 0 1 1 1 0 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 0 0 0 0 0 1 0 0
+		1 1 0 1 1 1 1 1 0 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 0
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 0 1 1 0 0
+		1 0 0 0 1 1 1 1 0 1 0 0 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 0 0 1 1 1 1
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0
+		1 0 0 1 1 1 0 1 0 0 0 0 1 1 1 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)
+	       ;; g_10
+	       (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0
+		1 1 1 1 0 0 1 1 0 1 0 1 1 1 1 1
+		1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0
+		0 0 0 1 0 1 1 1 1 0 0 1 1 1 1 1
+		0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 1
+		0 0 0 0 0 1 0 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
+		0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1
+		0 0 1 1 0 0 1 1 1 1 0 1 0 1 1 1
+		0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 1
+		0 1 0 1 1 1 1 1 0 0 1 1 1 1 1 1
+		0 0 0 1 0 1 1 1 0 0 1 1 0 0 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
+		0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0
+		0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0
+		0 0 0 1 0 0 0 1 0 1 0 1 0 1 1 1
+		0 0 0 0 0 1 0 1 0 0 1 0 0 1 0 1
+		0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 1
+		0 0 1 1 0 1 0 1 1 0 1 1 1 1 1 1
+		1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 1 1 1 0 1 1 0 1 1 1 1
+		0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0
+		0 0 0 1 0 1 1 1 0 0 0 0 0 1 1 0
+		1 1 1 1 1 0 1 0 1 1 1 0 1 0 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 1
+		0 0 0 1 1 1 1 1 1 0 0 1 1 1 1 1
+		0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)
+	       ;; g_20
+	       (0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1
+		0 1 0 0 0 0 1 1 0 0 1 0 1 1 1 0
+		1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1)
+	       ;; g_40
+	       (0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 1 0 0 1 1 1 0
+		1 1 1 0 0 1 0 0 0 0 0 0 1 1 0 1
+		0 0 0 1 0 0 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 1 0 0 0 1 0 0 0 1 0 0 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0
+		0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1
+		1 0 1 0 1 1 1 0 1 0 1 0 1 1 1 1
+		0 1 0 0 0 1 0 1 0 1 1 1 1 1 1 1
+		1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1
+		0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 1 1 1 0 0 1 1 0 1 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1
+		0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0
+		0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
+		0 1 0 0 1 1 1 1 0 1 0 1 1 1 1 1
+		0 0 1 1 1 1 0 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 1 1 1 0 0 1 1 1 1 1 1 1 1
+		1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1
+		0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
+		0 0 0 0 0 0 1 0 0 0 0 1 1 1 1 1
+		0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1
+		0 0 0 0 0 1 0 1 0 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1
+		0 1 0 0 0 0 0 1 0 1 0 1 0 1 1 1
+		0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 1 0 1 0 1 1 1 0 1 1 1
+		0 0 0 0 1 1 0 1 0 1 0 1 1 1 1 1
+		0 1 0 0 1 1 0 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1
+		0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1
+		0 0 0 0 0 1 0 1 0 1 1 1 1 1 0 1
+		0 0 0 1 0 0 0 0 0 0 0 1 0 1 0 1
+		0 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0
+		0 0 0 0 1 1 0 1 1 1 1 1 1 1 0 1
+		0 0 0 0 0 1 0 0 0 0 0 0 1 1 1 1
+		0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1
+		0 0 0 0 0 1 1 1 0 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1
+		0 0 0 0 1 1 0 1 0 1 1 1 1 1 1 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1
+		0 1 0 0 1 1 0 1 0 1 1 1 1 1 0 1
+		0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1))
+	      (;; g_01
+	       (0 0 1 1 0 1 1 1 0 1 1 1 0 0 1 1
+		0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1
+		0 1 0 1 0 1 1 1 0 1 1 1 1 1 1 1
+		1 1 1 1 0 1 0 1 1 1 1 1 1 0 1 1
+		0 1 1 1 0 0 0 0 0 0 1 1 0 0 1 1
+		1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 1
+		0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+		1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)
+	       ;; g_11
+	       (0 0 0 0 0 0 0 1 0 0 0 1 0 0 1 1
+		0 0 0 0 0 0 1 1 0 1 1 1 1 1 1 1)
+	       ;; g_21
+	       (0 0 0 1 0 1 1 1)
+	       ;; g_41
+	       (0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1
+		0 0 0 0 0 0 0 1 0 0 0 1 1 1 1 1
+		0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1
+		0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1))
+	      (;; g_02
+	       (0 1 0 1)
+	       ;; g_12
+	       (0 1)
+	       ;; g_22
+	       (0)
+	       ;; g_42
+	       (0 0 0 1))))
+    "Static prediction table for X-Face image compression algorithm.")
+
+  ;; Macros for inlining critical values. 
+  (defmacro uncompface-width () (list 'quote uncompface-width))
+  (defmacro uncompface-height () (list 'quote uncompface-height))
+  (defmacro uncompface-guesses () (list 'quote uncompface-guesses))
+
+  (defmacro uncompface-loop (&rest body)
+    "Eval BODY and repeat if last expression of BODY yields non-nil."
+    (list 'while (cons 'progn body))))
+
+;; (defun uncompface-print-bignum (bignum &optional prefix)
+;;   (princ (format (concat prefix "<%s>\n")
+;; 		 (mapconcat (lambda (x) (format "%02x" x))
+;; 			    (reverse bignum) " "))))
+
+;; Shut up the byte-compiler.
+;; These variables are once bound in `uncompface' and all subfunctions
+;; accesses them directly rather than creating their own bindings.
+(eval-when-compile
+  (defvar bignum)
+  (defvar face))
+
+;; Big-number facilities.
+;; These functions were used to be implemented with `lsh' and `logand',
+;; but rewritten to use `/' and `%'.  The last two are mapped into
+;; byte-code directly, but the formers are normal functions even in
+;; compiled code which involve expensive `funcall' operations.
+(eval-when-compile
+  (defsubst uncompface-big-mul-add (multiplier adder)
+    "Multiply BIGNUM by MULTIPLIER and add ADDER and put result in `bignum'."
+    (setq bignum (if (= multiplier 0)
+		     (cons 0 bignum)
+		   (prog1 bignum
+		     (while (progn
+			      (setcar bignum (% (setq adder (+ (* (car bignum)
+								  multiplier)
+							       adder))
+						256))
+			      (setq adder (/ adder 256))
+			      (cdr bignum))
+		       (setq bignum (cdr bignum)))
+		     (or (= adder 0)
+			 (setcdr bignum (list adder))))))))
+
+;; This trick is for XEmacs 21.4 which doesn't allow inlining a function
+;; using `defsubst' into another function also defined with `defsubst'.
+(eval-when-compile
+  (when (featurep 'xemacs)
+    (defvar uncompface-big-mul-add (symbol-function 'uncompface-big-mul-add))
+    (defmacro uncompface-big-mul-add (multiplier adder)
+      `(,uncompface-big-mul-add ,multiplier ,adder))))
+
+;; Separate `eval-when-compile' for the byte compiler
+;; to properly define `uncompface-big-mul-add' before `uncompface-big-pop'.
+(eval-when-compile
+  (defsubst uncompface-big-pop (prob)
+    (let ((n (car bignum)) (i 0))
+      (if (cdr bignum)
+	  (setq bignum (cdr bignum))
+	(setcar bignum 0))
+      (while (or (< n (cdr (car prob)))
+		 (>= n (+ (cdr (car prob)) (car (car prob)))))
+	(setq prob (cdr prob)
+	      i (1+ i)))
+      (uncompface-big-mul-add (car (car prob)) (- n (cdr (car prob))))
+      i)))
+
+;; This function cannot be inlined due to recursive calls.
+(defun uncompface-pop-grays (offset size)
+  (if (<= size 3)
+      (let ((bits (uncompface-big-pop
+		   ;; This is freqs[16] in compface_private.h.
+		   '(( 0 .   0) (38 .   0) (38 .  38) (13 . 152)
+		     (38 .  76) (13 . 165) (13 . 178) ( 6 . 230)
+		     (38 . 114) (13 . 191) (13 . 204) ( 6 . 236)
+		     (13 . 217) ( 6 . 242) ( 5 . 248) ( 3 . 253)))))
+;; 	(if (/= (logand bits 1) 0)
+;; 	    (aset face offset t))
+;; 	(if (/= (logand bits 2) 0)
+;; 	    (aset face (1+ offset) t))
+;; 	(if (/= (logand bits 4) 0)
+;; 	    (aset face (+ offset (uncompface-width)) t))
+;; 	(if (/= (logand bits 8) 0)
+;; 	    (aset face (+ offset (uncompface-width) 1) t))
+	(when (>= bits 8)
+	  (aset face (+ offset (uncompface-width) 1) t)
+	  (setq bits (- bits 8)))
+	(when (>= bits 4)
+	  (aset face (+ offset (uncompface-width)) t)
+	  (setq bits (- bits 4)))
+	(or (eq (if (< bits 2)
+		    bits
+		  (aset face (1+ offset) t)
+		  (- bits 2))
+		0)
+	    (aset face offset t))
+	)
+    (setq size (/ size 2))
+    (uncompface-pop-grays offset size)
+    (uncompface-pop-grays (+ offset size) size)
+    (uncompface-pop-grays (+ offset (* (uncompface-width) size)) size)
+    (uncompface-pop-grays (+ offset (* (uncompface-width) size) size) size)))
+
+;; Again, this function call itself recursively.
+(defun uncompface-uncompress (offset size level)
+  ;; This used to be (funcall (aref [(lambda ...) ...] (u-big-pop ...)))
+  ;; but this was slow due to function call.
+  (let ((i (uncompface-big-pop (car level))))
+    (cond ((eq i 0)			; black
+	   (uncompface-pop-grays offset size))
+	  ((eq i 1)			; gray
+	   (setq size (/ size 2)
+		 level (cdr level))
+	   (uncompface-uncompress offset size level)
+	   (uncompface-uncompress (+ offset size) size level)
+	   (uncompface-uncompress (+ offset (* size (uncompface-width)))
+				  size level)
+	   (uncompface-uncompress (+ offset (* size (uncompface-width)) size)
+				  size level))
+	  ;; ((eq i 2) nil)
+	  ;; (t (error "Cannot happen"))
+	  )))
+
+(eval-when-compile
+  (defmacro uncompface-shift-in (k dy dx)
+    `(+ k k (if (aref face (+ i (* ,dy (uncompface-width)) ,dx)) 1 0))))
+
+(defun uncompface-internal (string &optional raw)
+  "Decode X-Face data STRING and return an image in the pbm format.
+If the optional RAW is non-nil, return a raw bitmap as a vector."
+  (let (;; `bignum' and `face' are semi-global variables.
+	;; Do not use '(0) below, because BIGNUM is modified in-place.
+	(bignum (list 0))
+	(face (make-vector (* (uncompface-width) (uncompface-height)) nil))
+	;;(uncompface-big-shift -16)
+	;;(uncompface-big-mask 65535)
+	(y 0) x)
+    (mapc (lambda (c)
+	    (and (>= c ?!) (<= c ?~)
+		 (uncompface-big-mul-add (1+ (- ?~ ?!)) (- c ?!))))
+	  string)
+    ;;(uncompface-print-bignum bignum)
+    ;;(setq y 0)
+    (uncompface-loop
+      (setq x 0)
+      (uncompface-loop
+	(uncompface-uncompress (+ (* (uncompface-width) y) x) 16
+			       ;; This is levels[4][3] in compface_private.h.
+			       '(;; Top of tree almost always grey
+				 ((  1 . 255) (251 .   0) (  4 . 251))
+				 ((  1 . 255) (200 .   0) ( 55 . 200))
+				 (( 33 . 223) (159 .   0) ( 64 . 159))
+				 ;; Grey disallowed at bottom
+				 ((131 .   0) (  0 .   0) (125 . 131))))
+	(< (setq x (+ x 16)) (uncompface-width)))
+      (< (setq y (+ y 16)) (uncompface-height)))
+    (setq y 0)
+    (let ((i 0) guesses k)
+      (uncompface-loop
+	(setq guesses (cond ((= y 1) (nth 2 (uncompface-guesses)))
+			    ((= y 2) (nth 1 (uncompface-guesses)))
+			    (t	     (nth 0 (uncompface-guesses))))
+	      x 0)
+	(uncompface-loop
+	  (setq k 0)
+	  (when (>= x 1)
+	    (when (>= x 2)
+	      (when (>= x 3)
+		(when (>= y 1)
+		  (when (>= y 2)
+		    (when (>= y 3)
+		      (setq k (uncompface-shift-in k -2 -2)))
+		    (setq k (uncompface-shift-in k -1 -2)))
+		  (setq k (uncompface-shift-in k 0 -2))))
+	      (when (>= y 1)
+		(when (>= y 2)
+		  (when (>= y 3)
+		    (setq k (uncompface-shift-in k -2 -1)))
+		  (setq k (uncompface-shift-in k -1 -1)))
+		(setq k (uncompface-shift-in k 0 -1))))
+	    (when (>= y 2)
+	      (when (>= y 3)
+		(setq k (uncompface-shift-in k -2 0)))
+	      (setq k (uncompface-shift-in k -1 0)))
+	    (when (>= y 2)
+	      (when (>= y 3)
+		(setq k (uncompface-shift-in k -2 1)))
+	      (setq k (uncompface-shift-in k -1 1)))
+	    (when (<= x (- (uncompface-width) 2))
+	      (when (>= y 2)
+		(when (>= y 3)
+		  (setq k (uncompface-shift-in k -2 2)))
+		(setq k (uncompface-shift-in k -1 2)))))
+	  (if (aref (car (cond ((= x 1)
+				(cdr (cdr guesses)))
+			       ((= x 2)
+				(cdr guesses))
+			       ((= x (1- (uncompface-width)))
+				(cdr (cdr (cdr guesses))))
+			       (t
+				guesses))) k)
+	      (aset face i (not (aref face i))))
+	  (setq i (1+ i))
+	  (< (setq x (1+ x)) (uncompface-width)))
+	(< (setq y (1+ y)) (uncompface-height))))
+    (if raw
+	face
+      (concat (eval-when-compile
+		(format "P1\n%d %d\n" uncompface-width uncompface-height))
+	      (mapconcat (lambda (bit) (if bit "1" "0")) face " ")
+	      "\n"))))
 
 (provide 'compface)
 
+;; Local variables:
+;; eval: (put 'uncompface-loop 'lisp-indent-hook 0)
+;; End:
+
 ;;; compface.el ends here
-- 
2.25.1