Commit 152472ba authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(prin1-char): Catch errors from `string'.

(eval-last-sexp-print-value): Print char equivalent regardless
of standard-output value.
parent 3f71ad3a
......@@ -470,7 +470,10 @@ If CHAR is not a character, return nil."
(cond
((memq c '(?\; ?\( ?\) ?\{ ?\} ?\[ ?\] ?\" ?\' ?\\)) (string ?\\ c))
((eq c 127) "\\C-?")
(t (string 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.
......@@ -538,9 +541,8 @@ With argument, print output into current buffer."
end)
(prog1
(prin1 value)
(if (eq standard-output t)
(let ((str (eval-expression-print-format value)))
(if str (princ str))))
(let ((str (eval-expression-print-format value)))
(if str (princ str)))
(setq end (point))
(when (and (bufferp standard-output)
(or (not (null print-length))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment