diff options
| author | Mauro Aranda | 2023-09-26 09:17:14 -0300 |
|---|---|---|
| committer | Stefan Kangas | 2023-10-01 01:49:50 +0200 |
| commit | 4fd00ff1f7e7183cf1e4fa864ba83bc646a5356f (patch) | |
| tree | cd3919cedc1ef62e541da49ed73446bc09aa6d66 | |
| parent | 47770b0eca4ba94f6b2a5dd740ff42023c8159c4 (diff) | |
| download | emacs-4fd00ff1f7e7183cf1e4fa864ba83bc646a5356f.tar.gz emacs-4fd00ff1f7e7183cf1e4fa864ba83bc646a5356f.zip | |
Fix defcustoms in type-break.el (Bug#66210)
* lisp/type-break.el (type-break-good-rest-interval)
(type-break-file-name): Allow nil.
| -rw-r--r-- | lisp/type-break.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/type-break.el b/lisp/type-break.el index 1aa2b9d2997..10ceaf7cb5c 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el | |||
| @@ -77,7 +77,8 @@ rest from typing, then the next typing break is simply rescheduled for later. | |||
| 77 | If a break is interrupted before this much time elapses, the user will be | 77 | If a break is interrupted before this much time elapses, the user will be |
| 78 | asked whether or not really to interrupt the break." | 78 | asked whether or not really to interrupt the break." |
| 79 | :set-after '(type-break-interval) | 79 | :set-after '(type-break-interval) |
| 80 | :type 'natnum | 80 | :type '(choice (const :tag "Don't check idle time" nil) |
| 81 | natnum) | ||
| 81 | :group 'type-break) | 82 | :group 'type-break) |
| 82 | 83 | ||
| 83 | (defcustom type-break-good-break-interval nil | 84 | (defcustom type-break-good-break-interval nil |
| @@ -201,7 +202,8 @@ key is pressed." | |||
| 201 | "Name of file used to save state across sessions. | 202 | "Name of file used to save state across sessions. |
| 202 | If this is nil, no data will be saved across sessions." | 203 | If this is nil, no data will be saved across sessions." |
| 203 | :version "24.4" ; added locate-user | 204 | :version "24.4" ; added locate-user |
| 204 | :type 'file) | 205 | :type '(choice (const :tag "Don't save data" nil) |
| 206 | file)) | ||
| 205 | 207 | ||
| 206 | (defvar type-break-post-command-hook '(type-break-check) | 208 | (defvar type-break-post-command-hook '(type-break-check) |
| 207 | "Hook run indirectly by `post-command-hook' for typing break functions. | 209 | "Hook run indirectly by `post-command-hook' for typing break functions. |