diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/dos-w32.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/dos-w32.el')
| -rw-r--r-- | lisp/dos-w32.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index 20b04e0db34..36832df3c67 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -290,7 +290,7 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." (defun direct-print-region-helper (printer start end lpr-prog - delete-text buf display + _delete-text _buf _display rest) (let* (;; Ignore case when matching known external program names. (case-fold-search t) @@ -381,9 +381,9 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." (declare-function default-printer-name "w32fns.c") (defun direct-print-region-function (start end - &optional lpr-prog - delete-text buf display - &rest rest) + &optional lpr-prog + delete-text buf display + &rest rest) "DOS/Windows-specific function to print the region on a printer. Writes the region to the device or file which is a value of `printer-name' \(which see\), unless the value of `lpr-command' @@ -399,7 +399,7 @@ indicates a specific program should be invoked." ;; paper if the file ends with a form-feed already. (write-region-annotate-functions (cons - (lambda (start end) + (lambda (_start end) (if (not (char-equal (char-before end) ?\C-l)) `((,end . "\f")))) write-region-annotate-functions)) |