[Emacs-diffs] emacs-24 r117357: * lisp/emacs-lisp/edebug.el (edebug-eval-defun): Print result using

[Stefan Monnier]

------------------------------------------------------------
revno: 117357
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17934
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-07-05 15:11:59 -0400
message:
  * lisp/emacs-lisp/edebug.el (edebug-eval-defun): Print result using
  proper Lisp quoting.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/edebug.el      edebug.el-20091113204419-o5vbwnq5f7feedwu-483

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-05 18:37:45 +0000
+++ b/lisp/ChangeLog    2014-07-05 19:11:59 +0000
@@ -1,5 +1,8 @@
 2014-07-05  Stefan Monnier  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2014-02-25 21:55:45 +0000
+++ b/lisp/emacs-lisp/edebug.el 2014-07-05 19:11:59 +0000
@@ -497,7 +497,7 @@
     (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)))