diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-08 10:33:49 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-05-08 10:33:49 -0400 |
| commit | b03d6265cd9427e11c5bfd4a56822b4475c8e8cd (patch) | |
| tree | 4590eb963e4fc6dc534df1baf66016e2c93b9326 | |
| parent | 7546179a011452c304022349d034a03303a11ebb (diff) | |
| download | emacs-b03d6265cd9427e11c5bfd4a56822b4475c8e8cd.tar.gz | |
* lisp/emacs-lisp/oclosure.el (oclosure-define): Fix empty case
| -rw-r--r-- | lisp/emacs-lisp/oclosure.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el index cb8c59b05a2..9775e8cc656 100644 --- a/lisp/emacs-lisp/oclosure.el +++ b/lisp/emacs-lisp/oclosure.el @@ -223,7 +223,7 @@ list of slot properties. The currently known properties are the following: `:mutable': A non-nil value mean the slot can be mutated. `:type': Specifies the type of the values expected to appear in the slot." (declare (doc-string 2) (indent 1)) - (unless (stringp docstring) + (unless (or (stringp docstring) (null docstring)) (push docstring slots) (setq docstring nil)) (let* ((options (when (consp name) |