mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
Merge from emacs-26
3434edc731Enlarge DUMPED_HEAP_SIZE for 64-bit Windows builds36bbdfc017Update Unicode data files to version 11.0.0 of Unicodeb7b7a5f4f3* etc/NEWS: Belatedly call out vc-hg changes in v26.1. (B...5b6f8b54d1Clarify the documentation of 'dired-recursive-deletes'9db97b49cd; * etc/DEBUG: Add information about debugging libXft prob...0214ffbe60Clarify doc string of 'update-glyphless-char-display'ef35d405b1Clarify subtle issues with 'eq' in byte-compiled codec6ef3c8321Make cl-print respect print-quoted (bug#31649)26b52ac40eFix unexpected jumps of window-point in 'set-window-config...4af077ab4d* etc/emacs.appdata.xml: Update Emacs screenshot.e5ab25deaeFix cursor movement by 'next-logical-line' after 'next-line'd20beef5f1Fix prompt in bookmark.el (Bug#24726)c57e7eaae8Improve documentation of 'empty' whitespace-style # Conflicts: # etc/NEWS
This commit is contained in:
commit
7adf1a361d
28 changed files with 1155 additions and 307 deletions
|
|
@ -61,11 +61,16 @@ call other entry points instead, such as `cl-prin1'."
|
|||
(princ "..." stream)
|
||||
(let ((car (pop object))
|
||||
(count 1))
|
||||
(if (and (memq car '(\, quote \` \,@ \,.))
|
||||
(if (and print-quoted
|
||||
(memq car '(\, quote function \` \,@ \,.))
|
||||
(consp object)
|
||||
(null (cdr object)))
|
||||
(progn
|
||||
(princ (if (eq car 'quote) '\' car) stream)
|
||||
(princ (cond
|
||||
((eq car 'quote) '\')
|
||||
((eq car 'function) "#'")
|
||||
(t car))
|
||||
stream)
|
||||
(cl-print-object (car object) stream))
|
||||
(princ "(" stream)
|
||||
(cl-print-object car stream)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue