diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:12:22 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:12:22 +0000 |
| commit | 81ce287c3374d5806c68dfc12e4c4f50dd18aefa (patch) | |
| tree | 011ecc4771202e784344de8f924a21f0073f904f /lisp/ps-print.el | |
| parent | 021c7d9720b14dd5394c43cbc29c10138f63b036 (diff) | |
| download | emacs-81ce287c3374d5806c68dfc12e4c4f50dd18aefa.tar.gz | |
(ps-background, ps-begin-file, ps-build-reference-face-lists):
Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index f3f9e45fb87..9d6f1dec34b 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -5028,15 +5028,15 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th (defun ps-background (page-number) (let (has-local-background) - (mapcar #'(lambda (range) - (and (<= (aref range 0) page-number) - (<= page-number (aref range 1)) - (if has-local-background - (ps-output (aref range 2)) - (setq has-local-background t) - (ps-output "/printLocalBackground{\n" - (aref range 2))))) - ps-background-pages) + (mapc #'(lambda (range) + (and (<= (aref range 0) page-number) + (<= page-number (aref range 1)) + (if has-local-background + (ps-output (aref range 2)) + (setq has-local-background t) + (ps-output "/printLocalBackground{\n" + (aref range 2))))) + ps-background-pages) (and has-local-background (ps-output "}def\n")))) @@ -5672,7 +5672,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") (ps-output "\n" ps-print-prologue-1 "\n/printGlobalBackground{\n") - (mapcar 'ps-output ps-background-all-pages) + (mapc 'ps-output ps-background-all-pages) (ps-output "}def\n/printLocalBackground{\n}def\n" "\n%%EndProlog\n\n%%BeginSetup\n" @@ -6459,10 +6459,10 @@ If FACE is not a valid face name, use default face." ;; Now, rebuild reference face lists (setq ps-print-face-alist nil) (if ps-auto-font-detect - (mapcar 'ps-map-face (face-list)) - (mapcar 'ps-set-face-bold ps-bold-faces) - (mapcar 'ps-set-face-italic ps-italic-faces) - (mapcar 'ps-set-face-underline ps-underlined-faces)) + (mapc 'ps-map-face (face-list)) + (mapc 'ps-set-face-bold ps-bold-faces) + (mapc 'ps-set-face-italic ps-italic-faces) + (mapc 'ps-set-face-underline ps-underlined-faces)) (setq ps-build-face-reference nil)) |