1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-11 08:30:45 -08:00

Merge from origin/emacs-30

a2bfce5d2a ; Fix customization and doc strings in pp.el
This commit is contained in:
Eli Zaretskii 2025-06-21 06:26:10 -04:00
commit 31febb1a28

View file

@ -71,9 +71,9 @@ Lisp syntax."
(const :tag "Emacs<29 algorithm, fast and good enough" pp-28)
(const :tag "Work hard for code (slow on large inputs)"
pp-emacs-lisp-code)
(const :tag "`pp-emacs-lisp-code' if `pp-use-max-width' else `pp-28'"
(const :tag "Work hard for code if `pp-use-max-width' non-nil, else as in Emacs<29"
pp-29)
function)
(function :tag "Custom function"))
:version "30.1")
(defvar pp--inhibit-function-formatting nil)
@ -123,7 +123,7 @@ and should pretty print it at point into the current buffer."
(defun pp-29 (beg-or-sexp &optional end) ;FIXME: Better name?
"Prettify the current region with printed representation of a Lisp object.
Uses the pretty-printing algorithm that was standard in Emacs-29,
Uses the pretty-printing algorithm that was standard in Emacs 29,
which, depending on `pp-use-max-width', will either use `pp-28'
or `pp-emacs-lisp-code'."
(if pp-use-max-width
@ -278,7 +278,7 @@ it inserts and pretty-prints that arg at point."
(defun pp-28 (beg &optional end) ;FIXME: Better name?
"Prettify the current region with printed representation of a Lisp object.
Uses the pretty-printing algorithm that was standard before Emacs-30.
Uses the pretty-printing algorithm that was standard before Emacs 30.
Non-interactively can also be called with a single argument, in which
case that argument will be inserted pretty-printed at point."
(interactive "r")