Mercurial > hg > xemacs-beta

comparison lisp/w3/images.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 8fc7fe29b841
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1 ;;; images.el --- Automatic image converters 1 ;;; images.el --- Automatic image converters
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/13 15:01:57 3 ;; Created: 1997/02/26 16:21:01
4 ;; Version: 1.8 4 ;; Version: 1.9
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.
147 (erase-buffer) 147 (erase-buffer)
148 (insert data) 148 (insert data)
149 (while chain 149 (while chain
150 (cond 150 (cond
151 ((stringp (car chain)) 151 ((stringp (car chain))
152 (shell-command-on-region (point-min) (point-max) 152 (let ((file-coding-system mule-no-coding-system))
153 (concat 153 (call-process-region
154 "/bin/sh -c '" 154 (point-min) (point-max)
155 (car chain) 155 shell-file-name t
156 " 2> /dev/null" 156 (list (current-buffer) nil)
157 "'") t)) 157 shell-command-switch
158 (car chain))))
158 ((and (symbolp (car chain)) (fboundp (car chain))) 159 ((and (symbolp (car chain)) (fboundp (car chain)))
159 (funcall (car chain) (point-min) (point-max)))) 160 (funcall (car chain) (point-min) (point-max))))
160 (setq chain (cdr chain))) 161 (setq chain (cdr chain)))
161 (setq data (buffer-string)) 162 (setq data (buffer-string))
162 (kill-buffer (current-buffer))) 163 (kill-buffer (current-buffer)))