unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: Doug Lewan <dougl@shubertticketing.com>
To: "help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>
Subject: RE: ielm freeze
Date: Wed, 21 Mar 2012 18:12:37 +0000	[thread overview]
Message-ID: <495248DFDEA08C469BBDED2D4AA6C6144099CB@DAKIYA1.pegasus.local> (raw)
In-Reply-To: <CALvESw7yMypTf2nFSsGwwazgf1GxUQS+ohK=EuPf-sez_Nhf-w@mail.gmail.com>

This is probably a good opportunity for a binary search.

Delete roughly the second half of your init file and see what happens.
If that fixes the problem, then the culprit is in what you deleted -- put half of it back and try again.
If it doesn't, then the culprit is in what's left -- delete the second half of it and try again.

At 124 lines you should be able to find the bug in well under 7 steps like that.

,Doug

-----Original Message-----
From: help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org [mailto:help-gnu-emacs-bounces+dougl=shubertticketing.com@gnu.org] On Behalf Of Mentus Sarovar
Sent: Wednesday, 2012 March 21 08:37
To: help-gnu-emacs@gnu.org
Subject: ielm freeze

Hi all

My ielm-REPL freezes as soon as I press RETURN after I entered some
expression to be evaluated. This does not happen if I don't have my
init file loaded, so the culprit must be in my init file:

(require 'cl)
(defvar *emacs-load-start* (current-time))

;; save emacs customizations in a separate file
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

;; slime

(setq inferior-lisp-program "sbcl")
(add-to-list 'load-path "~/../site-lisp/slime/")
(require 'slime-autoloads)

(eval-after-load "slime"
  '(progn
     (add-to-list 'load-path "~/../site-lisp/slime/contrib")
     (slime-setup '(slime-fancy slime-banner))
     (slime-autodoc-mode)
     (add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
     (define-key slime-repl-mode-map (kbd "$") 'paredit-newline)
     (show-paren-mode 1)     ;; highlight parens
     (global-set-key [?\C-§] 'slime-selector)

     ;; keep fasls separate
     ;; (setq slime-compile-file-options '(:fasl-directory "/tmp/slime-fasls/"))
     ;; (make-directory "D:/temp/slime-fasls/" t)
     ))

;; Autocomplete

(add-to-list 'load-path "~/../site-lisp/auto-complete/")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/../site-lisp/auto-complete//ac-dict")
(ac-config-default)

;; ac-slime

(add-to-list 'load-path "~/../site-lisp/ac-slime/")
(require 'ac-slime)
(add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
(eval-after-load "auto-complete"
  '(progn
     (add-to-list 'ac-modes 'slime-repl-mode)
     (add-to-list 'ac-modes 'lisp-mode)))

;; paredit

(add-to-list 'load-path "~/../site-lisp/paredit/")
;; (require 'paredit)
(autoload 'paredit-mode "paredit" "Minor mode for pseudo-structurally
editing Lisp code." t)

(dolist (elt '(emacs-lisp-mode-hook
	       lisp-mode-hook
	       ;; lisp-interaction-mode-hook
	       scheme-mode-hook
	       slime-repl-mode-hook))
  (add-hook elt (lambda () (paredit-mode +1))))

;; (add-hook 'emacs-lisp-mode-hook       (lambda () (paredit-mode +1)))
;; (add-hook 'lisp-mode-hook             (lambda () (paredit-mode +1)))
;; (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
;; (add-hook 'scheme-mode-hook           (lambda () (paredit-mode +1)))
;; (add-hook 'slime-repl-mode-hook       (lambda () (paredit-mode +1)))

(eval-after-load "paredit"
  '(progn
     (define-key paredit-mode-map (kbd "RET") 'paredit-newline)
     (define-key paredit-mode-map (kbd "ö") 'paredit-open-round)
     (define-key paredit-mode-map (kbd "ä") 'paredit-close-round)
     (define-key paredit-mode-map (kbd "M-ä") 'paredit-close-round-and-newline)
     (define-key paredit-mode-map (kbd "M-ö") 'paredit-wrap-round)
     (define-key paredit-mode-map (kbd "M-<left>") 'paredit-backward)
     (define-key paredit-mode-map (kbd "M-<right>") 'paredit-forward)
     (define-key paredit-mode-map (kbd "M-<up>") 'paredit-backward-up)
     (define-key paredit-mode-map (kbd "M-<down>") 'paredit-forward-down)
     (define-key paredit-mode-map (kbd "(") (lambda () (interactive)
(insert "(")))
     (define-key paredit-mode-map (kbd ")") (lambda () (interactive)
(insert ")")))))

;; cedet

;; (load-file "~/../site-lisp/cedet/common/cedet.el")
;; (semantic-load-enable-minimum-features)
;; (require 'semantic-ia)

;; ecb

;; (add-to-list 'load-path "~/../site-lisp/ecb")
;; (require 'ecb-autoloads)

;; ruby

(add-to-list 'load-path "~/../site-lisp/ruby/")
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files")
(add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
(add-to-list 'interpreter-mode-alist '("ruby" . ruby-mode))
(require 'inf-ruby)
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby
in ruby-mode")
(add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys)))
(add-hook 'ruby-mode-hook '(lambda () (local-set-key "\r" 'newline-and-indent)))

(require 'ruby-electric)
(add-hook 'ruby-mode-hook (lambda () (ruby-electric-mode t)))

;; disable echoing in ruby intrepreter
(defun echo-false () (setq comint-process-echoes t))
(add-hook 'comint-mode-hook 'echo-false)

;; rsense

(setq rsense-home (expand-file-name "~/../site-lisp/rsense/"))
(add-to-list 'load-path (concat rsense-home "/etc"))
(require 'rsense)

(add-hook 'ruby-mode-hook
          (lambda ()
            (add-to-list 'ac-sources 'ac-source-rsense-method)
            (add-to-list 'ac-sources 'ac-source-rsense-constant)))

;; color theme

(add-to-list 'load-path "~/../site-lisp/color-theme/")
(require 'color-theme)
;; (eval-after-load "color-theme"
;;   '(progn
;;      (color-theme-initialize)
;;      (color-theme-hober)))

;; solarized theme

(add-to-list 'load-path "~/../site-lisp/solarized-theme/")
(require 'color-theme-solarized)
(color-theme-solarized-light)

;; emacs macros

(fset 'visit-init-file
   [?\C-x ?\C-f ?\C-a ?\C-k ?~ ?~ backspace ?/ ?. ?e ?m ?a ?c ?s return])

(fset 'load-init-file
   [?\M-x ?l ?o ?a ?d ?- ?f ?i ?l ?e return ?\C-a ?\C-k ?~ ?~
backspace ?/ ?. ?e ?m ?a ?c ?s return])

;;--------------------------------------------------------------------------------------------------------------
(message "My .emacs loaded in %ds" (destructuring-bind (hi lo ms) (current-time)
				     (- (+ hi lo) (+ (first *emacs-load-start*) (second
*emacs-load-start*)))))



Does anyone of you know what the problem is or experienced a similar problem?

My environment: Windows 7, Emacs 23.4

Thank you
Matus




  reply	other threads:[~2012-03-21 18:12 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2012-03-21 12:37 ielm freeze Mentus Sarovar
2012-03-21 18:12 ` Doug Lewan [this message]
  -- strict thread matches above, loose matches on Subject: below --
2012-03-22  9:00 Mentus Sarovar
2012-03-22 16:02 ` Doug Lewan
2012-03-23  8:38 Matus Kmit

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=495248DFDEA08C469BBDED2D4AA6C6144099CB@DAKIYA1.pegasus.local \
    --to=dougl@shubertticketing.com \
    --cc=help-gnu-emacs@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).