procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark some user options that can get evalled as risky.

Browse source 
* 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:
Glenn Morris 2016-01-30 11:36:41 -08:00
parent 39b166fc43
commit 2a5233c3c4
5 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/allout.el
View file

@ -797,9 +797,9 @@ numbers are always used."
:group 'allout) :group 'allout)
;;;_ - allout-title ;;;_ - allout-title
(defcustom allout-title '(or buffer-file-name (buffer-name)) (defcustom allout-title '(or buffer-file-name (buffer-name))
"Expression to be evaluated to determine the title for LaTeX "Expression to evaluate to determine the title for LaTeX formatted copy."
formatted copy."
:type 'sexp :type 'sexp
:risky t
:group 'allout) :group 'allout)
;;;_ - allout-line-skip ;;;_ - allout-line-skip
(defcustom allout-line-skip ".05cm" (defcustom allout-line-skip ".05cm"

1
lisp/emacs-lisp/edebug.el
View file

@ -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 non-nil, an expression to test for at every stop point.
If the result is non-nil, then break. Errors are ignored." If the result is non-nil, then break. Errors are ignored."
:type 'sexp :type 'sexp
:risky t
:group 'edebug) :group 'edebug)
(defcustom edebug-sit-for-seconds 1 (defcustom edebug-sit-for-seconds 1

2
lisp/gnus/message.el
View file

@ -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." If a form, the result from the form will be used instead."
:version "23.2" :version "23.2"
:type 'sexp :type 'sexp
:risky t
:link '(custom-manual "(message)Insertion Variables") :link '(custom-manual "(message)Insertion Variables")
:group 'message-insertion) :group 'message-insertion)
@ -1287,6 +1288,7 @@ The value should be an expression to test whether the problem will
actually occur." actually occur."
:group 'message-sending :group 'message-sending
:link '(custom-manual "(message)Mail Variables") :link '(custom-manual "(message)Mail Variables")
:risky t
:type 'sexp) :type 'sexp)
;;;###autoload ;;;###autoload

1
lisp/progmodes/gud.el
View file

@ -3421,6 +3421,7 @@ it if ARG is omitted or nil."
Forms in the list are combined with AND. The default is to display Forms in the list are combined with AND. The default is to display
only tooltips in the buffer containing the overlay arrow." only tooltips in the buffer containing the overlay arrow."
:type 'sexp :type 'sexp
:risky t
:group 'gud :group 'gud
:group 'tooltip) :group 'tooltip)

3
lisp/vc/ediff-mult.el
View file

@ -174,7 +174,8 @@ directories.")
(defcustom ediff-default-filtering-regexp nil (defcustom ediff-default-filtering-regexp nil
"The default regular expression used as a filename filter in multifile comparisons. "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." 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) :group 'ediff-mult)
;; This has the form ((meta-buf regexp dir1 dir2 dir3 merge-auto-store-dir) ;; This has the form ((meta-buf regexp dir1 dir2 dir3 merge-auto-store-dir)