[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f515d658e5 1/2: Don't quote numbers in byte-run--set-*
From: |
Lars Ingebrigtsen |
Subject: |
master f515d658e5 1/2: Don't quote numbers in byte-run--set-* |
Date: |
Fri, 17 Jun 2022 13:11:30 -0400 (EDT) |
branch: master
commit f515d658e5e5382bfbcf835dee4a32099c9815e6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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).
---
lisp/emacs-lisp/byte-run.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 498435c58d..dd90bcf4d8 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)