Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 2699:96036853a107

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-03-29 02:58:56 by aidan] Support X11 keysyms of the form UABCD.
author aidan
date Tue, 29 Mar 2005 02:59:21 +0000
parents 3e5a2d0d57e1
children f441e940eed8
comparison
equal deleted inserted replaced
2698:d8df26f08486 2699:96036853a107
701 701
702 ;; Setup the toolbar icon directory 702 ;; Setup the toolbar icon directory
703 (when (featurep 'toolbar) 703 (when (featurep 'toolbar)
704 (init-toolbar-location)) 704 (init-toolbar-location))
705 705
706 ;; Setup coding systems and Unicode support--needs to be before X11
707 ;; initialisation in case of keysyms of the form UABCD.
708 (when (featurep 'mule)
709 (declare-fboundp (init-mule-at-startup)))
710
706 (if (featurep 'toolbar) 711 (if (featurep 'toolbar)
707 (if (featurep 'infodock) 712 (if (featurep 'infodock)
708 (require 'id-x-toolbar) 713 (require 'id-x-toolbar)
709 (init-toolbar))) 714 (init-toolbar)))
710 715
734 ;; Actually using hooks within Emacs is bad for future maintenance. --rms. 739 ;; Actually using hooks within Emacs is bad for future maintenance. --rms.
735 ;; 740 ;;
736 ;; In this case, I completely agree. --ben 741 ;; In this case, I completely agree. --ben
737 (if (featurep 'menubar) 742 (if (featurep 'menubar)
738 (init-menubar-at-startup)) 743 (init-menubar-at-startup))
739 ;; perhaps this should go earlier in the process?
740 (if (featurep 'mule)
741 (declare-fboundp (init-mule-at-startup)))
742
743 ;; 744 ;;
744 ;; We have normality, I repeat, we have normality. Anything you still 745 ;; We have normality, I repeat, we have normality. Anything you still
745 ;; can't cope with is therefore your own problem. (And we don't need 746 ;; can't cope with is therefore your own problem. (And we don't need
746 ;; to kill XEmacs for it.) 747 ;; to kill XEmacs for it.)
747 ;; 748 ;;