Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 1232:c08a6fa181d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-23 11:38:56 by stephent] commit notice <87lm1cksms.fsf@tleepslib.sk.tsukuba.ac.jp> autoloads patch <87lm1ig654.fsf@tleepslib.sk.tsukuba.ac.jp> Martin's info.el patch <877kd5je7e.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 23 Jan 2003 11:39:01 +0000
parents 5636ae1c0234
children 4542b72c005e
comparison
equal deleted inserted replaced
1231:3f6adebda25c 1232:c08a6fa181d1
540 inhibit-site-lisp 540 inhibit-site-lisp
541 debug-paths 541 debug-paths
542 nil) 542 nil)
543 (startup-setup-paths-warning)) 543 (startup-setup-paths-warning))
544 544
545 ;; Either we need to inhibit messages from do_autoloads, or this
546 ;; should go into (command-line) after the initialization of the
547 ;; frame?
545 (startup-load-autoloads) 548 (startup-load-autoloads)
546 549
547 (let (error-data) 550 (let (error-data)
548 ;; if noninteractive, an error will kill us. by catching and 551 ;; if noninteractive, an error will kill us. by catching and
549 ;; resignalling, we don't accomplish much, but do make it difficult 552 ;; resignalling, we don't accomplish much, but do make it difficult
745 ;; Actually using hooks within Emacs is bad for future maintenance. --rms. 748 ;; Actually using hooks within Emacs is bad for future maintenance. --rms.
746 ;; 749 ;;
747 ;; In this case, I completely agree. --ben 750 ;; In this case, I completely agree. --ben
748 (if (featurep 'menubar) 751 (if (featurep 'menubar)
749 (init-menubar-at-startup)) 752 (init-menubar-at-startup))
750 ;; perhaps this should go earlier in the proecess? 753 ;; perhaps this should go earlier in the process?
751 (if (featurep 'mule) 754 (if (featurep 'mule)
752 (declare-fboundp (init-mule-at-startup))) 755 (declare-fboundp (init-mule-at-startup)))
753 756
754 ;; 757 ;;
755 ;; We have normality, I repeat, we have normality. Anything you still 758 ;; We have normality, I repeat, we have normality. Anything you still
1245 (round (/ (/ (- fill-area-width glyph-pixwidth) 2) avg-pixwidth))))) 1248 (round (/ (/ (- fill-area-width glyph-pixwidth) 2) avg-pixwidth)))))
1246 1249
1247 (defun splash-frame-body () 1250 (defun splash-frame-body ()
1248 `[((face (blue bold underline) 1251 `[((face (blue bold underline)
1249 "\nDistribution, copying license, warranty:\n\n") 1252 "\nDistribution, copying license, warranty:\n\n")
1250 "Please visit the XEmacs website at http://www.xemacs.org !\n\n" 1253 "Please visit the XEmacs website at http://www.xemacs.org/ !\n\n"
1251 ,@(if (featurep 'sparcworks) 1254 ,@(if (featurep 'sparcworks)
1252 `( "\ 1255 `( "\
1253 Sun provides support for the WorkShop/XEmacs integration package only. 1256 Sun provides support for the WorkShop/XEmacs integration package only.
1254 All other XEmacs packages are provided to you \"AS IS\".\n" 1257 All other XEmacs packages are provided to you \"AS IS\".\n"
1255 ,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") 1258 ,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES")
1301 ((key info) ": read the on-line documentation\n\n") 1304 ((key info) ": read the on-line documentation\n\n")
1302 ((key describe-project) ": read about the GNU project\n") 1305 ((key describe-project) ": read about the GNU project\n")
1303 ((key about-xemacs) ": see who's developing XEmacs\n")) 1306 ((key about-xemacs) ": see who's developing XEmacs\n"))
1304 1307
1305 ((face (blue bold underline) "\nUseful stuff:\n\n") 1308 ((face (blue bold underline) "\nUseful stuff:\n\n")
1306 "Things that you should know rather quickly...\n\n" 1309 "Things that you should learn rather quickly...\n\n"
1307 ((key find-file) ": visit a file\n") 1310 ((key find-file) ": visit a file\n")
1308 ((key save-buffer) ": save changes\n") 1311 ((key save-buffer) ": save changes\n")
1309 ((key undo) ": undo changes\n") 1312 ((key undo) ": undo changes\n")
1310 ((key save-buffers-kill-emacs) ": exit XEmacs\n")) 1313 ((key save-buffers-kill-emacs) ": exit XEmacs\n"))
1311 ]) 1314 ])
1428 (princ (buffer-string) 'external-debugging-output) 1431 (princ (buffer-string) 'external-debugging-output)
1429 (erase-buffer) 1432 (erase-buffer)
1430 t))))) 1433 t)))))
1431 1434
1432 (defun startup-load-autoloads () 1435 (defun startup-load-autoloads ()
1433 (if (and (not inhibit-autoloads) 1436 (when (and (not inhibit-autoloads) lisp-directory)
1434 lisp-directory) 1437 (load (expand-file-name (file-name-sans-extension autoload-file-name)
1438 lisp-directory)
1439 nil t)
1440 (when (featurep 'mule)
1435 (load (expand-file-name (file-name-sans-extension autoload-file-name) 1441 (load (expand-file-name (file-name-sans-extension autoload-file-name)
1436 lisp-directory) nil t)) 1442 (file-name-as-directory
1443 (expand-file-name "mule" lisp-directory)))
1444 nil t)))
1437 1445
1438 ;; Hey! Let's use a packages-* function for a non-package purpose! 1446 ;; Hey! Let's use a packages-* function for a non-package purpose!
1439 (if (and (not inhibit-autoloads) (featurep 'modules)) 1447 (when (and (not inhibit-autoloads) (featurep 'modules))
1440 (packages-load-package-auto-autoloads module-load-path)) 1448 (packages-load-package-auto-autoloads module-load-path))
1441 1449
1442 (if (and (not inhibit-autoloads) (not inhibit-all-packages)) 1450 (unless (or inhibit-autoloads inhibit-all-packages)
1443 (progn 1451 (unless inhibit-early-packages
1444 (if (not inhibit-early-packages) 1452 (packages-load-package-auto-autoloads early-package-load-path))
1445 (packages-load-package-auto-autoloads early-package-load-path)) 1453 (packages-load-package-auto-autoloads late-package-load-path)
1446 (packages-load-package-auto-autoloads late-package-load-path) 1454 (packages-load-package-auto-autoloads last-package-load-path)))
1447 (packages-load-package-auto-autoloads last-package-load-path))))
1448 1455
1449 ;;; startup.el ends here 1456 ;;; startup.el ends here