From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 17 Jun 2022 17:10:44 +0000 (+0200)
Subject: Don't quote numbers in byte-run--set-*
X-Git-Tag: emacs-29.0.90~1447^2~1667
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f515d658e5e5382bfbcf835dee4a32099c9815e6;p=emacs.git

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

* lisp/emacs-lisp/byte-run.el (byte-run--set-doc-string)
(byte-run--set-indent): Don't quote numbers (bug#48145).
---

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 498435c58d0..dd90bcf4d82 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -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)