Mercurial > emacs
comparison lisp/custom.el @ 65093:1aae62fd4a80
(custom-theme-set-variables): Sort minor modes last.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 24 Aug 2005 11:49:07 +0000 |
| parents | 41bb365f41c4 |
| children | 2c6c9fd9d86b 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 65092:a54c7c22bb33 | 65093:1aae62fd4a80 |
|---|---|
| 724 (2-then-1 (memq sym2 (get sym1 'custom-dependencies)))) | 724 (2-then-1 (memq sym2 (get sym1 'custom-dependencies)))) |
| 725 (cond ((and 1-then-2 2-then-1) | 725 (cond ((and 1-then-2 2-then-1) |
| 726 (error "Circular custom dependency between `%s' and `%s'" | 726 (error "Circular custom dependency between `%s' and `%s'" |
| 727 sym1 sym2)) | 727 sym1 sym2)) |
| 728 (2-then-1 nil) | 728 (2-then-1 nil) |
| 729 ;; Put symbols with :require last. The macro | 729 ;; Put minor modes and symbols with :require last. |
| 730 ;; define-minor-mode generates a defcustom | 730 ;; Putting minor modes last ensures that the mode |
| 731 ;; with a :require and a :set, where the | 731 ;; function will see other customized values rather |
| 732 ;; setter function calls the mode function. | 732 ;; than default values. |
| 733 ;; Putting symbols with :require last ensures | 733 (t (or (nth 3 a2) |
| 734 ;; that the mode function will see other | 734 (eq (get sym2 'custom-set) |
| 735 ;; customized values rather than default | 735 'custom-set-minor-mode)))))))) |
| 736 ;; values. | |
| 737 (t (nth 3 a2))))))) | |
| 738 (while args | 736 (while args |
| 739 (let ((entry (car args))) | 737 (let ((entry (car args))) |
| 740 (if (listp entry) | 738 (if (listp entry) |
| 741 (let* ((symbol (indirect-variable (nth 0 entry))) | 739 (let* ((symbol (indirect-variable (nth 0 entry))) |
| 742 (value (nth 1 entry)) | 740 (value (nth 1 entry)) |