Commit 72ee93d6 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 8e05cb61
......@@ -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
......
......@@ -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
......
......@@ -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 ...)
......
......@@ -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
......
......@@ -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
......
......@@ -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)
......
......@@ -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
......
......@@ -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.
......
......@@ -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
......
......@@ -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
......
......@@ -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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment