Mercurial > emacs
changeset 26582:fbd1f4d3000d
(custom-declare-group): Purecopy DOC.
(custom-handle-keyword): Purecopy VALUE.
(custom-add-link): Purecopy WIDGET.
(custom-add-version): Purecopy VERSION.
(custom-add-load): Purecopy LOAD.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 24 Nov 1999 20:29:55 +0000 |
| parents | b679911f6f28 |
| children | 3251a6750150 |
| files | lisp/custom.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Wed Nov 24 20:03:27 1999 +0000 +++ b/lisp/custom.el Wed Nov 24 20:29:55 1999 +0000 @@ -3,6 +3,7 @@ ;; Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> +;; Maintainer: FSF ;; Keywords: help, faces ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ (probably obsolete) @@ -264,7 +265,8 @@ (setq members (cdr members))) (put symbol 'custom-group (nconc members (get symbol 'custom-group))) (when doc - (put symbol 'group-documentation doc)) + ;; This text doesn't get into DOC. + (put symbol 'group-documentation (purecopy doc))) (while args (let ((arg (car args))) (setq args (cdr args)) @@ -339,6 +341,8 @@ (defun custom-handle-keyword (symbol keyword value type) "For customization option SYMBOL, handle KEYWORD with VALUE. Fourth argument TYPE is the custom option type." + (if purify-flag + (setq value (purecopy value))) (cond ((eq keyword :group) (custom-add-to-group value symbol type)) ((eq keyword :version) @@ -365,18 +369,18 @@ "To the custom option SYMBOL add the link WIDGET." (let ((links (get symbol 'custom-links))) (unless (member widget links) - (put symbol 'custom-links (cons widget links))))) + (put symbol 'custom-links (cons (purecopy widget) links))))) (defun custom-add-version (symbol version) "To the custom option SYMBOL add the version VERSION." - (put symbol 'custom-version version)) + (put symbol 'custom-version (purecopy version))) (defun custom-add-load (symbol load) "To the custom option SYMBOL add the dependency LOAD. LOAD should be either a library file name, or a feature name." (let ((loads (get symbol 'custom-loads))) (unless (member load loads) - (put symbol 'custom-loads (cons load loads))))) + (put symbol 'custom-loads (cons (purecopy load) loads))))) ;;; Initializing.