Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 3985:92013722573f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-05-25 15:47:55 by michaels] 2007-05-25 Mike Sperber <mike@xemacs.org> * startup.el (startup-setup-paths): Print the configure-xxx variables as well.
author michaels
date Fri, 25 May 2007 15:47:56 +0000
parents 86be8d3dd45d
children 86f900725eda
comparison
equal deleted inserted replaced
3984:1392aae72ccb 3985:92013722573f
1494 ) 1494 )
1495 1495
1496 (setq lisp-directory (paths-find-lisp-directory emacs-roots)) 1496 (setq lisp-directory (paths-find-lisp-directory emacs-roots))
1497 1497
1498 (if debug-paths 1498 (if debug-paths
1499 (princ (format "lisp-directory:\n%S\n" lisp-directory) 1499 (princ (format "configure-lisp-directory and lisp-directory:\n%S\n%S\n"
1500 configure-lisp-directory lisp-directory)
1500 'external-debugging-output)) 1501 'external-debugging-output))
1501 1502
1502 (if (featurep 'mule) 1503 (if (featurep 'mule)
1503 (progn 1504 (progn
1504 (setq mule-lisp-directory 1505 (setq mule-lisp-directory
1505 (paths-find-mule-lisp-directory emacs-roots 1506 (paths-find-mule-lisp-directory emacs-roots
1506 lisp-directory)) 1507 lisp-directory))
1507 (if debug-paths 1508 (if debug-paths
1508 (princ (format "mule-lisp-directory:\n%S\n" 1509 (princ (format "configure-mule-lisp-directory and mule-lisp-directory:\n%S\n%S\n"
1509 mule-lisp-directory) 1510 configure-mule-lisp-directory mule-lisp-directory)
1510 'external-debugging-output))) 1511 'external-debugging-output)))
1511 (setq mule-lisp-directory '())) 1512 (setq mule-lisp-directory '()))
1512 1513
1513 (setq site-directory (and (null inhibit-site-lisp) 1514 (setq site-directory (and (null inhibit-site-lisp)
1514 (paths-find-site-lisp-directory emacs-roots))) 1515 (paths-find-site-lisp-directory emacs-roots)))
1515 1516
1516 (if (and debug-paths (null inhibit-site-lisp)) 1517 (if (and debug-paths (null inhibit-site-lisp))
1517 (princ (format "site-directory:\n%S\n" site-directory) 1518 (princ (format "configure-site-directory and site-directory:\n%S\n%S\n"
1519 configure-site-directory site-directory)
1518 'external-debugging-output)) 1520 'external-debugging-output))
1519 1521
1520 (setq load-path (startup-find-load-path inhibit-packages t)) 1522 (setq load-path (startup-find-load-path inhibit-packages t))
1521 1523
1522 (when debug-paths 1524 (when debug-paths
1523 (princ (format "early-package-hierarchies and early-package-load-path:\n%S\n%S\n" 1525 (princ (format "configure-early-package-directories, early-package-hierarchies and early-package-load-path:\n%S\n%S\n%S\n"
1524 early-package-hierarchies early-package-load-path) 1526 configure-early-package-directories early-package-hierarchies early-package-load-path)
1525 'external-debugging-output) 1527 'external-debugging-output)
1526 (princ (format "late-package-hierarchies and late-package-load-path:\n%S\n%S\n" 1528 (princ (format "configure-late-package-directories, late-package-hierarchies and late-package-load-path:\n%S\n%S\n"
1527 late-package-hierarchies late-package-load-path) 1529 configure-late-package-directories late-package-hierarchies late-package-load-path)
1528 'external-debugging-output) 1530 'external-debugging-output)
1529 (princ (format "last-package-hierarchies and last-package-load-path:\n%S\n%S\n" 1531 (princ (format "configure-last-package-directories, last-package-hierarchies and last-package-load-path:\n%S\n%S\n"
1530 last-package-hierarchies last-package-load-path) 1532 configure-last-package-directories last-package-hierarchies last-package-load-path)
1531 'external-debugging-output)) 1533 'external-debugging-output))
1532 1534
1533 (if debug-paths 1535 (if debug-paths
1534 (princ (format "load-path:\n%S\n" load-path) 1536 (princ (format "load-path:\n%S\n" load-path)
1535 'external-debugging-output)) 1537 'external-debugging-output))
1536 (setq module-directory (paths-find-module-directory emacs-roots)) 1538 (setq module-directory (paths-find-module-directory emacs-roots))
1537 (if debug-paths 1539 (if debug-paths
1538 (princ (format "module-directory:\n%S\n" module-directory) 1540 (princ (format "configure-module-directory and module-directory:\n%S\n"
1541 configure-module-directory module-directory)
1539 'external-debugging-output)) 1542 'external-debugging-output))
1540 (setq site-module-directory (and (null inhibit-site-modules) 1543 (setq site-module-directory (and (null inhibit-site-modules)
1541 (paths-find-site-module-directory 1544 (paths-find-site-module-directory
1542 emacs-roots))) 1545 emacs-roots)))
1543 (if (and debug-paths (null inhibit-site-modules)) 1546 (if (and debug-paths (null inhibit-site-modules))
1544 (princ (format "site-module-directory:\n%S\n" 1547 (princ (format "configure-site-module-directory and site-module-directory:\n%S\n%S\n"
1545 site-module-directory) 1548 configure-site-module-directory site-module-directory)
1546 'external-debugging-output)) 1549 'external-debugging-output))
1547 1550
1548 (setq module-load-path (paths-construct-module-load-path 1551 (setq module-load-path (paths-construct-module-load-path
1549 emacs-roots 1552 emacs-roots
1550 module-directory 1553 module-directory
1555 (paths-construct-info-path 1558 (paths-construct-info-path
1556 emacs-roots 1559 emacs-roots
1557 early-package-hierarchies late-package-hierarchies last-package-hierarchies)) 1560 early-package-hierarchies late-package-hierarchies last-package-hierarchies))
1558 1561
1559 (if debug-paths 1562 (if debug-paths
1560 (princ (format "Info-directory-list:\n%S\n" Info-directory-list) 1563 (princ (format "configure-info-directory, configure-info-path and Info-directory-list:\n%S\n%S\n%S\n"
1564 configure-info-directory configure-info-path Info-directory-list)
1561 'external-debugging-output)) 1565 'external-debugging-output))
1562 1566
1563 (setq exec-directory (paths-find-exec-directory emacs-roots)) 1567 (setq exec-directory (paths-find-exec-directory emacs-roots))
1564 1568
1565 (if debug-paths 1569 (if debug-paths
1566 (princ (format "exec-directory:\n%s\n" exec-directory) 1570 (princ (format "configure-exec-directory and exec-directory:\n%S\n%S\n"
1571 configure-exec-directory exec-directory)
1567 'external-debugging-output)) 1572 'external-debugging-output))
1568 1573
1569 (setq exec-path 1574 (setq exec-path
1570 (paths-construct-exec-path emacs-roots exec-directory 1575 (paths-construct-exec-path emacs-roots exec-directory
1571 early-package-hierarchies late-package-hierarchies 1576 early-package-hierarchies late-package-hierarchies
1576 'external-debugging-output)) 1581 'external-debugging-output))
1577 1582
1578 (setq doc-directory (paths-find-doc-directory emacs-roots)) 1583 (setq doc-directory (paths-find-doc-directory emacs-roots))
1579 1584
1580 (if debug-paths 1585 (if debug-paths
1581 (princ (format "doc-directory:\n%S\n" doc-directory) 1586 (princ (format "configure-doc-directory and doc-directory:\n%S\n%S\n"
1587 configure-doc-directory doc-directory)
1582 'external-debugging-output)) 1588 'external-debugging-output))
1583 1589
1584 (setq data-directory (paths-find-data-directory emacs-roots)) 1590 (setq data-directory (paths-find-data-directory emacs-roots))
1585 1591
1586 (if debug-paths 1592 (if debug-paths
1587 (princ (format "data-directory:\n%S\n" data-directory) 1593 (princ (format "configure-data-directory and data-directory:\n%S\n%S\n"
1594 configure-data-directory data-directory)
1588 'external-debugging-output)) 1595 'external-debugging-output))
1589 1596
1590 (setq data-directory-list (paths-construct-data-directory-list 1597 (setq data-directory-list (paths-construct-data-directory-list
1591 data-directory early-package-hierarchies 1598 data-directory early-package-hierarchies
1592 late-package-hierarchies last-package-hierarchies)) 1599 late-package-hierarchies last-package-hierarchies))