[16361] in Athena Bugs
sun4 8.2.10: emacs
daemon@ATHENA.MIT.EDU (Felix S Klock)
Mon Sep 28 15:47:14 1998
To: bugs@MIT.EDU
Date: Mon, 28 Sep 1998 15:47:03 EDT
From: Felix S Klock <pnkfelix@MIT.EDU>
System name: w20-575-43.mit.edu
Type and version: SPARC/4 8.2.10
Display type: tcx
What were you trying to do?
I was trying to use Emacs on the new UltraSparc 10s (I'm
writing this from another terminal, as this problem causes writing
email from the UltraSparcs to be almost impossible) This problem has
only happened on UltraSparcs. I've tried it on two of the UltraSparcs
in w20 and two in the basement of bld 2.
What's wrong:
File IO (saves and loads) is taking much longer in emacs on
the UltraSparcs than on other athena machine.
What should have happened:
Average time for File Save and Load on the Ultras was 30 secs,
versus under 1 sec on this workstation, for example.
Please describe any relevant documentation references:
This problem only seems to occur on my athena account; other
people's athena accounts work fine with emacs on the new Ultras. Thus
I've tried logging in w/o customizations (the problem still occured
then) and I've tried temporarily removing my .emacs file (the problem
still occured then as well) Still, just in case they are helpful,
here are my .cshrc.mine and my .emacs:
--------------------- .cshrc.mine ---------------------
set lineedit
if ( $?EMACS ) then
set prompt = "%n%S@%M%s:%B%~/athena%# "
else
set prompt = "%n%S@%M%s:%B%~/athena%#\
"
endif
alias auto_xzewd "xzewd --no-list --no-sender --snapshots --sender-geometry -141+22 --snapshots-geometry 658x125+1-0 &"
alias auto_xzewd_list "xzewd --list --no-sender --no-snapshots --sender-geometry -141+22 --snapshots-geometry 658x125+1-0 --list-geometry 658x125+1-0 &"
alias 6001 "scheme -edwin -band 6001.com "
alias dir "ls --color -F"
alias z 'zwrite -s "`~/.randomzsigs`"'
#alias z '~/.zrandom2'
alias znol "znol -l"
alias lo "kdestroy; logout"
setenv HOSTNAME `hostname`
if ($?TERM) then
switch ($TERM)
case linux:
setenv TERM vt100
breaksw
endsw
else
setenv TERM vt100
endif
if ( $?prompt ) then
if ($?TERM) then
switch ($TERM)
case xterm:
alias setxtermtitle 'echo -n "]0;\!*
"'
alias setxtermicon 'echo -n "]1;\!*
"'
if ($?tcsh ) then
alias cwdcmd 'setxtermtitle ${HOSTNAME}: $cwd; setxtermicon $HOSTNAME'
alias telnet '\telnet \!*; cwdcmd'
cwdcmd
else
alias setxterm 'setxtermtitle $HOSTNAME; setxtermicon $HOSTNAME'
alias telnet '\telnet \!*; setxterm'
setxterm
endif
breaksw
endsw
endif
endif
if (-r /usr/local/netscape) then
alias netscape '/usr/local/netscape/netscape'
else
alias netscape 'netscape'
endif
#setenv XMcd*libdir /afs/.sipb.mit.edu/project/sipb/lib/xmcd
setenv XMcd*libdir /usr/lib/xmcd
# Check if local install of java (for JDK_HOME variable)
setenv JDK_HOME /mit/java/current/arch/$ATHENA_SYS
if (-e /usr/java1.1) then
setenv JDK_HOME /usr/java1.1
endif
if (-e /usr/java) then
setenv JDK_HOME /usr/java
endif
setenv CVSROOT /mit/6.170/groups/se23/CVS-Repository
setenv JAVA_HOME $JDK_HOME
setenv FSK_CLASSES ${HOME}/code/java/classes:${JAVA_HOME}/lib/classes.zip
setenv PATH $JDK_HOME/bin:$PATH
if ($?CLASSPATH) then
setenv CLASSPATH .:${CLASSPATH}:${FSK_CLASSES}
else
setenv CLASSPATH .:${FSK_CLASSES}
endif
if ($?HOSTNAME) then
switch ($HOSTNAME)
case fif:
case FIF:
case fif.mit.edu:
case FIF.MIT.EDU:
setenv PATH $KDEDIR/bin:$QTDIR/bin:$PATH
setenv SWING_HOME /usr/local/swing
setenv CLASSPATH /usr/local/swing/swingall.jar:$CLASSPATH
breaksw
default:
breaksw
endsw
endif
setenv CLASSPATH ${CLASSPATH}:/mit/6.035/provided/scanner
--------------------- .emacs ---------------------
(setq load-path (cons "~/emacs-conf" load-path))
(fmakunbound 'c-mode)
(makunbound 'c-mode-map)
;(fmakunbound 'c++-mode)
;(makunbound 'c++-mode-map)
(makunbound 'c-style-alist)
(autoload 'cc-mode "cc-mode" "C++ Editing Mode" t)
(autoload 'c-mode "cc-mode" "C Editing Mode" t)
(autoload 'objc-mode "cc-mode" "Objective-C Editing Mode" t)
(autoload 'java-mode "cc-mode" "Java Editing Mode" t)
(load "/mit/java_v1.1.3/share/elisp/java-mode.el")
(load "/mit/java_v1.1.3/share/elisp/java-f-lck.el")
(autoload 'curl-mode "curl" "FelixPersonalCurlMode" t)
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;(load "tempo.el")
;(load "hilit-java")
(load "java-compile")
;(load "java-mode.el")
;;; Java things
(add-hook 'java-mode-hook 'my-java-mode-hook)
(defun my-java-mode-hook ()
(cond (window-system
(auto-fill-mode)
(require 'font-lock)
(require 'java-f-lck)
(turn-on-font-lock))))
(setq font-lock-maximum-decoration t)
;; turn off the scroll bar
(scroll-bar-mode -1)
;; get backspace key to work properly
(setq term-setup-hook
'(lambda()
(setq keyboard-translate-table "\C-@\C-a\C-b\C-c\C-d\C-e\C-f\C-g\C-?")
(global-set-key "\M-h" 'help-for-help)))
(setq shell-mode-hook
'(lambda()
(setq comint-process-echoes t)))
;;(define-key global-map "\C-h" 'delete-backward-char)
;; highlight text in source windows. if you want to have a light background
;; then use 'light instead of 'dark
;; Notice that the hilit mode must be turned on before most of the other
;; buffer parsing schemes.
;(cond (window-system
; (setq hilit-mode-enable-list '(java-mode)
; hilit-auto-rehighlight 'true
; hilit-background-mode 'light
; hilit-inhibit-hooks nil
; hilit-inhibit-rebinding nil)
; (require 'hilit19)
; ))
(setq auto-mode-alist
(append
'(("\\.C$" . cc-mode)
("\\.H$" . cc-mode)
("\\.cc$" . cc-mode)
("\\.hh$" . cc-mode)
("\\.c$" . c-mode)
("\\.h$" . c-mode)
("\\.m$" . objc-mode)
("\\.java$" . java-mode)
("\\.pl$" . perl-mode)
("\\.curl$" . curl-mode)
("\\.html$" . html-helper-mode)
) auto-mode-alist))
;; make a shortcut for the goto-line function
(global-set-key "\M-g" 'goto-line)
(global-set-key [f9] 'compile)
(global-set-key [f10] 'next-error)
;; word-wrapping
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook
'(lambda () (auto-fill-mode 1)))
; (add-hook 'text-mode-hook
; '(lambda () (font-lock-mode 1)))
(add-hook 'font-lock-mode-hook
(function
(lambda ()
(if (eq major-mode 'java-mode)
(setq font-lock-keywords java-font-lock-keywords)))))
;;; colorize on file writes
;(if (not (memq 'hilit-rehighlight-buffer write-file-hooks))
; (setq write-file-hooks
; (cons 'hilit-rehighlight-buffer write-file-hooks)))
(global-font-lock-mode
'(java-mode
curl-mode
scheme-mode
lisp-mode
c-mode
;c++-mode
perl-mode))
;; give us html editting features on .html files
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist
(append '(("\\.html$" . html-helper-mode))
auto-mode-alist))
(set-background-color "black")
(setq scheme-program-name "/mit/scheme/bin/scheme")
