Mercurial > emacs
comparison lisp/custom.el @ 105943:39e6ad203eb0
(custom-declare-group): Purecopy load-file-name.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Nov 2009 06:12:21 +0000 |
| parents | f9569789f83f |
| children | 02d1ed432817 |
comparison
equal
deleted
inserted
replaced
| 105942:5fc80e6b5b7c | 105943:39e6ad203eb0 |
|---|---|
| 412 (custom-handle-keyword symbol keyword value | 412 (custom-handle-keyword symbol keyword value |
| 413 'custom-group)))))) | 413 'custom-group)))))) |
| 414 ;; Record the group on the `current' list. | 414 ;; Record the group on the `current' list. |
| 415 (let ((elt (assoc load-file-name custom-current-group-alist))) | 415 (let ((elt (assoc load-file-name custom-current-group-alist))) |
| 416 (if elt (setcdr elt symbol) | 416 (if elt (setcdr elt symbol) |
| 417 (push (cons load-file-name symbol) custom-current-group-alist))) | 417 (push (cons (purecopy load-file-name) symbol) |
| 418 custom-current-group-alist))) | |
| 418 (run-hooks 'custom-define-hook) | 419 (run-hooks 'custom-define-hook) |
| 419 symbol) | 420 symbol) |
| 420 | 421 |
| 421 (defmacro defgroup (symbol members doc &rest args) | 422 (defmacro defgroup (symbol members doc &rest args) |
| 422 "Declare SYMBOL as a customization group containing MEMBERS. | 423 "Declare SYMBOL as a customization group containing MEMBERS. |