* src/print.c (syms_of_print) <print_quoted>: Set default to true

6 files changed, 13 insertions, 13 deletions

diff --git a/doc/lispref/buffers.texi b/doc/lispref/buffers.texi
index 3f43b1bb3b7..7e41eb32cce 100644
--- a/doc/lispref/buffers.texi
+++ b/doc/lispref/buffers.texi
@@ -815,7 +815,7 @@ regardless of which frames they were displayed on.
 @group
 ;; @r{Note that the name of the minibuffer}
 ;;   @r{begins with a space!}
-(mapcar (function buffer-name) (buffer-list))
+(mapcar #'buffer-name (buffer-list))
     @result{} ("buffers.texi" " *Minibuf-1*"
         "buffer.c" "*Help*" "TAGS")
 @end group
diff --git a/doc/lispref/debugging.texi b/doc/lispref/debugging.texi
index cb6f6e96b02..f937184e73a 100644
--- a/doc/lispref/debugging.texi
+++ b/doc/lispref/debugging.texi
@@ -646,7 +646,7 @@ forms are elided.
   (list ...computing arguments...)
 @end group
   (progn ...)
-  eval((progn (1+ var) (list (quote testing) (backtrace))))
+  eval((progn (1+ var) (list 'testing (backtrace))))
   (setq ...)
   (save-excursion ...)
   (let ...)
@@ -677,7 +677,7 @@ example would look as follows:
   (list ...computing arguments...)
 @end group
   (progn ...)
-  (eval (progn (1+ var) (list (quote testing) (backtrace))))
+  (eval (progn (1+ var) (list 'testing (backtrace))))
   (setq ...)
   (save-excursion ...)
   (let ...)
diff --git a/doc/lispref/eval.texi b/doc/lispref/eval.texi
index b5d19f20c2d..4e8b0df7b58 100644
--- a/doc/lispref/eval.texi
+++ b/doc/lispref/eval.texi
@@ -580,15 +580,15 @@ Here are some examples of expressions that use @code{quote}:
 @end group
 @group
 ''foo
-     @result{} (quote foo)
+     @result{} 'foo
 @end group
 @group
 '(quote foo)
-     @result{} (quote foo)
+     @result{} 'foo
 @end group
 @group
 ['foo]
-     @result{} [(quote foo)]
+     @result{} ['foo]
 @end group
 @end example
 
diff --git a/doc/lispref/lists.texi b/doc/lispref/lists.texi
index 431f5fbbab2..3e2dd13c706 100644
--- a/doc/lispref/lists.texi
+++ b/doc/lispref/lists.texi
@@ -1141,7 +1141,7 @@ each time you run it!  Here is what happens:
 
 @group
 (symbol-function 'add-foo)
-     @result{} (lambda (x) (nconc (quote (foo)) x))
+     @result{} (lambda (x) (nconc '(foo) x))
 @end group
 
 @group
@@ -1159,7 +1159,7 @@ each time you run it!  Here is what happens:
 
 @group
 (symbol-function 'add-foo)
-     @result{} (lambda (x) (nconc (quote (foo 1 2 3 4) x)))
+     @result{} (lambda (x) (nconc '(foo 1 2 3 4) x))
 @end group
 @end smallexample
 @end defun
diff --git a/doc/lispref/loading.texi b/doc/lispref/loading.texi
index 92b7e864ab5..0165d114a75 100644
--- a/doc/lispref/loading.texi
+++ b/doc/lispref/loading.texi
@@ -641,7 +641,7 @@ autoloading with a magic comment:
 Here's what that produces in @file{loaddefs.el}:
 
 @example
-(autoload (quote doctor) "doctor" "\
+(autoload 'doctor "doctor" "\
 Switch to *doctor* buffer and start giving psychotherapy.
 
 \(fn)" t nil)
diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi
index 3a599e5f535..80079bcfb00 100644
--- a/doc/lispref/sequences.texi
+++ b/doc/lispref/sequences.texi
@@ -1298,9 +1298,9 @@ not evaluate or even examine the elements of the vector.
 @example
 @group
 (setq avector [1 two '(three) "four" [five]])
-     @result{} [1 two (quote (three)) "four" [five]]
+     @result{} [1 two '(three) "four" [five]]
 (eval avector)
-     @result{} [1 two (quote (three)) "four" [five]]
+     @result{} [1 two '(three) "four" [five]]
 (eq avector (eval avector))
      @result{} t
 @end group
@@ -1390,9 +1390,9 @@ list with the same elements:
 @example
 @group
 (setq avector [1 two (quote (three)) "four" [five]])
-     @result{} [1 two (quote (three)) "four" [five]]
+     @result{} [1 two '(three) "four" [five]]
 (append avector nil)
-     @result{} (1 two (quote (three)) "four" [five])
+     @result{} (1 two '(three) "four" [five])
 @end group
 @end example