[Emacs-diffs] master 72ee93d: * src/print.c (syms_of_print) <print_quoted>: Set default to true

[Stefan Monnier]

branch: master
commit 72ee93d68daea00e2ee69417afd4e31b3145a9fa
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * src/print.c (syms_of_print) <print_quoted>: Set default to true
---
 doc/lispintro/emacs-lisp-intro.texi | 4 ++--
 doc/lispref/buffers.texi            | 2 +-
 doc/lispref/debugging.texi          | 4 ++--
 doc/lispref/eval.texi               | 6 +++---
 doc/lispref/lists.texi              | 4 ++--
 doc/lispref/loading.texi            | 2 +-
 doc/lispref/sequences.texi          | 8 ++++----
 doc/misc/ede.texi                   | 6 +++---
 doc/misc/efaq.texi                  | 4 ++--
 doc/misc/org.texi                   | 2 +-
 etc/NEWS                            | 3 +++
 src/print.c                         | 2 +-
 12 files changed, 25 insertions(+), 22 deletions(-)

diff --git a/doc/lispintro/emacs-lisp-intro.texi 
b/doc/lispintro/emacs-lisp-intro.texi
index ab9144f..8b24cc1 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -2095,7 +2095,7 @@ You will create and enter a @file{*Backtrace*} buffer 
that says:
 Debugger entered--Lisp error:
          (wrong-type-argument number-or-marker-p hello)
   +(2 hello)
-  eval((+ 2 (quote hello)))
+  eval((+ 2 'hello))
   eval-last-sexp-1(nil)
   eval-last-sexp(nil)
   call-interactively(eval-last-sexp)
@@ -16740,7 +16740,7 @@ It will look like this:
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
- '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify))))
+ '(text-mode-hook '(turn-on-auto-fill text-mode-hook-identify)))
 @end group
 @end smallexample
 
diff --git a/doc/lispref/buffers.texi b/doc/lispref/buffers.texi
index 3f43b1b..7e41eb3 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 cb6f6e9..f937184 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 b5d19f2..4e8b0df 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 431f5fb..3e2dd13 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 92b7e86..0165d11 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 3a599e5..80079bc 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
 
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index fbe3ac6..88dc9e9 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -1824,7 +1824,7 @@ This class implements the @code{ede-cpp-root} project 
type.
 @table @code
 @item :include-path
 Type: @code{list} @*
-Default Value: @code{(quote ("/include" "../include/"))}
+Default Value: @code{("/include" "../include/")}
 
 The default locate function expands filenames within a project.
 If a header file (.h, .hh, etc.)@: name is expanded, and
@@ -2262,14 +2262,14 @@ The variable GNUSTEP_INSTALLATION_DOMAIN is set at this 
value.
 
 @item :preamble
 Type: @code{(or null list)} @*
-Default Value: @code{(quote ("GNUmakefile.preamble"))}
+Default Value: @code{("GNUmakefile.preamble")}
 
 The auxiliary makefile for additional variables.
 Included just before the specific target files.
 
 @item :postamble
 Type: @code{(or null list)} @*
-Default Value: @code{(quote ("GNUmakefile.postamble"))}
+Default Value: @code{("GNUmakefile.postamble")}
 
 The auxiliary makefile for additional rules.
 Included just after the specific target files.
diff --git a/doc/misc/efaq.texi b/doc/misc/efaq.texi
index 8014c2b..3e67438 100644
--- a/doc/misc/efaq.texi
+++ b/doc/misc/efaq.texi
@@ -3652,7 +3652,7 @@ to bind the key is in the kill ring, and can be yanked 
into your
 command are required.  For example,
 
 @lisp
-(global-set-key (quote [f1]) (quote help-for-help))
+(global-set-key [f1] 'help-for-help)
 @end lisp
 
 @noindent
@@ -3663,7 +3663,7 @@ For example, in TeX mode, a local binding might be
 @lisp
 (add-hook 'tex-mode-hook
   (lambda ()
-   (local-set-key (quote [f1]) (quote help-for-help))))
+   (local-set-key [f1] 'help-for-help)))
 @end lisp
 
 
diff --git a/doc/misc/org.texi b/doc/misc/org.texi
index a252db4..f779417 100644
--- a/doc/misc/org.texi
+++ b/doc/misc/org.texi
@@ -18173,7 +18173,7 @@ Suggested Org crypt settings in Emacs init file:
 @lisp
 (require 'org-crypt)
 (org-crypt-use-before-save-magic)
-(setq org-tags-exclude-from-inheritance (quote ("crypt")))
+(setq org-tags-exclude-from-inheritance '("crypt"))
 
 (setq org-crypt-key nil)
   ;; GPG key to use for encryption
diff --git a/etc/NEWS b/etc/NEWS
index 1d546c4..abbedcf 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -198,6 +198,9 @@ as new-style, bind the new variable 
'force-new-style-backquotes' to t.
 
 * Lisp Changes in Emacs 27.1
 
+** 'print-quoted' now defaults to t, so if you want to see
+(quote x) instead of 'x you will have to bind it to nil where applicable.
+
 ** Internal parsing commands now use syntax-ppss and disregard
 open-paren-in-column-0-is-defun-start.  This affects mostly things like
 forward-comment, scan-sexps, and forward-sexp when parsing backward.
diff --git a/src/print.c b/src/print.c
index 47cb33d..0e1980d 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2366,7 +2366,7 @@ This affects only `prin1'.  */);
   DEFVAR_BOOL ("print-quoted", print_quoted,
               doc: /* Non-nil means print quoted forms with reader syntax.
 I.e., (quote foo) prints as \\='foo, (function foo) as #\\='foo.  */);
-  print_quoted = 0;
+  print_quoted = true;
 
   DEFVAR_LISP ("print-gensym", Vprint_gensym,
               doc: /* Non-nil means print uninterned symbols so they will read 
as uninterned.