[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el

[Richard M . Stallman]

Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.43 emacs/lisp/mail/supercite.el:1.44
*** emacs/lisp/mail/supercite.el:1.43   Mon Apr  4 09:19:51 2005
--- emacs/lisp/mail/supercite.el        Sat May 14 11:27:40 2005
***************
*** 153,158 ****
--- 153,159 ----
                                            (choice (repeat (repeat sexp))
                                                    symbol)))))
    :group 'supercite-frames)
+ (put 'sc-cite-frame-alist 'risky-local-variable t)
  
  (defcustom sc-uncite-frame-alist '()
    "*Alist for frame selection during unciting.
***************
*** 161,166 ****
--- 162,168 ----
                                            (choice (repeat (repeat sexp))
                                                    symbol)))))
    :group 'supercite-frames)
+ (put 'sc-uncite-frame-alist 'risky-local-variable t)
  
  (defcustom sc-recite-frame-alist '()
    "*Alist for frame selection during reciting.
***************
*** 169,174 ****
--- 171,177 ----
                                            (choice (repeat (repeat sexp))
                                                    symbol)))))
    :group 'supercite-frames)
+ (put 'sc-recite-frame-alist 'risky-local-variable t)
  
  (defcustom sc-default-cite-frame
    '(;; initialize fill state and temporary variables when entering
***************
*** 214,219 ****
--- 217,223 ----
    "*Default REGI frame for citing a region."
    :type '(repeat (repeat sexp))
    :group 'supercite-frames)
+ (put 'sc-default-cite-frame 'risky-local-variable t)
  
  (defcustom sc-default-uncite-frame
    '(;; do nothing on a blank line
***************
*** 224,229 ****
--- 228,234 ----
    "*Default REGI frame for unciting a region."
    :type '(repeat (repeat sexp))
    :group 'supercite-frames)
+ (put 'sc-default-uncite-frame 'risky-local-variable t)
  
  (defcustom sc-default-recite-frame
    '(;; initialize fill state when entering frame
***************
*** 240,245 ****
--- 245,251 ----
    "*Default REGI frame for reciting a region."
    :type '(repeat (repeat sexp))
    :group 'supercite-frames)
+ (put 'sc-default-recite-frame 'risky-local-variable t)
  
  (defcustom sc-cite-region-limit t
    "*This variable controls automatic citation of yanked text.
***************
*** 427,432 ****
--- 433,439 ----
                                     (choice (sexp :tag "List to eval")
                                             string)))))
    :group 'supercite-attr)
+ (put 'sc-attrib-selection-list 'risky-local-variable t)
  
  (defcustom sc-attribs-preselect-hook nil
    "*Hook to run before selecting an attribution."
***************
*** 482,487 ****
--- 489,495 ----
  Electric reference mode will cycle through this list of functions."
    :type '(repeat sexp)
    :group 'supercite)
+ (put 'sc-rewrite-header-list 'risky-local-variable t)
  
  (defcustom sc-titlecue-regexp "\\s +-+\\s +"
    "*Regular expression describing the separator between names and titles.