diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-18 11:48:24 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-26 17:41:09 +0200 |
| commit | 35d5ad713ee05f5cd922f66462df41deed95f7e8 (patch) | |
| tree | 6546c8d79f7921476ecf769720a13dd44b713c9f /test/lisp/emacs-lisp/hierarchy-tests.el | |
| parent | a386833503430732a5c9bed8dbc5c3073f72b5ab (diff) | |
| download | emacs-35d5ad713ee05f5cd922f66462df41deed95f7e8.tar.gz emacs-35d5ad713ee05f5cd922f66462df41deed95f7e8.tar.bz2 emacs-35d5ad713ee05f5cd922f66462df41deed95f7e8.zip | |
Rewrite wallpaper.el to use a cl-defstruct
* lisp/image/wallpaper.el
(wallpaper--default-commands): Delete variable.
(wallpaper-setter): New cl-defstruct.
(wallpaper--default-methods-create): New macro.
(wallpaper--default-setters):
(wallpaper--current-setter): New variables.
(wallpaper--find-setter): New defun to pick a wallpaper-setter.
(wallpaper--find-command, wallpaper--find-command-args):
Use 'wallpaper--find-setter'.
(wallpaper-command): Doc fix.
* test/lisp/image/wallpaper-tests.el
(wallpaper--find-command/return-string)
(wallpaper--find-command-args/return-list)
(wallpaper--image-file-regexp/return-string): New tests.
Diffstat (limited to 'test/lisp/emacs-lisp/hierarchy-tests.el')
0 files changed, 0 insertions, 0 deletions