comparison lisp/cl-extra.el @ 5284:d27c1ee1943b

Make the order of preloaded-file-list more sane. lisp/ChangeLog addition: 2010-10-12 Aidan Kehoe <kehoea@parhasard.net> * abbrev.el (fundamental-mode-abbrev-table, global-abbrev-table): Create both these abbrev tables using the usual #'define-abbrev-table calls, rather than attempting to special-case them. * cl-extra.el: Force cl-macs to be loaded here, if cl-extra.el is being loaded interpreted. Previously other, later files would redundantly call (load "cl-macs") when interpreted, it's more reasonable to do it here, once. * cmdloop.el (read-quoted-char-radix): Use defcustom here, we don't have any dump-order dependencies that would prevent that. * custom.el (eval-when-compile): Don't load cl-macs when interpreted or when byte-compiling, rely on cl-extra.el in the former case and the appropriate entry in bytecomp-load-hook in the latter. Get rid of custom-declare-variable-list, we have no dump-time dependencies that would require it. * faces.el (eval-when-compile): Don't load cl-macs when interpreted or when byte-compiling. * packages.el: Remove some inaccurate comments. * post-gc.el (cleanup-simple-finalizers): Use #'delete-if-not here, now the order of preloaded-file-list has been changed to make it available. * subr.el (custom-declare-variable-list): Remove. No need for it. Also remove a stub define-abbrev-table from this file, given the current order of preloaded-file-list there's no need for it.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 12 Oct 2010 21:11:46 +0100
parents 799742b751c8
children 99de5fd48e87
comparison
equal deleted inserted replaced
5283:be436ac36ba4 5284:d27c1ee1943b
655 (and (not full) '((block) (eval-when))))) 655 (and (not full) '((block) (eval-when)))))
656 (message "Formatting...") 656 (message "Formatting...")
657 (prog1 (cl-prettyprint form) 657 (prog1 (cl-prettyprint form)
658 (message "")))) 658 (message ""))))
659 659
660 ;; XEmacs addition; force cl-macs to be available from here on when
661 ;; compiling files to be dumped. This is more reasonable than forcing other
662 ;; files to do the same, multiple times.
663 (eval-when-compile (or (cl-compiling-file) (load "cl-macs")))
664
660 (run-hooks 'cl-extra-load-hook) 665 (run-hooks 'cl-extra-load-hook)
661 666
662 ;; XEmacs addition 667 ;; XEmacs addition
663 (provide 'cl-extra) 668 (provide 'cl-extra)
664 669