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

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 (defalias 'byte-run--set-doc-string
#'(lambda (f _args pos) #'(lambda (f _args pos)
(list 'function-put (list 'quote f) (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 (defalias 'byte-run--set-indent
#'(lambda (f _args val) #'(lambda (f _args val)
(list 'function-put (list 'quote f) (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 (defalias 'byte-run--set-speed
#'(lambda (f _args val) #'(lambda (f _args val)