Function: pr-interactive-n-up

pr-interactive-n-up is a byte-compiled function defined in printing.el.gz.

Signature

(pr-interactive-n-up MESS)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-interactive-n-up (mess)
  (unless (stringp mess)
    (setq mess "*"))
  (let (int)
    (while (or (< (setq int (read-number (format "[%s] N-up printing:" mess) 1))
                  0)
               (> int 100))
      (if (< int 0)
	  (message "Integer below 1")
	(message "Integer above 100"))
      (sit-for 1)
      (ding))
    int))