diff options
| author | Glenn Morris | 2015-04-21 21:30:54 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-04-21 21:30:54 -0400 |
| commit | 3f2c8b82649b670bdccfdc2235b3fb0b63a90d4c (patch) | |
| tree | 43cb40093a7b36f4230935ef0bffa3e0600d6df6 | |
| parent | b50f9bc9643cc53c583d010ce2c8c41e2d4d8d01 (diff) | |
| download | emacs-3f2c8b82649b670bdccfdc2235b3fb0b63a90d4c.tar.gz emacs-3f2c8b82649b670bdccfdc2235b3fb0b63a90d4c.zip | |
* lisp/custom.el (custom-declare-group): No need to purecopy
custom-current-group-alist members following recent change to set
it to nil before dumping.
| -rw-r--r-- | lisp/custom.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index e5fe0ebaedd..ea5ab7a4773 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -449,8 +449,7 @@ information." | |||
| 449 | ;; Record the group on the `current' list. | 449 | ;; Record the group on the `current' list. |
| 450 | (let ((elt (assoc load-file-name custom-current-group-alist))) | 450 | (let ((elt (assoc load-file-name custom-current-group-alist))) |
| 451 | (if elt (setcdr elt symbol) | 451 | (if elt (setcdr elt symbol) |
| 452 | (push (cons (purecopy load-file-name) symbol) | 452 | (push (cons load-file-name symbol) custom-current-group-alist))) |
| 453 | custom-current-group-alist))) | ||
| 454 | (run-hooks 'custom-define-hook) | 453 | (run-hooks 'custom-define-hook) |
| 455 | symbol) | 454 | symbol) |
| 456 | 455 | ||