/[emacs]/emacs/lisp/custom.el
ViewVC logotype

Diff of /emacs/lisp/custom.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66 by monnier, Thu Mar 13 18:10:41 2003 UTC revision 1.67 by rms, Sun Aug 17 00:17:16 2003 UTC
# Line 502  LOAD should be either a library file nam Line 502  LOAD should be either a library file nam
502    "Load all dependencies for SYMBOL."    "Load all dependencies for SYMBOL."
503    (unless custom-load-recursion    (unless custom-load-recursion
504      (let ((custom-load-recursion t))      (let ((custom-load-recursion t))
505          ;; Load these files if not already done,
506          ;; to make sure we know all the dependencies of SYMBOL.
507          (condition-case nil
508              (require 'cus-load)
509            (error nil))
510          (condition-case nil
511              (require 'cus-start)
512            (error nil))
513        (dolist (load (get symbol 'custom-loads))        (dolist (load (get symbol 'custom-loads))
514          (cond ((symbolp load) (condition-case nil (require load) (error nil)))          (cond ((symbolp load) (condition-case nil (require load) (error nil)))
515                ;; This is subsumed by the test below, but it's much faster.                ;; This is subsumed by the test below, but it's much faster.

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26