From f5f296b0800de4cd459e41b4a7b1cb97673e8dbb Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 17 Sep 2022 22:14:31 +0200 Subject: [PATCH] image-dired: Change some custom types to natnum * lisp/image/image-dired.el (image-dired-thumb-size) (image-dired-thumb-relief, image-dired-thumb-margin) (image-dired-thumbs-per-row, image-dired-thumb-width) (image-dired-thumb-height): Change :type to natnum. --- lisp/image/image-dired.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el index 33f10bdbb73..f5725a53efe 100644 --- a/lisp/image/image-dired.el +++ b/lisp/image/image-dired.el @@ -238,16 +238,16 @@ original file with `image-dired-temp-rotate-image-file'." The value of this option is ignored if Image-Dired is customized to use the Thumbnail Managing Standard; the standard sizes will be used instead. See `image-dired-thumbnail-storage'." - :type 'integer) + :type 'natnum) (defcustom image-dired-thumb-relief 2 "Size of button-like border around thumbnails." - :type 'integer) + :type 'natnum) (defcustom image-dired-thumb-margin 2 "Size of the margin around thumbnails. This is where you see the cursor." - :type 'integer) + :type 'natnum) (defcustom image-dired-thumb-visible-marks t "Make marks and flags visible in thumbnail buffer. @@ -288,7 +288,7 @@ and No line-up means that no automatic line-up will be done." (defcustom image-dired-thumbs-per-row 3 "Number of thumbnails to display per row in thumb buffer." - :type 'integer) + :type 'natnum) (defcustom image-dired-track-movement t "The current state of the tracking and mirroring. @@ -1346,13 +1346,13 @@ Track this in associated Dired buffer if 'image-dired-thumb-size "29.1") (defcustom image-dired-thumb-width image-dired-thumb-size "Width of thumbnails, in pixels." - :type 'integer) + :type 'natnum) (make-obsolete-variable 'image-dired-thumb-height 'image-dired-thumb-size "29.1") (defcustom image-dired-thumb-height image-dired-thumb-size "Height of thumbnails, in pixels." - :type 'integer) + :type 'natnum) (defcustom image-dired-temp-image-file (expand-file-name ".image-dired_temp" image-dired-dir) -- 2.39.2