Mercurial > hg > xemacs-beta

comparison lisp/w3/images.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 5a88923fcbfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1 ;;; images.el --- Automatic image converters 1 ;;; images.el --- Automatic image converters
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/26 16:21:01 3 ;; Created: 1997/03/11 19:28:30
4 ;; Version: 1.9 4 ;; Version: 1.10
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.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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 (require 'mule-sysdp)
33
32 (eval-and-compile 34 (eval-and-compile
33 (if (not (and (string-match "XEmacs" emacs-version) 35 (if (not (and (string-match "XEmacs" emacs-version)
34 (or (> emacs-major-version 19) 36 (or (> emacs-major-version 19)
35 (>= emacs-minor-version 14)))) 37 (>= emacs-minor-version 14))))
36 (require 'w3-sysdp))) 38 (require 'w3-sysdp)))
147 (erase-buffer) 149 (erase-buffer)
148 (insert data) 150 (insert data)
149 (while chain 151 (while chain
150 (cond 152 (cond
151 ((stringp (car chain)) 153 ((stringp (car chain))
152 (let ((file-coding-system mule-no-coding-system)) 154 (let ((coding-system-for-read 'no-conversion)
155 (coding-system-for-write 'no-conversion))
153 (call-process-region 156 (call-process-region
154 (point-min) (point-max) 157 (point-min) (point-max)
155 shell-file-name t 158 shell-file-name t
156 (list (current-buffer) nil) 159 (list (current-buffer) nil)
157 shell-command-switch 160 shell-command-switch