aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Nicolaescu2007-10-21 19:35:11 +0000
committerDan Nicolaescu2007-10-21 19:35:11 +0000
commit200fe89b7c0a1615438f7a70767e25c623bdef9c (patch)
treeae562a80f3cd6ba843de86a6be8b7d94b8a693a4
parentf82460271ec718957a1ae311c2cdbd8f7d5ca8c4 (diff)
downloademacs-200fe89b7c0a1615438f7a70767e25c623bdef9c.tar.gz
emacs-200fe89b7c0a1615438f7a70767e25c623bdef9c.zip
* w32-fns.el (w32-quote-process-args):
* dos-w32.el (print-region-function, lpr-headers-switches) (ps-print-region-function): Pacify byte-compiler.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/dos-w32.el3
-rw-r--r--lisp/w32-fns.el2
3 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f03f5cc953d..3651264b281 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
12007-10-21 Dan Nicolaescu <dann@ics.uci.edu> 12007-10-21 Dan Nicolaescu <dann@ics.uci.edu>
2 2
3 * w32-fns.el (w32-quote-process-args):
4 * dos-w32.el (print-region-function, lpr-headers-switches)
5 (ps-print-region-function): Pacify byte-compiler.
6
3 * emulation/edt-mapper.el (function-key-map): 7 * emulation/edt-mapper.el (function-key-map):
4 (edt-map-key): Make it a function instead of using fset. Inline 8 (edt-map-key): Make it a function instead of using fset. Inline
5 edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs. 9 edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs.
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index 0de7f096507..28cab4ccbcb 100644
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -404,6 +404,8 @@ indicates a specific program should be invoked."
404 (direct-print-region-helper printer start end lpr-prog 404 (direct-print-region-helper printer start end lpr-prog
405 delete-text buf display rest))) 405 delete-text buf display rest)))
406 406
407(defvar print-region-function)
408(defvar lpr-headers-switches)
407(setq print-region-function 'direct-print-region-function) 409(setq print-region-function 'direct-print-region-function)
408 410
409;; Set this to nil if you have a port of the `pr' program 411;; 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 (direct-print-region-helper printer start end lpr-prog 437 (direct-print-region-helper printer start end lpr-prog
436 delete-text buf display rest))) 438 delete-text buf display rest)))
437 439
440(defvar ps-print-region-function)
438(setq ps-print-region-function 'direct-ps-print-region-function) 441(setq ps-print-region-function 'direct-ps-print-region-function)
439 442
440;(setq ps-lpr-command "gs") 443;(setq ps-lpr-command "gs")
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 3a3695466fa..dc4a83df85b 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -82,6 +82,8 @@ That includes all Windows systems except for 9X/Me."
82 '("cmdproxy" "cmdproxy.exe")) 82 '("cmdproxy" "cmdproxy.exe"))
83 (w32-system-shell-p (getenv "COMSPEC"))))) 83 (w32-system-shell-p (getenv "COMSPEC")))))
84 84
85(defvar w32-quote-process-args) ;; defined in w32proc.c
86
85(defun w32-check-shell-configuration () 87(defun w32-check-shell-configuration ()
86 "Check the configuration of shell variables on Windows NT/9X. 88 "Check the configuration of shell variables on Windows NT/9X.
87This function is invoked after loading the init files and processing 89This function is invoked after loading the init files and processing