Mercurial > hg > xemacs-beta

comparison lisp/w3/images.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children 360340f9fd5f
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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/13 15:01:57
4 ;; Version: 1.6 4 ;; Version: 1.8
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)
162 (vector format ':data data))) 165 (vector format ':data data)))
163 166
164 (defun image-register-netpbm-utilities () 167 (defun image-register-netpbm-utilities ()
165 "Register all the netpbm utility packages converters." 168 "Register all the netpbm utility packages converters."
166 (interactive) 169 (interactive)
167 (if (image-converter-registered-p 'xpm 'gif) 170 (if (image-converter-registered-p 'pgm 'pbm)
168 nil 171 nil
169 (image-register-converter 'pgm 'pbm "pgmtopbm") 172 (image-register-converter 'pgm 'pbm "pgmtopbm")
170 (image-register-converter 'ppm 'pgm "ppmtopgm") 173 (image-register-converter 'ppm 'pgm "ppmtopgm")
171 (image-register-converter 'pnm 'xpm "(ppmquant 256 | ppmtoxpm)") 174 (image-register-converter 'pnm 'xpm "(ppmquant 256 | ppmtoxpm)")
172 (image-register-converter 'ppm 'xpm "(ppmquant 256 | ppmtoxpm)") 175 (image-register-converter 'ppm 'xpm "(ppmquant 256 | ppmtoxpm)")