comparison lisp/emacs-lisp/lisp-mode.el @ 55829:fcd2e17daffa

(prin1-char): Catch errors from `string'. (eval-last-sexp-print-value): Print char equivalent regardless of standard-output value.

55828:af9432138635

		   (t (string ?\\ (upcase (aref (symbol-name modif) 0)) ?-))))
	   (event-modifiers char) "")
	  (cond
	   ((memq c '(?\; ?\( ?\) ?\{ ?\} ?\[ ?\] ?\" ?\' ?\\)) (string ?\\ c))
	   ((eq c 127) "\\C-?")
	   (t (string c)))))))

(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
  "Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer."
  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))

	(print-level eval-expression-print-level)
	(beg (point))
	end)
    (prog1
	(prin1 value)
      (if (eq standard-output t)
          (let ((str (eval-expression-print-format value)))
            (if str (princ str))))
      (setq end (point))
      (when (and (bufferp standard-output)
		 (or (not (null print-length))
		     (not (null print-level)))
		 (not (string= unabbreviated

55829:fcd2e17daffa

		   (t (string ?\\ (upcase (aref (symbol-name modif) 0)) ?-))))
	   (event-modifiers char) "")
	  (cond
	   ((memq c '(?\; ?\( ?\) ?\{ ?\} ?\[ ?\] ?\" ?\' ?\\)) (string ?\\ c))
	   ((eq c 127) "\\C-?")
	   (t
	    (condition-case nil
		(string c)
	      (error nil))))))))

(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
  "Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer."
  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))

	(print-level eval-expression-print-level)
	(beg (point))
	end)
    (prog1
	(prin1 value)
      (let ((str (eval-expression-print-format value)))
	(if str (princ str)))
      (setq end (point))
      (when (and (bufferp standard-output)
		 (or (not (null print-length))
		     (not (null print-level)))
		 (not (string= unabbreviated