|
0
|
1 ;;; No byte-compiler warnings
|
|
|
2 ;(eval-when-compile
|
|
|
3 ; (require 'w3))
|
|
|
4
|
|
|
5 ;;; Keep these obsolete variables for backward compatibility
|
|
|
6 (defconst era-version "0.95" "\
|
|
|
7 Version numbers of this version of Era.")
|
|
|
8
|
|
|
9 ;; We're (not really anymore) calling this version Sun Era.
|
|
|
10 (defconst sun-era t)
|
|
|
11
|
|
|
12 (defun era-version ()
|
|
|
13 "Return (obsolete) string describing the version of Era that is running.
|
|
|
14 Era is now known as XEmacs. Use (emacs-version) instead."
|
|
|
15 (interactive)
|
|
|
16 (if (interactive-p)
|
|
|
17 (message "%s" (era-version))
|
|
|
18 (format "%sEra %s of %s %s on %s (%s)"
|
|
|
19 (if sun-era "Sun " "")
|
|
|
20 era-version
|
|
|
21 (substring emacs-build-time 0
|
|
|
22 (string-match " *[0-9]*:" emacs-build-time))
|
|
|
23 (substring emacs-build-time
|
|
|
24 (string-match "[0-9]*$" emacs-build-time))
|
|
|
25 emacs-build-system system-type)))
|
|
|
26
|
|
|
27 ;(defun sunpro-maybe-connect-to-tooltalk ()
|
|
|
28 ; (if (and (not (noninteractive))
|
|
|
29 ; (fboundp 'command-line-do-tooltalk))
|
|
|
30 ; (command-line-do-tooltalk nil)))
|
|
|
31
|
|
|
32 ;; sunpro-maybe-connect-to-tooltalk must appear in the hook list
|
|
|
33 ;; before any clients that register patterns, like eos-load.el.
|
|
|
34 ;; Currently eos-load.el places its functions at the end of the list
|
|
|
35
|
|
|
36 ;(add-hook 'before-init-hook 'sunpro-maybe-connect-to-tooltalk)
|
|
|
37
|
|
|
38 (set-glyph-image text-pointer-glyph "xterm")
|
|
|
39 (set-glyph-image nontext-pointer-glyph "xterm")
|
|
|
40
|
|
|
41 ;; W3 doesn't know about using pageview, so let's fix that.
|
|
|
42 ;; There doesn't seem to be any such function `w3-parse-mailcap' - mrb
|
|
|
43
|
|
|
44 ;(defun sunpro-fix-postscript-viewer ()
|
|
|
45 ; (if (not (noninteractive))
|
|
|
46 ; (condition-case nil
|
|
|
47 ; (w3-parse-mailcap
|
|
|
48 ; (expand-file-name "sparcworks/sunpro-mailcap" data-directory))
|
|
|
49 ; (error nil))))
|
|
|
50
|
|
|
51 ;(add-hook 'w3-load-hooks 'sunpro-fix-postscript-viewer)
|
|
|
52
|
|
|
53 ;; turn on pending delete without messing up its autoloads
|
|
|
54 ;(defun sunpro-pending-delete-on ()
|
|
|
55 ; (if (not (noninteractive))
|
|
|
56 ; (pending-delete-on nil)))
|
|
|
57
|
|
|
58 ;(add-hook 'before-init-hook 'sunpro-pending-delete-on)
|
|
|
59
|
|
|
60 ;;; Decide whether to use workshop.el or eos at runtime, based on
|
|
|
61 ;;; which Sun DevPro products are installed.
|
|
|
62
|
|
|
63 (defun sunpro-update-paths-for-workshop ()
|
|
|
64 "Update exec-path and load-path to find supporting workshop files.
|
|
|
65 Returns nil if the required files cannot be found."
|
|
|
66 (and
|
|
|
67 (cond
|
|
|
68 ((locate-file "workshop.el" load-path))
|
|
|
69
|
|
|
70 ((file-exists-p (concat sunpro-dir "lib/workshop.el"))
|
|
|
71 (setq load-path (append load-path (list (concat sunpro-dir "lib/"))))))
|
|
|
72
|
|
|
73 (cond
|
|
|
74 ((locate-file "workshop" exec-path))
|
|
|
75
|
|
|
76 ((file-exists-p (concat sunpro-dir "bin/workshop"))
|
|
|
77 (setq exec-path (append exec-path (list (concat sunpro-dir "bin/"))))))))
|
|
|
78
|
|
|
79 (defun sunpro-startup ()
|
|
|
80 (when (not (noninteractive))
|
|
|
81
|
|
2
|
82 (flet
|
|
|
83 ((sunpro-dir-p (dir)
|
|
|
84 (and dir
|
|
|
85 (file-exists-p (concat dir "bin/workshop"))
|
|
|
86 (file-exists-p (concat dir "lib/workshop.el")))))
|
|
0
|
87 (defconst sunpro-dir
|
|
|
88 (cond
|
|
2
|
89 ;; Look on the PATH
|
|
0
|
90 ((let ((path exec-path) dir (found nil))
|
|
|
91 (while (and path (not found))
|
|
2
|
92 (setq dir (or (car path) "."))
|
|
0
|
93 (setq path (cdr path))
|
|
|
94 (setq dir (concat dir (if (string-match "/$" dir) "../" "/../")))
|
|
2
|
95 (setq found (sunpro-dir-p dir)))
|
|
0
|
96 (if found
|
|
|
97 (expand-file-name dir))))
|
|
|
98
|
|
2
|
99 ;; Check for standard Sun DevPro CD Install layout
|
|
|
100 ((if (string-match "contrib/[^/]+/[^/]+/[^/]+/[^/]+/$" exec-directory)
|
|
|
101 (let ((dir (substring exec-directory 0 (match-beginning 0))))
|
|
|
102 (if (sunpro-dir-p dir)
|
|
|
103 (expand-file-name dir)))))
|
|
|
104
|
|
|
105 ;; Default install location
|
|
|
106 ("/opt/SUNWspro/"))
|
|
|
107
|
|
|
108 "Directory where Sun Developer Products are installed."))
|
|
0
|
109
|
|
2
|
110 ;; Sunpro ships the mule version as a 2-file addition to the
|
|
|
111 ;; non-mule distribution - the binary and the doc file.
|
|
|
112 ;;
|
|
|
113 ;; This is a quick hack, I know...
|
|
|
114 ;; There ought to be a better way to do this.
|
|
|
115 ;; Perhaps a --xemacs-flavor=mule flag?
|
|
|
116 (if (featurep 'mule)
|
|
|
117 (let ((mule-doc-file-name (concat internal-doc-file-name "-mule")))
|
|
|
118 (if (file-exists-p (concat doc-directory mule-doc-file-name))
|
|
|
119 (setq internal-doc-file-name mule-doc-file-name))))
|
|
0
|
120
|
|
|
121 ;; Connect to tooltalk
|
|
|
122 (and (featurep 'tooltalk)
|
|
|
123 (fboundp 'command-line-do-tooltalk)
|
|
|
124 (command-line-do-tooltalk nil))
|
|
|
125
|
|
|
126 ;; Sun's pending-del default is like textedit's
|
|
|
127 (require 'pending-del)
|
|
|
128 (pending-delete-on nil)
|
|
|
129
|
|
|
130 ;; Bar cursor 2 pixels wide
|
|
|
131 (setq bar-cursor 2)
|
|
|
132
|
|
|
133 ;; Nice CDE compliant icon -- now the default...
|
|
|
134 ;(if (featurep 'xpm)
|
|
|
135 ; (set-glyph-image
|
|
|
136 ; frame-icon-glyph
|
|
|
137 ; (format "%s%s" data-directory "xemacs-icon3.xpm")
|
|
|
138 ; 'global 'x))
|
|
|
139
|
|
|
140 (cond
|
|
2
|
141 ;; Use Sun WorkShop if available
|
|
0
|
142 ((sunpro-update-paths-for-workshop)
|
|
|
143 (require 'workshop))
|
|
|
144
|
|
|
145 ;; Else, use eos package with sparcworks if available
|
|
|
146 ((or
|
|
|
147 (locate-file "sparcworks" exec-path)
|
|
|
148 (prog1
|
|
|
149 (file-exists-p (concat sunpro-dir "bin/sparcworks"))
|
|
|
150 (setq exec-path (append exec-path (list (concat sunpro-dir "bin/"))))))
|
|
|
151
|
|
|
152 (and (fboundp 'eos::start)) (eos::start))
|
|
|
153
|
|
|
154 (t ; Neither? Complain...
|
|
|
155 (display-warning
|
|
|
156 'sunpro
|
|
|
157 "XEmacs was compiled with support for Sun Developer Products,
|
|
|
158 but neither `workshop' nor `sparcworks' were found on the PATH.")))
|
|
|
159 ))
|
|
|
160
|
|
|
161 (add-hook 'before-init-hook 'sunpro-startup)
|
|
|
162
|
|
|
163 (provide 'sunpro)
|
