diff options
| author | Glenn Morris | 2016-02-01 20:53:44 -0500 |
|---|---|---|
| committer | Glenn Morris | 2016-02-01 20:53:44 -0500 |
| commit | 9f60d7e9a27b107d5bd35bf9d7621a300e17dbfb (patch) | |
| tree | 08023d0d6737423f9aa9c0a6495e504c37cd6922 | |
| parent | 1d07dcd720890764774770e0ad24ba11a5bda233 (diff) | |
| download | emacs-9f60d7e9a27b107d5bd35bf9d7621a300e17dbfb.tar.gz emacs-9f60d7e9a27b107d5bd35bf9d7621a300e17dbfb.zip | |
Mark some risky calendar variables.
* lisp/calendar/cal-china.el (chinese-calendar-time-zone):
Remove risky setting for deleted obsolete alias.
(calendar-chinese-standard-time-zone-name)
(calendar-chinese-daylight-saving-start)
(calendar-chinese-daylight-saving-end):
* lisp/calendar/calendar.el (calendar-iso-date-display-form)
(calendar-european-date-display-form)
(calendar-american-date-display-form, calendar-date-display-form):
* lisp/calendar/diary-lib.el (diary-remind-message)
(diary-header-line-format):
* lisp/calendar/solar.el (calendar-time-display-form)
(calendar-location-name): Mark as risky.
| -rw-r--r-- | lisp/calendar/cal-china.el | 6 | ||||
| -rw-r--r-- | lisp/calendar/calendar.el | 4 | ||||
| -rw-r--r-- | lisp/calendar/diary-lib.el | 2 | ||||
| -rw-r--r-- | lisp/calendar/solar.el | 2 |
4 files changed, 11 insertions, 3 deletions
diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el index cfddd6b6953..661a8185bf4 100644 --- a/lisp/calendar/cal-china.el +++ b/lisp/calendar/cal-china.el | |||
| @@ -71,9 +71,6 @@ Default is for Beijing. This is an expression in `year' since it changed at | |||
| 71 | ;; It gets eval'd. | 71 | ;; It gets eval'd. |
| 72 | ;;;###autoload | 72 | ;;;###autoload |
| 73 | (put 'calendar-chinese-time-zone 'risky-local-variable t) | 73 | (put 'calendar-chinese-time-zone 'risky-local-variable t) |
| 74 | ;;;###autoload | ||
| 75 | (put 'chinese-calendar-time-zone 'risky-local-variable t) | ||
| 76 | |||
| 77 | 74 | ||
| 78 | ;; FIXME unused. | 75 | ;; FIXME unused. |
| 79 | (defcustom calendar-chinese-location-name "Beijing" | 76 | (defcustom calendar-chinese-location-name "Beijing" |
| @@ -98,6 +95,7 @@ Default is for no daylight saving time." | |||
| 98 | This is an expression depending on `year' because it changed | 95 | This is an expression depending on `year' because it changed |
| 99 | at 1928-01-01 00:00:00 from `PMT' to `CST'." | 96 | at 1928-01-01 00:00:00 from `PMT' to `CST'." |
| 100 | :type 'sexp | 97 | :type 'sexp |
| 98 | :risky t | ||
| 101 | :group 'calendar-chinese) | 99 | :group 'calendar-chinese) |
| 102 | 100 | ||
| 103 | (defcustom calendar-chinese-daylight-time-zone-name "CDT" | 101 | (defcustom calendar-chinese-daylight-time-zone-name "CDT" |
| @@ -115,6 +113,7 @@ at 1928-01-01 00:00:00 from `PMT' to `CST'." | |||
| 115 | Default is for no daylight saving time. See documentation of | 113 | Default is for no daylight saving time. See documentation of |
| 116 | `calendar-daylight-savings-starts'." | 114 | `calendar-daylight-savings-starts'." |
| 117 | :type 'sexp | 115 | :type 'sexp |
| 116 | :risky t | ||
| 118 | :group 'calendar-chinese) | 117 | :group 'calendar-chinese) |
| 119 | 118 | ||
| 120 | (defcustom calendar-chinese-daylight-saving-end nil | 119 | (defcustom calendar-chinese-daylight-saving-end nil |
| @@ -125,6 +124,7 @@ Default is for no daylight saving time. See documentation of | |||
| 125 | Default is for no daylight saving time. See documentation of | 124 | Default is for no daylight saving time. See documentation of |
| 126 | `calendar-daylight-savings-ends'." | 125 | `calendar-daylight-savings-ends'." |
| 127 | :type 'sexp | 126 | :type 'sexp |
| 127 | :risky t | ||
| 128 | :group 'calendar-chinese) | 128 | :group 'calendar-chinese) |
| 129 | 129 | ||
| 130 | (defcustom calendar-chinese-daylight-saving-start-time 0 | 130 | (defcustom calendar-chinese-daylight-saving-start-time 0 |
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 5dec3eca52d..ccdae484fa6 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -850,6 +850,7 @@ For examples of three common styles, see `diary-american-date-forms', | |||
| 850 | Normally you should not customize this, but `calendar-date-display-form' | 850 | Normally you should not customize this, but `calendar-date-display-form' |
| 851 | \(which see)." | 851 | \(which see)." |
| 852 | :type 'sexp | 852 | :type 'sexp |
| 853 | :risky t | ||
| 853 | :version "23.1" | 854 | :version "23.1" |
| 854 | :group 'calendar) | 855 | :group 'calendar) |
| 855 | 856 | ||
| @@ -859,6 +860,7 @@ Normally you should not customize this, but `calendar-date-display-form' | |||
| 859 | Normally you should not customize this, but `calendar-date-display-form' | 860 | Normally you should not customize this, but `calendar-date-display-form' |
| 860 | \(which see)." | 861 | \(which see)." |
| 861 | :type 'sexp | 862 | :type 'sexp |
| 863 | :risky t | ||
| 862 | :group 'calendar) | 864 | :group 'calendar) |
| 863 | 865 | ||
| 864 | (defcustom calendar-american-date-display-form | 866 | (defcustom calendar-american-date-display-form |
| @@ -867,6 +869,7 @@ Normally you should not customize this, but `calendar-date-display-form' | |||
| 867 | Normally you should not customize this, but `calendar-date-display-form' | 869 | Normally you should not customize this, but `calendar-date-display-form' |
| 868 | \(which see)." | 870 | \(which see)." |
| 869 | :type 'sexp | 871 | :type 'sexp |
| 872 | :risky t | ||
| 870 | :group 'calendar) | 873 | :group 'calendar) |
| 871 | 874 | ||
| 872 | (defcustom calendar-date-display-form | 875 | (defcustom calendar-date-display-form |
| @@ -892,6 +895,7 @@ would give the usual American style in fixed-length fields. The variables | |||
| 892 | `calendar-american-date-display-form' provide some defaults for three common | 895 | `calendar-american-date-display-form' provide some defaults for three common |
| 893 | styles." | 896 | styles." |
| 894 | :type 'sexp | 897 | :type 'sexp |
| 898 | :risky t | ||
| 895 | :set-after '(calendar-date-style calendar-iso-date-display-form | 899 | :set-after '(calendar-date-style calendar-iso-date-display-form |
| 896 | calendar-european-date-display-form | 900 | calendar-european-date-display-form |
| 897 | calendar-american-date-display-form) | 901 | calendar-american-date-display-form) |
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 0523d8355b3..9ba4e358e38 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -296,6 +296,7 @@ Used by the function `diary-remind', a pseudo-pattern is a list of | |||
| 296 | expressions that can involve the keywords `days' (a number), `date' | 296 | expressions that can involve the keywords `days' (a number), `date' |
| 297 | \(a list of month, day, year), and `diary-entry' (a string)." | 297 | \(a list of month, day, year), and `diary-entry' (a string)." |
| 298 | :type 'sexp | 298 | :type 'sexp |
| 299 | :risky t | ||
| 299 | :group 'diary) | 300 | :group 'diary) |
| 300 | 301 | ||
| 301 | (defcustom diary-abbreviated-year-flag t | 302 | (defcustom diary-abbreviated-year-flag t |
| @@ -412,6 +413,7 @@ The format of the header is specified by `diary-header-line-format'." | |||
| 412 | Only used if `diary-header-line-flag' is non-nil." | 413 | Only used if `diary-header-line-flag' is non-nil." |
| 413 | :group 'diary | 414 | :group 'diary |
| 414 | :type 'sexp | 415 | :type 'sexp |
| 416 | :risky t | ||
| 415 | :initialize 'custom-initialize-default | 417 | :initialize 'custom-initialize-default |
| 416 | :set 'diary-set-header | 418 | :set 'diary-set-header |
| 417 | :version "23.3") ; frame-width -> window-width | 419 | :version "23.3") ; frame-width -> window-width |
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index eb64b770e86..15f5b7436cd 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el | |||
| @@ -70,6 +70,7 @@ For example, the form | |||
| 70 | 70 | ||
| 71 | would give military-style times like `21:07 (UTC)'." | 71 | would give military-style times like `21:07 (UTC)'." |
| 72 | :type 'sexp | 72 | :type 'sexp |
| 73 | :risky t | ||
| 73 | :group 'calendar) | 74 | :group 'calendar) |
| 74 | 75 | ||
| 75 | (defcustom calendar-latitude nil | 76 | (defcustom calendar-latitude nil |
| @@ -131,6 +132,7 @@ variable `calendar-latitude' paired with the variable `calendar-longitude'. | |||
| 131 | 132 | ||
| 132 | This variable should be set in `site-start'.el." | 133 | This variable should be set in `site-start'.el." |
| 133 | :type 'sexp | 134 | :type 'sexp |
| 135 | :risky t | ||
| 134 | :group 'calendar) | 136 | :group 'calendar) |
| 135 | 137 | ||
| 136 | (defcustom solar-error 0.5 | 138 | (defcustom solar-error 0.5 |