This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: Emacs takes 100% CPU


Nicolas Saunier <saunier@interchange.ubc.ca> writes:

I am using emacs under cygwin on Windows XP home and pro. After some
time (from a few seconds / minutes to hours and days), on the two
machines, emacs starts taking 100% of the CPU, and becomes
non-responsive (I have to kill it with the task manager). I thought
this might be a problem of my first old installation on the XP home
machine, but I have just encountered the same problem on the brand new
XP pro machine.

See the attached cygcheck.out (XP home machine). Do you need any other
information ?

It is some buggy package you are using and need to upgrade. I always forget its name. Semantic?

Thanks for your answer. I don't think I have such a package (in emacs you mean ?). How can I list the packages in use in emacs ? Here is my .emacs attached.


Regards,

Nicolas
--
Nicolas Saunier
Postdoctoral Research Associate
Department of Civil Engineering
University of British Columbia
http://www.confins.net/saunier/
;; Ctrl-x left and right cycle through buffers
;;(require 'bs)
;;(global-set-key [\C-x \C-b] 'bs-show)
;;(global-set-key [\C-tab] 'bs-cycle-next) ;goto next buffer
;;(global-set-key [\C-tab] 'bs-cycle-previous) ;goto previous buffer

;; from http://perso.ens-lyon.fr/jean-baptiste.rouquier/programmation/.emacs
(unless (fboundp 'next-buffer)
  (defun next-buffer ()
    "Switch to the next buffer in cyclic order."
    (interactive)
    (let ((buffer (current-buffer)))
      (switch-to-buffer (other-buffer buffer))
      (bury-buffer buffer))))

(unless (fboundp 'prev-buffer)
  (defun prev-buffer ()
    "Switch to the previous buffer in cyclic order."
    (interactive)
    (let ((list (nreverse (buffer-list)))
          found)
      (while (and (not found) list)
        (let ((buffer (car list)))
          (if (and (not (get-buffer-window buffer))
                   (not (string-match "\\` " (buffer-name buffer))))
              (setq found buffer)))
        (setq list (cdr list)))
      (switch-to-buffer found))))

(define-key global-map [?\C-x right] 'next-buffer)
(define-key global-map [?\C-x left] 'prev-buffer)

;;
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(case-fold-search t)
 '(current-language-environment "English")
 '(default-input-method "latin-1-prefix")
 '(global-font-lock-mode t nil (font-lock)) ;; cpu pb ?
 '(inhibit-startup-message t)
 '(iswitchb-mode t nil (iswitchb))
 '(reftex-extra-bindings t)
 '(reftex-plug-into-AUCTeX t)
 '(reftex-use-external-file-finders t)
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (text-mode-hook-identify)))
 '(truncate-lines nil))

;;(setq iswitchb-mode t)

;; for backup files;; Enable backup files.
(setq make-backup-files t)

;; Enable versioning with default values (keep five last versions, I think!)
(setq version-control t)
(setq delete-old-versions t) ;; silent deletion

;; Save all backup file in this directory.
(setq backup-directory-alist (quote ((".*" . "/tmp/"))))

(add-hook 'dired-load-hook (function (lambda () (load "dired-x"))))
(setq dired-omit-files-p t)

;; Octave mode
;; (setq auto-mode-alist (cons '("\\.m$" . octave-mode) auto-mode-alist))

;; Matlab mode
(load "~/Share/Doc/matlab.el")
(setq auto-mode-alist (cons '("\\.m$" . matlab-mode) auto-mode-alist))

;; AucTeX et RefTeX
(require 'tex-site)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)

;;; mouse
(mouse-wheel-mode t)

;; Fonts
(add-to-list 'default-frame-alist '(font . "fixed"))
;(set-default-font "fixed") ;8x13
;(set-frame-font "fixed")

;; saving emacs session
(desktop-load-default)
(desktop-read)

;;; Alternate scrolling by half-page
;;  (defun scroll-up-half ()
;;    "Scroll up half a page."
;;    (interactive)
;;    (scroll-up (/ (window-height) 2))
;;  )

;;  (defun scroll-down-half ()
;;    "Scroll down half a page."
;;    (interactive)
;;    (scroll-down (/ (window-height) 2))
;;  )
;;  (global-set-key [(mouse-5)] 'scroll-up-half)
;;  (global-set-key [(mouse-4)] 'scroll-down-half)

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]