mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Declare key-valid-p and readablep as error-free

Browse source 
* 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:
Mattias Engdegård 2022-07-31 15:45:16 +02:00
parent b2fb73db2f
commit f5cd6b730d
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/keymap.el
View file

@ -313,7 +313,7 @@ Modifiers have to be specified in this order:
which is
Alt-Control-Hyper-Meta-Shift-super"
(declare (pure t) (side-effect-free t))
(declare (pure t) (side-effect-free error-free))
(let ((case-fold-search nil))
(and
(stringp keys)

2
lisp/subr.el
View file

@ -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)