mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(cl--describe-class-slots): Avoid cryptic t type

Browse Source 
* lisp/emacs-lisp/cl-extra.el (cl--describe-class-slots): Use the empty
string for the trivial `t` type.

* lisp/emacs-lisp/cl-preloaded.el (cl-structure-class):
Fix non-existing `bool` => `boolean`.
This commit is contained in:
Stefan Monnier 2024-04-09 18:33:01 -04:00
parent 73bd48de3c
commit dd6b9c9426
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/cl-extra.el
View File

@ -917,11 +917,13 @@ Outputs to the current buffer."
(lambda (slot)
(list (cl-prin1-to-string (cl--slot-descriptor-name slot))
(let ((type (cl--slot-descriptor-type slot)))
(if (and type (symbolp type) (cl--find-class type))
(make-text-button (symbol-name type) nil
'type 'help-type
'help-args (list type))
(cl-prin1-to-string type)))
(cond
((eq type t) "")
((and type (symbolp type) (cl--find-class type))
(make-text-button (symbol-name type) nil
'type 'help-type
'help-args (list type)))
(t (cl-prin1-to-string type))))
(cl-prin1-to-string (cl--slot-descriptor-initform slot))
(let ((doc (alist-get :documentation
(cl--slot-descriptor-props slot))))

4
lisp/emacs-lisp/cl-preloaded.el
View File

@ -224,8 +224,8 @@
(index-table nil :type hash-table)
(tag nil :type symbol) ;Placed in cl-tag-slot. Holds the struct-class object.
(type nil :type (memq (vector list)))
(named nil :type bool)
(print nil :type bool)
(named nil :type boolean)
(print nil :type boolean)
(children-sym nil :type symbol) ;This sym's value holds the tags of children.
)