diff options
| author | Dan Nicolaescu | 2007-10-21 19:35:11 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2007-10-21 19:35:11 +0000 |
| commit | 200fe89b7c0a1615438f7a70767e25c623bdef9c (patch) | |
| tree | ae562a80f3cd6ba843de86a6be8b7d94b8a693a4 | |
| parent | f82460271ec718957a1ae311c2cdbd8f7d5ca8c4 (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/dos-w32.el | 3 | ||||
| -rw-r--r-- | lisp/w32-fns.el | 2 |
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 @@ | |||
| 1 | 2007-10-21 Dan Nicolaescu <dann@ics.uci.edu> | 1 | 2007-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. |
| 87 | This function is invoked after loading the init files and processing | 89 | This function is invoked after loading the init files and processing |