Commit 200fe89b authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* w32-fns.el (w32-quote-process-args):

* dos-w32.el (print-region-function, lpr-headers-switches)
(ps-print-region-function): Pacify byte-compiler.
parent f8246027
2007-10-21 Dan Nicolaescu <dann@ics.uci.edu> 2007-10-21 Dan Nicolaescu <dann@ics.uci.edu>
* w32-fns.el (w32-quote-process-args):
* dos-w32.el (print-region-function, lpr-headers-switches)
(ps-print-region-function): Pacify byte-compiler.
* emulation/edt-mapper.el (function-key-map): * emulation/edt-mapper.el (function-key-map):
(edt-map-key): Make it a function instead of using fset. Inline (edt-map-key): Make it a function instead of using fset. Inline
edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs. edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs.
......
...@@ -404,6 +404,8 @@ indicates a specific program should be invoked." ...@@ -404,6 +404,8 @@ indicates a specific program should be invoked."
(direct-print-region-helper printer start end lpr-prog (direct-print-region-helper printer start end lpr-prog
delete-text buf display rest))) delete-text buf display rest)))
(defvar print-region-function)
(defvar lpr-headers-switches)
(setq print-region-function 'direct-print-region-function) (setq print-region-function 'direct-print-region-function)
;; Set this to nil if you have a port of the `pr' program ;; Set this to nil if you have a port of the `pr' program
...@@ -435,6 +437,7 @@ indicates a specific program should be invoked." ...@@ -435,6 +437,7 @@ indicates a specific program should be invoked."
(direct-print-region-helper printer start end lpr-prog (direct-print-region-helper printer start end lpr-prog
delete-text buf display rest))) delete-text buf display rest)))
(defvar ps-print-region-function)
(setq ps-print-region-function 'direct-ps-print-region-function) (setq ps-print-region-function 'direct-ps-print-region-function)
;(setq ps-lpr-command "gs") ;(setq ps-lpr-command "gs")
......
...@@ -82,6 +82,8 @@ That includes all Windows systems except for 9X/Me." ...@@ -82,6 +82,8 @@ That includes all Windows systems except for 9X/Me."
'("cmdproxy" "cmdproxy.exe")) '("cmdproxy" "cmdproxy.exe"))
(w32-system-shell-p (getenv "COMSPEC"))))) (w32-system-shell-p (getenv "COMSPEC")))))
(defvar w32-quote-process-args) ;; defined in w32proc.c
(defun w32-check-shell-configuration () (defun w32-check-shell-configuration ()
"Check the configuration of shell variables on Windows NT/9X. "Check the configuration of shell variables on Windows NT/9X.
This function is invoked after loading the init files and processing This function is invoked after loading the init files and processing
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment