comparison lisp/emacs-lisp/lisp-mode.el @ 25723:5984b9cfea66

(eval-last-sexp): Use prin1 instead of print.

25722:2be6ced279d3

							'args)))))
			   expr))
		     (set-syntax-table stab))))))
      (let ((print-length eval-expression-print-length)
	    (print-level eval-expression-print-level))
	(print value)))))

;; Change defvar into defconst within FORM,
;; and likewise for other constructs as necessary.
(defun eval-defun-1 (form)
  (cond ((and (eq (car form) 'defvar)

25723:5984b9cfea66

							'args)))))
			   expr))
		     (set-syntax-table stab))))))
      (let ((print-length eval-expression-print-length)
	    (print-level eval-expression-print-level))
	(prin1 value)))))

;; Change defvar into defconst within FORM,
;; and likewise for other constructs as necessary.
(defun eval-defun-1 (form)
  (cond ((and (eq (car form) 'defvar)