Mark some user options that can get evalled as risky.
* lisp/allout.el (allout-title): * lisp/emacs-lisp/edebug.el (edebug-global-break-condition): * lisp/gnus/message.el (message-mailer-swallows-blank-line): * lisp/progmodes/gud.el (gud-tooltip-display): * lisp/vc/ediff-mult.el (ediff-default-filtering-regexp): Mark as risky.
This commit is contained in:
parent
39b166fc43
commit
2a5233c3c4
5 changed files with 8 additions and 3 deletions
|
@ -797,9 +797,9 @@ numbers are always used."
|
|||
:group 'allout)
|
||||
;;;_ - allout-title
|
||||
(defcustom allout-title '(or buffer-file-name (buffer-name))
|
||||
"Expression to be evaluated to determine the title for LaTeX
|
||||
formatted copy."
|
||||
"Expression to evaluate to determine the title for LaTeX formatted copy."
|
||||
:type 'sexp
|
||||
:risky t
|
||||
:group 'allout)
|
||||
;;;_ - allout-line-skip
|
||||
(defcustom allout-line-skip ".05cm"
|
||||
|
|
|
@ -225,6 +225,7 @@ After execution is resumed, the error is signaled again."
|
|||
"If non-nil, an expression to test for at every stop point.
|
||||
If the result is non-nil, then break. Errors are ignored."
|
||||
:type 'sexp
|
||||
:risky t
|
||||
:group 'edebug)
|
||||
|
||||
(defcustom edebug-sit-for-seconds 1
|
||||
|
|
|
@ -1073,6 +1073,7 @@ If a function, the result from the function will be used instead.
|
|||
If a form, the result from the form will be used instead."
|
||||
:version "23.2"
|
||||
:type 'sexp
|
||||
:risky t
|
||||
:link '(custom-manual "(message)Insertion Variables")
|
||||
:group 'message-insertion)
|
||||
|
||||
|
@ -1287,6 +1288,7 @@ The value should be an expression to test whether the problem will
|
|||
actually occur."
|
||||
:group 'message-sending
|
||||
:link '(custom-manual "(message)Mail Variables")
|
||||
:risky t
|
||||
:type 'sexp)
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
@ -3421,6 +3421,7 @@ it if ARG is omitted or nil."
|
|||
Forms in the list are combined with AND. The default is to display
|
||||
only tooltips in the buffer containing the overlay arrow."
|
||||
:type 'sexp
|
||||
:risky t
|
||||
:group 'gud
|
||||
:group 'tooltip)
|
||||
|
||||
|
|
|
@ -174,7 +174,8 @@ directories.")
|
|||
(defcustom ediff-default-filtering-regexp nil
|
||||
"The default regular expression used as a filename filter in multifile comparisons.
|
||||
Should be a sexp. For instance (car ediff-filtering-regexp-history) or nil."
|
||||
:type 'sexp
|
||||
:type 'sexp ; yuck - why not just a regexp?
|
||||
:risky t
|
||||
:group 'ediff-mult)
|
||||
|
||||
;; This has the form ((meta-buf regexp dir1 dir2 dir3 merge-auto-store-dir)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue