From: Stefan Monnier Date: Sat, 5 Jul 2014 19:11:59 +0000 (-0400) Subject: * lisp/emacs-lisp/edebug.el (edebug-eval-defun): Print result using X-Git-Tag: emacs-24.3.93~88 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b16a9348e471253f67ad4520f013184404c008a1;p=emacs.git * lisp/emacs-lisp/edebug.el (edebug-eval-defun): Print result using proper Lisp quoting. Fixes: debbugs:17934 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b34f9cf1fef..388adea5627 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2014-07-05 Stefan Monnier + * emacs-lisp/edebug.el (edebug-eval-defun): Print result using + proper Lisp quoting (bug#17934). + * progmodes/ruby-mode.el (ruby-mode-variables): Don't meddle with require-final-newline since prog-mode already took care of it (bug#17947). diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index e2d38ffe858..892fa7f2d37 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -497,7 +497,7 @@ the minibuffer." (setq edebug-result (eval (eval-sexp-add-defvars form) lexical-binding)) (if (not edebugging) (prog1 - (princ edebug-result) + (prin1 edebug-result) (let ((str (eval-expression-print-format edebug-result))) (if str (princ str)))) edebug-result)))