mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Declare key-valid-p and readablep as error-free
* lisp/keymap.el (key-valid-p): * lisp/subr.el (readablep): These functions are effect-free; declare them correspondingly. Note that readablep is not pure since its return value depends on ambient state.
This commit is contained in:
parent
b2fb73db2f
commit
f5cd6b730d
2 changed files with 2 additions and 2 deletions
|
|
@ -6820,7 +6820,7 @@ This means that OBJECT can be printed out and then read back
|
|||
again by the Lisp reader. This function returns nil if OBJECT is
|
||||
unreadable, and the printed representation (from `prin1') of
|
||||
OBJECT if it is readable."
|
||||
(declare (side-effect-free t))
|
||||
(declare (side-effect-free error-free))
|
||||
(catch 'unreadable
|
||||
(let ((print-unreadable-function
|
||||
(lambda (_object _escape)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue