aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii2018-09-07 10:35:59 +0300
committerEli Zaretskii2018-09-07 10:35:59 +0300
commit96281c5ee1582ac0c329d09797ab7ab3dbae26d1 (patch)
tree483f000685f70806a51b421c60607fe29d495d35 /lisp
parent82160cf0c16e22bddfd90254e4a4e03ed383c9ae (diff)
downloademacs-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.el3
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)