diff options
| author | Eli Zaretskii | 2018-09-07 10:35:59 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2018-09-07 10:35:59 +0300 |
| commit | 96281c5ee1582ac0c329d09797ab7ab3dbae26d1 (patch) | |
| tree | 483f000685f70806a51b421c60607fe29d495d35 /lisp | |
| parent | 82160cf0c16e22bddfd90254e4a4e03ed383c9ae (diff) | |
| download | emacs-96281c5ee1582ac0c329d09797ab7ab3dbae26d1.tar.gz emacs-96281c5ee1582ac0c329d09797ab7ab3dbae26d1.zip | |
Record :version for built-in variables while dumping
* lisp/cus-start.el (standard): Record the ':version; of the
symbols when dumping, so that 'describe-variable' could tell
which built-in variables were added/changed in recent
versions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-start.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 451e7f762f4..8ed0f805d01 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el | |||
| @@ -706,6 +706,8 @@ since it could result in memory overflow and make Emacs crash." | |||
| 706 | (put symbol 'risky-local-variable (cadr prop))) | 706 | (put symbol 'risky-local-variable (cadr prop))) |
| 707 | (if (setq prop (memq :set rest)) | 707 | (if (setq prop (memq :set rest)) |
| 708 | (put symbol 'custom-set (cadr prop))) | 708 | (put symbol 'custom-set (cadr prop))) |
| 709 | ;; This is used by describe-variable. | ||
| 710 | (if version (put symbol 'custom-version version)) | ||
| 709 | ;; Note this is the _only_ initialize property we handle. | 711 | ;; Note this is the _only_ initialize property we handle. |
| 710 | (if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay) | 712 | (if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay) |
| 711 | ;; These vars are defined early and should hence be initialized | 713 | ;; These vars are defined early and should hence be initialized |
| @@ -724,7 +726,6 @@ since it could result in memory overflow and make Emacs crash." | |||
| 724 | (custom-add-to-group group symbol 'custom-variable)) | 726 | (custom-add-to-group group symbol 'custom-variable)) |
| 725 | ;; Set the type. | 727 | ;; Set the type. |
| 726 | (put symbol 'custom-type type) | 728 | (put symbol 'custom-type type) |
| 727 | (if version (put symbol 'custom-version version)) | ||
| 728 | (while rest | 729 | (while rest |
| 729 | (setq prop (car rest) | 730 | (setq prop (car rest) |
| 730 | propval (cadr rest) | 731 | propval (cadr rest) |