From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/41884 Path: main.gmane.org!not-for-mail From: Raymond Scholz Newsgroups: gmane.emacs.gnus.general Subject: Re: X-Face and depth Date: Sat, 12 Jan 2002 14:58:54 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <15411.9669.562599.141358@www.ee.ryerson.ca> Reply-To: Raymond Scholz NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035177210 8437 80.91.224.250 (21 Oct 2002 05:13:30 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 05:13:30 +0000 (UTC) Return-Path: Original-Received: (qmail 19363 invoked from network); 12 Jan 2002 14:17:52 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 12 Jan 2002 14:17:52 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16POyU-0004lx-00; Sat, 12 Jan 2002 08:17:34 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 12 Jan 2002 08:17:28 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id IAA04125 for ; Sat, 12 Jan 2002 08:17:13 -0600 (CST) Original-Received: (qmail 19358 invoked by alias); 12 Jan 2002 14:17:15 -0000 Original-Received: (qmail 19353 invoked from network); 12 Jan 2002 14:17:15 -0000 Original-Received: from quimby.gnus.org (HELO quimby2.netfonds.no) (195.204.10.66) by gnus.org with SMTP; 12 Jan 2002 14:17:15 -0000 Original-Received: from news by quimby2.netfonds.no with local (Exim 3.12 #1 (Debian)) id 16POyQ-00014V-00 for ; Sat, 12 Jan 2002 15:17:30 +0100 Original-To: ding@gnus.org Original-Path: mde1.zonix.de!not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 44 Original-NNTP-Posting-Host: acb09660.ipt.aol.com Original-X-Trace: quimby2.netfonds.no 1010845050 4119 172.176.150.96 (12 Jan 2002 14:17:30 GMT) Original-X-Complaints-To: usenet@quimby2.netfonds.no Original-NNTP-Posting-Date: 12 Jan 2002 14:17:30 GMT Mail-Copies-To: nobody X-Now-Playing: Nothing X-Face: %.!RBc`e*wW)84O*\)VdkC}mU5c2Zh$y~ZRA3K594g/jp_&5bx\Oyes!/jK~4<<%KlaPn^\ 0 writes: > It works very well for me. :-) It doesn't for me :-( Same with the original code from Gnus CVS. Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) logand(nil 1) (zerop (logand bits mask)) (if (zerop (logand bits mask)) "0 " "1 ") (insert (if (zerop ...) "0 " "1 ")) (while --dolist-temp--56627 (setq bits (car --dolist-temp--56627)) (insert (if ... "0 " "1 ")) (setq --dolist-temp--56627 (cdr --dolist-temp--56627))) (let ((--dolist-temp--56627 bits-list) bits) (while --dolist-temp--56627 (setq bits ...) (insert ...) (setq --dolist-temp--56627 ...)) nil) (catch (quote --cl-block-nil--) (let (... bits) (while --dolist-temp--56627 ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... bits) (while --dolist-temp--56627 ... ... ...) nil)) (dolist (bits bits-list) (insert (if ... "0 " "1 "))) (save-current-buffer (set-buffer temp-buffer) (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces)) (with-current-buffer temp-buffer (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces)) (unwind-protect (with-current-buffer temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ...) (and ... ...))) (with-temp-buffer (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces)) (while (< bit-number --dotimes-temp--56626) (setq mask (expt 2 bit-number)) (with-temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces)) (incf bit-number)) (let ((--dotimes-temp--56626 depth) (bit-number 0)) (while (< bit-number --dotimes-temp--56626) (setq mask ...) (with-temp-buffer ... ... ... ...) (incf bit-number)) nil) (catch (quote --cl-block-nil--) (let (... ...) (while ... ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... ...) (while ... ... ... ...) nil)) (dotimes (bit-number depth) (setq mask (expt 2 bit-number)) (with-temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ ]*[*\\\\/]/d; s/[ ]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces))) (save-current-buffer (set-buffer temp-buffer) (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...))) (with-current-buffer temp-buffer (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...))) (unwind-protect (with-current-buffer temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ... ...) (and ... ...))) (with-temp-buffer (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...))) (progn (with-temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (dotimes (i ...) (insert ... ...))) (if (file-exists-p file) (progn (with-temp-buffer ... ... ... ... ... ...) (dotimes ... ...))) (when (file-exists-p file) (with-temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (dotimes (i ...) (insert ... ...))) (let* ((mapfile ...) (levels ...) (step ...) color-alist bits bits-list mask pixel x-faces) (with-temp-file mapfile (insert "P3\n") (insert ...) (insert "255\n") (dotimes ... ... ...)) (when (file-exists-p file) (with-temp-buffer ... ... ... ... ... ...) (dotimes ... ...)) (delete-file mapfile)) gnus-convert-image-to-gray-x-face("~/doomicon.gif" 1) Cheers, Ray -- It's clear that whoever set up the font colorings for most programming modes has seen too many Peter Max posters, or did more acid than I did in the 60's. (Charles R. Martin in gnu.emacs.help)