tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Don't quote symbols in defcustom types 

* lisp/org-fold-core.el (org-fold-core-style):
* lisp/org-persist.el (org-persist-remote-files):
(org-persist-default-expiry):
Don't quote the symbol given as value for a const.
This commit is contained in:
Robert Pluim 2022-06-13 16:15:10 +02:00 committed by Daniel Fleischer
parent 0cdbc63a0b
commit 3baac35b55
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-fold-core.el
View File

@ -302,8 +302,8 @@ less error-prone."
:group 'org
:package-version '(Org . "9.6")
:type '(choice
(const :tag "Overlays" 'overlays)
(const :tag "Text properties" 'text-properties)))
(const :tag "Overlays" overlays)
(const :tag "Text properties" text-properties)))
(defvar-local org-fold-core-isearch-open-function #'org-fold-core--isearch-reveal
"Function used to reveal hidden text found by isearch.

4
lisp/org-persist.el
View File

@ -196,7 +196,7 @@ password prompts to log in."
:type '(choice (const :tag "Never" nil)
(const :tag "Always" t)
(number :tag "Keep not more than X files")
(const :tag "Check if exist on remote" 'check-existence)))
(const :tag "Check if exist on remote" check-existence)))
(defcustom org-persist-default-expiry 30
"Default expiry condition for persistent data.
@ -207,7 +207,7 @@ data is deleted that number days after last access. When a function,
it should be a function returning non-nil when the data is expired. The
function will be called with a single argument - collection."
:group 'org-persist
:type '(choice (const :tag "Never" 'never)
:type '(choice (const :tag "Never" never)
(const :tag "Always" nil)
(number :tag "Keep N days")
(function :tag "Function")))