diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-17 19:10:44 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-17 19:11:24 +0200 |
| commit | f515d658e5e5382bfbcf835dee4a32099c9815e6 (patch) | |
| tree | f2370c39179d34b85215fa55e434eb3aa9afdacf /lisp/emacs-lisp | |
| parent | 8ce96f0d4d3b8c80a8b6165b69a67310afdf6a3a (diff) | |
| download | emacs-f515d658e5e5382bfbcf835dee4a32099c9815e6.tar.gz emacs-f515d658e5e5382bfbcf835dee4a32099c9815e6.tar.bz2 emacs-f515d658e5e5382bfbcf835dee4a32099c9815e6.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 8 |
1 files changed, 6 insertions, 2 deletions
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) |