From: ueno <ueno>
Date: Sat, 27 Apr 2002 17:54:58 +0000 (+0000)
Subject: * xbm-thumb.el: Removed.
X-Git-Tag: lsdb-0_2~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=632f50c4c80e1ec856abe3221af70b4e07909ec7;p=elisp%2Flsdb.git

* xbm-thumb.el: Removed.
* LSDB-ELS (lsdb-modules-to-compile): Remove xbm-thumb.
---

diff --git a/LSDB-ELS b/LSDB-ELS
index e0b9385..9182139 100644
--- a/LSDB-ELS
+++ b/LSDB-ELS
@@ -5,7 +5,7 @@
 ;;; Code:
 
 (setq lsdb-modules-to-compile
-      '(xbm-thumb lsdb))
+      '(lsdb))
 
 (setq lsdb-modules-not-to-compile nil)
 
diff --git a/xbm-thumb.el b/xbm-thumb.el
deleted file mode 100644
index 5005ea5..0000000
--- a/xbm-thumb.el
+++ /dev/null
@@ -1,89 +0,0 @@
-;;; xbm-thumb.el --- create XBM thumbnail under Emacs.
-;; Copyright (C) 2000 Daiki Ueno
-
-;; Author: Daiki Ueno <ueno@unixuser.org>
-;; Created: 2000-02-26
-;; Keywords: xbm, image
-
-;; This file is not part of any package.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-
-;;; Commentary:
-;; 
-
-;;; Code:
-
-(defvar xbm-thumb-dot-threshold 1)
-
-(defun xbm-thumb-fold-left (function accu sequence)
-  (if (null sequence) accu
-    (xbm-thumb-fold-left
-     function (funcall function accu (car sequence))
-     (cdr sequence))))
-
-(defun xbm-thumb-aggregate-block (b1 b2)
-  (let ((idx 128) (result 0))
-    (while (> idx 1)
-      (setq result
-	    (logior (lsh result 1)
-		    (if (< xbm-thumb-dot-threshold
-			   (xbm-thumb-fold-left
-			    #'+ 0 (list
-				   (logand b1 idx)
-				   (logand b1 (lsh idx -1))
-				   (logand b2 idx)
-				   (logand b2 (lsh idx -1)))))
-			1 0))
-	    idx (lsh idx -2)))
-    result))
-
-(defun xbm-thumb-aggregate-row (row)
-  (let ((len (/ (length row) 2))
-	(result "")
-	(i 0))
-    (while (< i len)
-      (setq result
-	    (format "%s\\x%02x" result
-		    (logior
-		     (lsh (xbm-thumb-aggregate-block
-			   (aref row (1+ i)) (aref row (+ i 1 len))) 4)
-		     (xbm-thumb-aggregate-block
-		      (aref row i) (aref row (+ i len)))))
-	    i (+ i 2)))
-    result))
-
-;;;###autoload
-(defun xbm-make-thumbnail (data)
-  "Create XBM thumbnail."
-  (let* ((string (nth 2 data))
-	 (len (length string))
-	 (width (/ (car data) 8))
-	 (result "")
-	 (i 0))
-    (while (< i len)
-      (setq result
-	    (concat result
-		    (xbm-thumb-aggregate-row
-		     (substring string i (setq i (+ i (* 2 width))))))))
-    (list
-     (/ (car data) 2) (/ (nth 1 data) 2)
-     (car (read-from-string (concat "\"" result "\""))))))
-
-(provide 'xbm-thumb)
-
-;;; xbm-thumb.el ends here