Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-shell.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 8fc7fe29b841
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; 2 ;;
3 ;; File: dired-shell.el 3 ;; File: dired-shell.el
4 ;; Dired Version: $Revision: 1.1 $ 4 ;; Dired Version: $Revision: 1.2 $
5 ;; RCS: 5 ;; RCS:
6 ;; Description: Commands for running shell commands on marked files. 6 ;; Description: Commands for running shell commands on marked files.
7 ;; 7 ;;
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 9
13 (autoload 'comint-mode "comint") 13 (autoload 'comint-mode "comint")
14 14
15 ;;; Variables 15 ;;; Variables
16 16
17 (defvar dired-postscript-print-command 17 (defvar dired-postscript-print-command
18 (concat 18 (condition-case nil
19 (if (boundp 'lpr-command) 19 (progn
20 lpr-command 20 (require 'ps-print)
21 (if (memq system-type 21 (concat ps-lpr-command
22 '(usg-unix-v hpux silicon-graphics-unix)) 22 " "
23 "lp" 23 (ps-flatten-list (mapcar 'ps-eval-switch ps-lpr-switches))))
24 "lpr")) 24 (error
25 (if (and (boundp 'lpr-switches) lpr-switches) 25 (concat
26 (concat " " 26 (if (boundp 'lpr-command)
27 (mapconcat 'identity lpr-switches " ") 27 lpr-command
28 " ") 28 (if (memq system-type
29 " ")) 29 '(usg-unix-v hpux silicon-graphics-unix))
30 "Command to print a postscript file.") 30 "lp"
31 31 "lpr"))
32 (defvar dired-text-print-command (concat dired-postscript-print-command " -p") 32 (if (and (boundp 'lpr-switches) lpr-switches)
33 (concat " "
34 (mapconcat 'identity lpr-switches " ")
35 " ")
36 " "))))
37 "Command to print a postscript file.")
38
39 (defvar dired-text-print-command (concat dired-postscript-print-command "-p ")
33 "Command to print a text file.") 40 "Command to print a text file.")
34 41
35 (defvar dired-print-program-alist 42 (defvar dired-print-program-alist
36 (list 43 (list
37 (cons "\\.gif$" (concat "giftoppm * | ppmtopgm | pnmtops | " 44 (cons "\\.gif$" (concat "giftoppm * | ppmtopgm | pnmtops | "