Re: Emacs uses 100% cpu time

[Tassilo Horn]

Stefan Monnier <address@hidden> writes:

Hello Stefan,

> What about your .emacs file?  Have you tried to empty it (or partly)
> to see if something in it triggers the problem?

I cannot reproduce the bug with --no-site-file or -Q. If I start emacs
with -q the bug occurs. So it seems to have something to do with the
code in my site-file. I tried commenting out each block of external
mode's init code, but that didn't help. Is it possible that there is a
weird combination or order of how external modes are loaded?

,----[ /usr/share/emacs/site-lisp/site-start.el ]
| (load "/usr/share/emacs/site-lisp/site-gentoo")
`----

,----[ /usr/share/emacs/site-lisp/site-gentoo.el ]
| ;;; DO NOT EDIT THIS FILE -- IT IS GENERATED AUTOMATICALLY BY PORTAGE
| ;;; -----------------------------------------------------------------
| 
| 
| ;;; ispell-aspell site-lisp configuration
| 
| (setq ispell-program-name "aspell")
| 
| ;;; boxquote site-lisp configuration
| 
| (setq load-path (cons "/usr/share/emacs/site-lisp/boxquote" load-path))
| (require 'boxquote)
| 
| 
| ;;; circe site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/circe-cvs")
| (require 'circe-auto)
| 
| ;;; elib site-lisp configuration
| 
| (setq load-path (cons "/usr/share/emacs/site-lisp/elib" load-path))
| 
| ;;; site-lisp configuration for emms-cvs
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/emms")
| (require 'emms)
| ;;; Gnuplot site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/gnuplot")
| 
| ;;--------------------------------------------------------------------
| ;; Lines enabling gnuplot-mode
| 
|   (autoload 'gnuplot-mode "gnuplot" "gnuplot major mode" t)
|   (autoload 'gnuplot-make-buffer "gnuplot" "open a buffer in gnuplot mode" t)
| 
| ;; this line automatically causes all files with the .gp extension to
| ;; be loaded into gnuplot mode
|   (setq auto-mode-alist (append '(("\\.gp$" . gnuplot-mode)) auto-mode-alist))
| 
| ;; This line binds the function-9 key so that it opens a buffer into
| ;; gnuplot mode 
|   (global-set-key [(f9)] 'gnuplot-make-buffer)
| 
| ;; end of line for gnuplot-mode
| ;;--------------------------------------------------------------------
| 
| ;;; haskell-mode site-lisp configuration
|  
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/haskell-mode")
| (setq auto-mode-alist
|       (append auto-mode-alist
|               '(("\\.[hg]s$"  . haskell-mode)
|                 ("\\.hi$"     . haskell-mode)
|                 ("\\.l[hg]s$" . literate-haskell-mode))))
| (autoload 'haskell-mode "haskell-mode"
|   "Major mode for editing Haskell scripts." t)
| (autoload 'literate-haskell-mode "haskell-mode"
|   "Major mode for editing literate Haskell scripts." t)
| 
| ;;; htmlize site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/htmlize")
| (require 'htmlize)
| 
| ;;; mailcrypt site-lisp configuration
| 
| (setq load-path (cons "/usr/share/emacs/site-lisp/mailcrypt" load-path))
| ;; maxima mode
| (setq load-path (cons "/usr/shar/maxima/5.9.3/emacs" load-path))
| (autoload 'maxima-mode "maxima" "Maxima mode" t)
| (autoload 'maxima "maxima" "Maxima interactive" t)
| (setq auto-mode-alist (cons '("\\.max" . maxima-mode) auto-mode-alist))
| (autoload 'dbl "dbl" "Make a debugger to run lisp, maxima and or gdb in" t)
| (autoload 'gcl-mode "gcl" "Major mode for editing maxima code and interacting 
with debugger" t)
| (setq auto-mode-alist (cons '("\\.ma?[cx]\\'" . maxima-mode) auto-mode-alist))
| 
| ;; emaxima mode
| (autoload 'emaxima-mode "emaxima" "EMaxima" t)
| (add-hook 'emaxima-mode-hook 'emaxima-mark-file-as-emaxima)
| 
| 
| ;; site-file configuration for po-mode
| 
| (autoload 'po-mode "po-mode" "Major mode for translators to edit PO files" t)
| (autoload 'po-find-file-coding-system "po-compat")
| 
| (add-to-list 'auto-mode-alist '("\\.po\\'\\|\\.po\\." . po-mode))
| (modify-coding-system-alist 'file "\\.po\\'\\|\\.po\\." 
'po-find-file-coding-system)
| 
| ;;; ruby-mode site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/ruby-mode")
| 
| (autoload 'ruby-mode "ruby-mode" "Major mode to edit ruby files." t)
| 
| (add-to-list 'auto-mode-alist '("\\.rb\\'" . ruby-mode))
| (add-to-list 'interpreter-mode-alist  '("ruby" . ruby-mode))
| 
| (autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process" t)
| (autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby in 
ruby-mode")
| 
| (add-hook 'ruby-mode-hook 'inf-ruby-keys)
| 
| ;;; auctex site-lisp configuration
| 
| (load "auctex.el" nil t t)
| 
| ;;; auctex site-lisp configuration, activating preview-latex
| 
| (load "preview-latex.el" nil t t)
| 
| ;;; cedet site-lisp configuration
| 
| (load "/usr/share/emacs/site-lisp/cedet/common/cedet")
| 
| ;; If you wish to customize CEDET, you will need to follow the
| ;; directions in the INSTALL (installed in the documentation) file and
| ;; customize your ~/.emacs /before/ site-gentoo is loaded.
| 
| ;;; ecb site-lisp configuration 
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/ecb")
| (require 'ecb)
| 
| ;;; emacs-w3m site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/emacs-w3m")
| 
| (autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
| (autoload 'w3m-browse-url "w3m" "Interface for w3m on Emacs." t)
| (autoload 'w3m-find-file "w3m" "w3m interface function for local file." t)
| (autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGINE." t)
| (autoload 'w3m-weather "w3m-weather" "Display weather report." t)
| (autoload 'w3m-antenna "w3m-antenna" "Report chenge of WEB sites." t)
| (autoload 'w3m-namazu "w3m-namazu" "Search files with Namazu." t)
| 
| (setq w3m-icon-directory "/usr/share/emacs-w3m/icon")
| 
| 
| ;;; gnus-cvs site-lisp configuration
| 
| (setq load-path (cons "/usr/share/emacs/site-lisp/gnus-cvs" load-path))
| (require 'gnus-load)
| 
| ;;; JDE site-lisp configuration
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/jde/lisp")
| (require 'jde-autoload)
| 
| ;;; site-lisp configuration for slime-cvs
| 
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/slime-cvs")
| (require 'slime)
| (slime-setup)
| 
| ;; this prevents us from requiring the user get dev-lisp/hyperspec
| ;; (which is non-free) as a hard dependency
| 
| (if (file-exists-p "/usr/share/doc/hyperspec/HyperSpec")
|     (setq common-lisp-hyperspec-root 
"file:///usr/share/doc/hyperspec/HyperSpec/")
|   (setq common-lisp-hyperspec-root 
"http://www.lispworks.com/reference/HyperSpec/";))
| ;;; svn site-lisp configuration
| 
| (setq load-path (cons "/usr/share/emacs/site-lisp/subversion" load-path))
| (add-to-list 'vc-handled-backends 'SVN)
| (require 'psvn)
`----

Raman, could you check if you can reproduce the bug with --no-site-file?
If you cannot, too, do our site-files have anything in common?

Bye,
Tassilo
-- 
[Emacs] is written in Lisp, which is the only computer language that is
beautiful.  -- Neal Stephenson, _In the Beginning was the Command Line_