annotate lisp/sunpro/sunpro-init.el @ 197:acd284d43ca1 r20-3b25

Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 489f57a838ef
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;;; No byte-compiler warnings
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 ;(eval-when-compile
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ; (require 'w3))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;;; Keep these obsolete variables for backward compatibility
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 (defconst era-version "0.95" "\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 Version numbers of this version of Era.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ;; We're (not really anymore) calling this version Sun Era.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 (defconst sun-era t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 (defun era-version ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 "Return (obsolete) string describing the version of Era that is running.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 Era is now known as XEmacs. Use (emacs-version) instead."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 (if (interactive-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 (message "%s" (era-version))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 (format "%sEra %s of %s %s on %s (%s)"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 (if sun-era "Sun " "")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 era-version
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 (substring emacs-build-time 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 (string-match " *[0-9]*:" emacs-build-time))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 (substring emacs-build-time
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 (string-match "[0-9]*$" emacs-build-time))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 emacs-build-system system-type)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 ;(defun sunpro-maybe-connect-to-tooltalk ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 ; (if (and (not (noninteractive))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 ; (fboundp 'command-line-do-tooltalk))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ; (command-line-do-tooltalk nil)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 ;; sunpro-maybe-connect-to-tooltalk must appear in the hook list
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 ;; before any clients that register patterns, like eos-load.el.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 ;; Currently eos-load.el places its functions at the end of the list
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 ;(add-hook 'before-init-hook 'sunpro-maybe-connect-to-tooltalk)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 (set-glyph-image text-pointer-glyph "xterm")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 (set-glyph-image nontext-pointer-glyph "xterm")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 ;; W3 doesn't know about using pageview, so let's fix that.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 ;; There doesn't seem to be any such function `w3-parse-mailcap' - mrb
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 ;(defun sunpro-fix-postscript-viewer ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 ; (if (not (noninteractive))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 ; (condition-case nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 ; (w3-parse-mailcap
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 ; (expand-file-name "sparcworks/sunpro-mailcap" data-directory))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 ; (error nil))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 ;(add-hook 'w3-load-hooks 'sunpro-fix-postscript-viewer)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 ;; turn on pending delete without messing up its autoloads
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 ;(defun sunpro-pending-delete-on ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 ; (if (not (noninteractive))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 ; (pending-delete-on nil)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 ;(add-hook 'before-init-hook 'sunpro-pending-delete-on)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 ;;; Decide whether to use workshop.el or eos at runtime, based on
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 ;;; which Sun DevPro products are installed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 (defun sunpro-update-paths-for-workshop ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 "Update exec-path and load-path to find supporting workshop files.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 Returns nil if the required files cannot be found."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 (and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 (cond
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 ((locate-file "workshop.el" load-path))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 ((file-exists-p (concat sunpro-dir "lib/workshop.el"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 (setq load-path (append load-path (list (concat sunpro-dir "lib/"))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 (cond
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 ((locate-file "workshop" exec-path))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 ((file-exists-p (concat sunpro-dir "bin/workshop"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 (setq exec-path (append exec-path (list (concat sunpro-dir "bin/"))))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 (defun sunpro-startup ()
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
80 "Runs at startup if support for Sun Workshop is compiled in. Don't run this."
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
81
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
82 ;; Sun distribution censors yow, among other things...
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
83 (unless (locate-file "yow.el" load-path)
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
84 (fmakunbound 'yow)
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
85 (delete-menu-item '("Apps" "Games" "Quote from Zippy"))
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
86 (delete-menu-item '("Apps" "Games" "Psychoanalyze Zippy!")))
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
87
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 (when (not (noninteractive))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
90 (flet
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
91 ((sunpro-dir-p (dir)
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
92 (and dir
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
93 (file-exists-p (concat dir "bin/workshop"))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
94 (file-exists-p (concat dir "lib/workshop.el")))))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 (defconst sunpro-dir
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 (cond
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
97 ;; Look on the PATH
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 ((let ((path exec-path) dir (found nil))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 (while (and path (not found))
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
100 (setq dir (or (car path) "."))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 (setq path (cdr path))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 (setq dir (concat dir (if (string-match "/$" dir) "../" "/../")))
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
103 (setq found (sunpro-dir-p dir)))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 (if found
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 (expand-file-name dir))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
107 ;; Check for standard Sun DevPro CD Install layout
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
108 ((if (string-match "contrib/[^/]+/[^/]+/[^/]+/[^/]+/$" exec-directory)
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
109 (let ((dir (substring exec-directory 0 (match-beginning 0))))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
110 (if (sunpro-dir-p dir)
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
111 (expand-file-name dir)))))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
112
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
113 ;; Default install location
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
114 ("/opt/SUNWspro/"))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
115
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
116 "Directory where Sun Developer Products are installed."))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
118 ;; Sunpro ships the mule version as a 2-file addition to the
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
119 ;; non-mule distribution - the binary and the doc file.
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
120 ;;
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
121 ;; This is a quick hack, I know...
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
122 ;; There ought to be a better way to do this.
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
123 ;; Perhaps a --xemacs-flavor=mule flag?
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
124 (if (featurep 'mule)
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
125 (let ((mule-doc-file-name (concat internal-doc-file-name "-mule")))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
126 (if (file-exists-p (concat doc-directory mule-doc-file-name))
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
127 (setq internal-doc-file-name mule-doc-file-name))))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128
48
56c54cf7c5b6 Import from CVS: tag r19-16b90
cvs
parents: 2
diff changeset
129 ;; Connect to tooltalk, but only on an X server.
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
130 (when (and (featurep 'tooltalk)
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
131 (fboundp 'command-line-do-tooltalk)
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
132 (eq 'x (device-type)))
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
133 (command-line-do-tooltalk nil))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 ;; Sun's pending-del default is like textedit's
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 (require 'pending-del)
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
137 (turn-on-pending-delete)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 ;; Bar cursor 2 pixels wide
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 (setq bar-cursor 2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 ;; Nice CDE compliant icon -- now the default...
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
143 ;;(if (featurep 'xpm)
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
144 ;; (set-glyph-image
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
145 ;; frame-icon-glyph
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
146 ;; (format "%s%s" data-directory "xemacs-icon3.xpm")
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 74
diff changeset
147 ;; 'global 'x))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 (cond
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
150 ;; Use Sun WorkShop if available
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 ((sunpro-update-paths-for-workshop)
197
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
152 ;; Unfortunately, changes to the default toolbar in 20.3 b21
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
153 ;; have broken workshop-frob-toolbar in workshop.el. Since new
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
154 ;; XEmacsen have to work with older WorkShops, this must be
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
155 ;; fixed both in workshop.el (distributed on the Sun WorkShop CD)
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
156 ;; and worked-around here.
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
157 (set-specifier default-toolbar
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
158 (append (specifier-instance default-toolbar)
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
159 `([,(toolbar-make-button-list nil)
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
160 workshop-bugfix nil nil])))
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
161 (require 'workshop)
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
162 (set-specifier default-toolbar
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
163 (delete-if (lambda (b) (eq (aref b 1) 'workshop-bugfix))
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents: 189
diff changeset
164 (specifier-instance default-toolbar))))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 ;; Else, use eos package with sparcworks if available
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 ((or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 (locate-file "sparcworks" exec-path)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 (prog1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 (file-exists-p (concat sunpro-dir "bin/sparcworks"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 (setq exec-path (append exec-path (list (concat sunpro-dir "bin/"))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172
189
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
173 (load "sun-eos-init")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
174 (load "sun-eos-common")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
175 (load "sun-eos-editor")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
176 (load "sun-eos-browser")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
177 (load "sun-eos-debugger")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
178 (load "sun-eos-debugger-extra")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
179 (load "sun-eos-menubar")
489f57a838ef Import from CVS: tag r20-3b21
cvs
parents: 185
diff changeset
180 (eos::start))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 (t ; Neither? Complain...
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 (display-warning
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 'sunpro
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 "XEmacs was compiled with support for Sun Developer Products,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 but neither `workshop' nor `sparcworks' were found on the PATH.")))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 ))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 (add-hook 'before-init-hook 'sunpro-startup)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 (provide 'sunpro)