diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-09-03 19:41:23 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-09-04 12:52:16 -0400 |
| commit | c78969d31bf57a83b4700a7cca44d4baaa06e9d9 (patch) | |
| tree | a1a8945775bbe3abb26d857ff1fd749de5efe126 /lisp/emacs-lisp | |
| parent | 0daad767047be33c0189d5e0131b126b49d35e6d (diff) | |
| download | emacs-c78969d31bf57a83b4700a7cca44d4baaa06e9d9.tar.gz emacs-c78969d31bf57a83b4700a7cca44d4baaa06e9d9.tar.bz2 emacs-c78969d31bf57a83b4700a7cca44d4baaa06e9d9.zip | |
* lisp/emacs-lisp/timer.el (timer-create): Don't inline it
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/timer.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index 5c658eba803..44d70cde6bc 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -34,7 +34,7 @@ (cl-defstruct (timer (:constructor nil) (:copier nil) - (:constructor timer-create ()) + (:constructor timer--create ()) (:type vector) (:conc-name timer--)) ;; nil if the timer is active (waiting to be triggered), @@ -55,6 +55,12 @@ ;; sleep, etc). integral-multiple) +(defun timer-create () + ;; BEWARE: This is not an eta-redex, because `timer--create' is inlinable + ;; whereas `timer-create' should not be because we don't want to + ;; hardcode the shape of timers in other .elc files. + (timer--create)) + (defun timerp (object) "Return t if OBJECT is a timer." (and (vectorp object) |