diff options
| author | Stefan Monnier | 2024-03-14 12:49:08 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2024-03-18 09:32:53 -0400 |
| commit | 63e67916b01569da5bb24f6d9a354dc72897c468 (patch) | |
| tree | bb192d43d3e87a0945f0f05967da310aae29030a /lisp | |
| parent | e624bc62752ceb2e60940c5fd9cb6e70611df71c (diff) | |
| download | emacs-scratch/object-type.tar.gz emacs-scratch/object-type.zip | |
Followup changes to `cl-type-of`scratch/object-type
These changes came up while working on `cl-type-of` but are not
directly related to the new `cl-type-of`.
The BASE_PURESIZE bump was needed at some point on one of my
machine, not sure why.
* src/puresize.h (BASE_PURESIZE): Bump up.
* src/sqlite.c (bind_value): Don't use `Ftype_of`.
* lisp/emacs-lisp/seq.el (seq-remove-at-position): Simplify.
* lisp/emacs-lisp/cl-preloaded.el (finalizer):
New (previously missing) type.
* doc/lispref/objects.texi (Type Predicates): Minor tweaks.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index d11c97a3e3a..cba56e0bbd4 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el | |||
| @@ -365,6 +365,7 @@ | |||
| 365 | (cl--define-built-in-type buffer atom) | 365 | (cl--define-built-in-type buffer atom) |
| 366 | (cl--define-built-in-type window atom) | 366 | (cl--define-built-in-type window atom) |
| 367 | (cl--define-built-in-type process atom) | 367 | (cl--define-built-in-type process atom) |
| 368 | (cl--define-built-in-type finalizer atom) | ||
| 368 | (cl--define-built-in-type window-configuration atom) | 369 | (cl--define-built-in-type window-configuration atom) |
| 369 | (cl--define-built-in-type overlay atom) | 370 | (cl--define-built-in-type overlay atom) |
| 370 | (cl--define-built-in-type number-or-marker atom | 371 | (cl--define-built-in-type number-or-marker atom |
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 20077db9e60..a20cff16982 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el | |||
| @@ -362,8 +362,7 @@ the result. | |||
| 362 | 362 | ||
| 363 | The result is a sequence of the same type as SEQUENCE." | 363 | The result is a sequence of the same type as SEQUENCE." |
| 364 | (seq-concatenate | 364 | (seq-concatenate |
| 365 | (let ((type (type-of sequence))) | 365 | (if (listp sequence) 'list (type-of sequence)) |
| 366 | (if (eq type 'cons) 'list type)) | ||
| 367 | (seq-subseq sequence 0 n) | 366 | (seq-subseq sequence 0 n) |
| 368 | (seq-subseq sequence (1+ n)))) | 367 | (seq-subseq sequence (1+ n)))) |
| 369 | 368 | ||