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/ps-print.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.bz2 emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.zip | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index b51eb944696..3d1dbfb406a 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -4592,16 +4592,16 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th ps-print-height)))))) -(defun ps-print-preprint-region (prefix-arg) +(defun ps-print-preprint-region (prefix) (or (ps-mark-active-p) (error "The mark is not set now")) - (list (point) (mark) (ps-print-preprint prefix-arg))) + (list (point) (mark) (ps-print-preprint prefix))) -(defun ps-print-preprint (prefix-arg) - (and prefix-arg - (or (numberp prefix-arg) - (listp prefix-arg)) +(defun ps-print-preprint (prefix) + (and prefix + (or (numberp prefix) + (listp prefix)) (let* ((name (concat (file-name-nondirectory (or (buffer-file-name) (buffer-name))) ".ps")) @@ -6020,7 +6020,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") (ps-output " S\n") wrappoint)) -(defun ps-basic-plot-string (from to &optional bg-color) +(defun ps-basic-plot-string (from to &optional _bg-color) (let* ((wrappoint (ps-find-wrappoint from to (ps-avg-char-width 'ps-font-for-text))) (to (car wrappoint)) @@ -6029,7 +6029,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") (ps-output " S\n") wrappoint)) -(defun ps-basic-plot-whitespace (from to &optional bg-color) +(defun ps-basic-plot-whitespace (from to &optional _bg-color) (let* ((wrappoint (ps-find-wrappoint from to (ps-space-width 'ps-font-for-text))) (to (car wrappoint))) @@ -6658,7 +6658,7 @@ If FACE is not a valid face name, use default face." ;; But autoload them here to make the separation invisible. ;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize -;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "14536f28e0dcaa956901bb59ad86a875") +;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "179b43ee432338186dde9e8c4fe761af") ;;; Generated autoloads from ps-mule.el (defvar ps-multibyte-buffer nil "\ |