From 9d8563ca18083c01f91aab6a2c84bcffbbbaf49e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 13 Aug 2007 05:35:43 +0000 Subject: [PATCH] (autoload-print-form): Use print-quoted. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/autoload.el | 2 ++ 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3104d7110de..ebfb0fc3792 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-08-13 Stefan Monnier + + * emacs-lisp/autoload.el (autoload-print-form): Use print-quoted. + 2007-08-12 Richard Stallman * progmodes/sh-script.el (sh): Delete group `unix'. diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 5eb9b8ce621..14877e1b18f 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -209,6 +209,7 @@ put the output in." (setcdr p nil) (princ "\n(" outbuf) (let ((print-escape-newlines t) + (print-quoted t) (print-escape-nonascii t)) (dolist (elt form) (prin1 elt outbuf) @@ -232,6 +233,7 @@ put the output in." outbuf)) (terpri outbuf))) (let ((print-escape-newlines t) + (print-quoted t) (print-escape-nonascii t)) (print form outbuf))))))) -- 2.39.2