Mercurial > hg > xemacs-beta

comparison lisp/sunpro/sunpro-init.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 54cc21c15cbb
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
125 (let ((mule-doc-file-name (concat internal-doc-file-name "-mule"))) 125 (let ((mule-doc-file-name (concat internal-doc-file-name "-mule")))
126 (if (file-exists-p (concat doc-directory mule-doc-file-name)) 126 (if (file-exists-p (concat doc-directory mule-doc-file-name))
127 (setq internal-doc-file-name mule-doc-file-name)))) 127 (setq internal-doc-file-name mule-doc-file-name))))
128 128
129 ;; Connect to tooltalk, but only on an X server. 129 ;; Connect to tooltalk, but only on an X server.
130 (and (featurep 'tooltalk) 130 (when (and (featurep 'tooltalk)
131 (fboundp 'command-line-do-tooltalk) 131 (fboundp 'command-line-do-tooltalk)
132 (eq 'x (device-type)) 132 (eq 'x (device-type)))
133 (command-line-do-tooltalk nil)) 133 (command-line-do-tooltalk nil))
134 134
135 ;; Sun's pending-del default is like textedit's 135 ;; Sun's pending-del default is like textedit's
136 (require 'pending-del) 136 (require 'pending-del)
137 (pending-delete-on nil) 137 (turn-on-pending-delete)
138 138
139 ;; Bar cursor 2 pixels wide 139 ;; Bar cursor 2 pixels wide
140 (setq bar-cursor 2) 140 (setq bar-cursor 2)
141 141
142 ;; Nice CDE compliant icon -- now the default... 142 ;; Nice CDE compliant icon -- now the default...
143 ;(if (featurep 'xpm) 143 ;;(if (featurep 'xpm)
144 ; (set-glyph-image 144 ;; (set-glyph-image
145 ; frame-icon-glyph 145 ;; frame-icon-glyph
146 ; (format "%s%s" data-directory "xemacs-icon3.xpm") 146 ;; (format "%s%s" data-directory "xemacs-icon3.xpm")
147 ; 'global 'x)) 147 ;; 'global 'x))
148 148
149 (cond 149 (cond
150 ;; Use Sun WorkShop if available 150 ;; Use Sun WorkShop if available
151 ((sunpro-update-paths-for-workshop) 151 ((sunpro-update-paths-for-workshop)
152 (require 'workshop)) 152 (require 'workshop))