Function: pp--insert-lisp

pp--insert-lisp is a byte-compiled function defined in pp.el.gz.

Signature

(pp--insert-lisp SEXP)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/pp.el.gz
(defun pp--insert-lisp (sexp)
  (cl-case (type-of sexp)
    (vector (pp--format-vector sexp))
    (cons (cond
           ((consp (cdr sexp))
            (let ((head (car sexp)))
              (if-let* (((null (cddr sexp)))
                        (syntax-entry (assq head pp--quoting-syntaxes)))
                  (progn
                    (insert (cdr syntax-entry))
                    (pp--insert-lisp (cadr sexp)))
                (pp--format-list sexp))))
           (t
            (pp--format-list sexp))))
    ;; Print some of the smaller integers as characters, perhaps?
    (integer
     (if (<= ?0 sexp ?z)
         (princ (prin1-char sexp) (current-buffer))
       (prin1 sexp (current-buffer))))
    (string
     (let ((print-escape-newlines t))
       (prin1 sexp (current-buffer))))
    (otherwise (prin1 sexp (current-buffer)))))