procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't quote numbers in byte-run--set-*

Browse source 
* lisp/emacs-lisp/byte-run.el (byte-run--set-doc-string)
(byte-run--set-indent): Don't quote numbers (bug#48145).
This commit is contained in:
Lars Ingebrigtsen 2022-06-17 19:10:44 +02:00
parent 8ce96f0d4d
commit f515d658e5
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/byte-run.el
View file

@ -210,12 +210,16 @@ The return value of this function is not used."
(defalias 'byte-run--set-doc-string
#'(lambda (f _args pos)
(list 'function-put (list 'quote f)
''doc-string-elt (list 'quote pos))))
''doc-string-elt (if (numberp pos)
pos
(list 'quote pos)))))
(defalias 'byte-run--set-indent
#'(lambda (f _args val)
(list 'function-put (list 'quote f)
''lisp-indent-function (list 'quote val))))
''lisp-indent-function (if (numberp val)
val
(list 'quote val)))))
(defalias 'byte-run--set-speed
#'(lambda (f _args val)