Mercurial > hg > xemacs-beta

comparison lisp/w3/images.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; images.el --- Automatic image converters 1 ;;; images.el --- Automatic image converters
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/10 00:13:05 3 ;; Created: 1997/02/06 15:26:06
4 ;; Version: 1.6 4 ;; Version: 1.7
5 ;; Keywords: images 5 ;; Keywords: images
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1995 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1995 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation Inc.
28 28
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;;; The emacsen compatibility package - load it up before anything else 30 ;;; The emacsen compatibility package - load it up before anything else
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 (eval-and-compile 32 (eval-and-compile
33 (require 'w3-sysdp)) 33 (if (not (and (string-match "XEmacs" emacs-version)
34 (or (> emacs-major-version 19)
35 (>= emacs-minor-version 14))))
36 (require 'w3-sysdp)))
34 37
35 (defvar image-temp-stack nil "Do no touch - internal storage.") 38 (defvar image-temp-stack nil "Do no touch - internal storage.")
36 (defvar image-converters nil "Storage for the image converters.") 39 (defvar image-converters nil "Storage for the image converters.")
37 (defvar image-native-formats 40 (defvar image-native-formats
38 (delq nil (cons (if (featurep 'x) 'xbm) 41 (delq nil (cons (if (featurep 'x) 'xbm)