Re: ps-print variables interactive setting

[Lennart Borgman (gmail)]

Rodolfo Medina wrote:
> (defun my-manage-ps-font-size ()
>   (interactive)
>   (let* ((prompt1 (read-from-minibuffer "Font size? "))
>        (prompt2 (format "(quote (7 . %s))" prompt1))
>        )
>   (setq ps-font-size prompt2)
>     )
> )
> 
> 
> , but it seems that the variable's value is put between "" and so it is not
> accepted.  I need help in this point.  Thanks to anyone still helping.


Maybe like this

(defun my-manage-ps-font-size ()
  (interactive)
  (let ((font-size (read-number "Font size? ")))
    (setq ps-font-size (cons 7 font-size))))