[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 f9111d8: The safe-local-variable property is a function (bug#50
From: |
Glenn Morris |
Subject: |
emacs-28 f9111d8: The safe-local-variable property is a function (bug#50944) |
Date: |
Sat, 2 Oct 2021 13:37:55 -0400 (EDT) |
branch: emacs-28
commit f9111d8784bf12263abbe127cdfcbe5f409c9b3b
Author: Glenn Morris <rgm@gnu.org>
Commit: Glenn Morris <rgm@gnu.org>
The safe-local-variable property is a function (bug#50944)
* lisp/org/oc-basic.el (org-cite-basic-sorting-field)
(org-cite-basic-author-year-separator)
(org-cite-basic-max-key-distance)
(org-cite-basic-author-column-end)
(org-cite-basic-column-separator)
(org-cite-basic-mouse-over-key-face):
* lisp/org/oc-biblatex.el (org-cite-biblatex-options):
* lisp/org/oc-csl.el (org-cite-csl-link-cites)
(org-cite-csl-html-hanging-indent)
(org-cite-csl-html-label-width-per-char)
(org-cite-csl-latex-hanging-indent):
* lisp/org/oc.el (org-cite-adjust-note-numbers):
* lisp/org/org-keys.el (org-return-follows-link):
* lisp/org/org.el (org-fontify-todo-headline):
* lisp/org/ox-html.el (org-html-equation-reference-format)
(org-html-wrap-src-lines):
* lisp/org/ox-latex.el (org-latex-reference-command)
(org-latex-default-quote-environment):
* lisp/textmodes/tildify.el (tildify-pattern)
(tildify-space-string): Fix :safe property.
---
lisp/org/oc-basic.el | 12 ++++++------
lisp/org/oc-biblatex.el | 2 +-
lisp/org/oc-csl.el | 8 ++++----
lisp/org/oc.el | 2 +-
lisp/org/org-keys.el | 2 +-
lisp/org/org.el | 2 +-
lisp/org/ox-html.el | 4 ++--
lisp/org/ox-latex.el | 4 ++--
lisp/textmodes/tildify.el | 4 ++--
9 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/lisp/org/oc-basic.el b/lisp/org/oc-basic.el
index bf0153d..98242f3 100644
--- a/lisp/org/oc-basic.el
+++ b/lisp/org/oc-basic.el
@@ -89,42 +89,42 @@
:group 'org-cite
:package-version '(Org . "9.5")
:type 'symbol
- :safe t)
+ :safe #'symbolp)
(defcustom org-cite-basic-author-year-separator ", "
"String used to separate cites in an author-year configuration."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-cite-basic-max-key-distance 2
"Maximum (Levenshtein) distance between a wrong key and its suggestions."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'integer
- :safe t)
+ :safe #'integerp)
(defcustom org-cite-basic-author-column-end 25
"Column where author field ends in completion table, as an integer."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'integer
- :safe t)
+ :safe #'integerp)
(defcustom org-cite-basic-column-separator " "
"Column separator in completion table, as a string."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-cite-basic-mouse-over-key-face 'highlight
"Face used when mouse is over a citation key."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'face
- :safe t)
+ :safe #'facep)
;;; Internal variables
diff --git a/lisp/org/oc-biblatex.el b/lisp/org/oc-biblatex.el
index 224abae..f517e39 100644
--- a/lisp/org/oc-biblatex.el
+++ b/lisp/org/oc-biblatex.el
@@ -80,7 +80,7 @@ If \"biblatex\" package is already required in the document,
e.g., through
:type '(choice
(string :tag "Options (key=value,key2=value2...)")
(const :tag "No option" nil))
- :safe t)
+ :safe #'string-or-null-p)
;;; Internal functions
diff --git a/lisp/org/oc-csl.el b/lisp/org/oc-csl.el
index cf3538b..1430779 100644
--- a/lisp/org/oc-csl.el
+++ b/lisp/org/oc-csl.el
@@ -146,7 +146,7 @@ directory. This variable is ignored when style file is
absolute."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'boolean
- :safe t)
+ :safe #'booleanp)
(defcustom org-cite-csl-no-citelinks-backends '(ascii)
"List of export back-ends for which cite linking is disabled.
@@ -163,7 +163,7 @@ is also disabled."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-cite-csl-html-label-width-per-char "0.6em"
"Character width in CSS units for calculating entry label widths.
@@ -171,14 +171,14 @@ Used only when `second-field-align' is activated by the
used CSL style."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-cite-csl-latex-hanging-indent "1.5em"
"Size of hanging-indent for LaTeX output in valid LaTeX units."
:group 'org-cite
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
;;; Internal variables
diff --git a/lisp/org/oc.el b/lisp/org/oc.el
index bb2e04d..5562753 100644
--- a/lisp/org/oc.el
+++ b/lisp/org/oc.el
@@ -234,7 +234,7 @@ When nil, the note number is not moved."
:package-version '(Org . "9.5")
:type '(choice (const :tag "Automatic note number location" t)
(const :tag "Place note numbers manually" nil))
- :safe t)
+ :safe #'booleanp)
(defcustom org-cite-note-rules
'(("en-us" inside outside after)
diff --git a/lisp/org/org-keys.el b/lisp/org/org-keys.el
index 2984a4f..8fa551a 100644
--- a/lisp/org/org-keys.el
+++ b/lisp/org/org-keys.el
@@ -300,7 +300,7 @@ implementation is bad."
In tables, the special behavior of RET has precedence."
:group 'org-link-follow
:type 'boolean
- :safe t)
+ :safe #'booleanp)
;;; Functions
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 2ec6566..723de64 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -3630,7 +3630,7 @@ When this is non-nil, the headline after the keyword is
set to the
:group 'org-appearance
:package-version '(Org . "9.4")
:type 'boolean
- :safe t)
+ :safe #'booleanp)
(defcustom org-fontify-done-headline t
"Non-nil means change the face of a headline if it is marked DONE.
diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el
index 60bb77d..a150b1f 100644
--- a/lisp/org/ox-html.el
+++ b/lisp/org/ox-html.el
@@ -795,7 +795,7 @@ Most common values are:
:group 'org-export-html
:package-version '(Org . "9.4")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-html-with-latex org-export-with-latex
"Non-nil means process LaTeX math snippets.
@@ -903,7 +903,7 @@ numbers are enabled."
:group 'org-export-html
:package-version '(Org . "9.3")
:type 'boolean
- :safe t)
+ :safe #'booleanp)
;;;; Table
diff --git a/lisp/org/ox-latex.el b/lisp/org/ox-latex.el
index 993c2c6..3e39670 100644
--- a/lisp/org/ox-latex.el
+++ b/lisp/org/ox-latex.el
@@ -413,7 +413,7 @@ to \"\\autoref{%s}\" or \"\\cref{%s}\" for example."
:group 'org-export-latex
:type 'string
:package-version '(Org . "9.5")
- :safe t)
+ :safe #'stringp)
;;;; Preamble
@@ -793,7 +793,7 @@ default we use here encompasses both."
:group 'org-export-latex
:package-version '(Org . "9.5")
:type 'string
- :safe t)
+ :safe #'stringp)
(defcustom org-latex-default-table-mode 'table
"Default mode for tables.
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index 01e2ad7..2a4c8cf 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -67,7 +67,7 @@ matching the white space). The pattern is matched
case-sensitive regardless of
the value of `case-fold-search' setting."
:version "25.1"
:type 'regexp
- :safe t)
+ :safe #'stringp)
(defcustom tildify-pattern-alist ()
"Alist specifying where to insert hard spaces.
@@ -112,7 +112,7 @@ If nil, current major mode has no way to represent a hard
space."
" ")
(const :tag "No-break space (U+00A0)" "\u00A0")
(string :tag "Custom string"))
- :safe t)
+ :safe #'string-or-null-p)
(defcustom tildify-string-alist ()
"Alist specifying what is a hard space in the current major mode.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 f9111d8: The safe-local-variable property is a function (bug#50944),
Glenn Morris <=