RE: An elisp question

["Drew Adams" <drew.adams@oracle.com>]

> I have a set of `setq' conditions that I wish to group into a 
> function and put inside another function:
> 
> (defun my-test ()
>   (interactive)
>   (if (equal (y-or-n-p "Yes or no? ") t)
>       (setq ps-print-footer t
> 	    ps-print-footer-frame nil
> 	    ps-top-margin 18
> 	    ps-bottom-margin 5
> 	    ps-left-margin 9
> 	    ps-right-margin 7
> 	    ps-print-header nil
> 	    ps-show-n-of-n nil
> 	    ps-print-footer-frame nil
> 	    ps-footer-lines 1
> 	    ps-left-footer (quote ( ))
> 	    ps-footer-offset 0
> 	    )
>     (message "hallo")))
> 
> How can I group all those `setq' conditions into a function 
> and put that function name in place of them in `my-test'
> definition?

(defun foo ()
  (setq ps-print-footer t
	  ps-print-footer-frame nil
	  ps-top-margin 18
	  ps-bottom-margin 5
	  ps-left-margin 9
	  ps-right-margin 7
	  ps-print-header nil
	  ps-show-n-of-n nil
	  ps-print-footer-frame nil
	  ps-footer-lines 1
	  ps-left-footer (quote ( ))
	  ps-footer-offset 0))

(defun my-test ()
  (interactive)
  (if (equal (y-or-n-p "Yes or no? ") t)
      (foo)
    (message "hallo")))

Is this some kind of homework assignment? ;-)