 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 (add-hook 'scheme-mode-hook 'turn-on-auto-fill)
 ; (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
-  ; "Prevent annoying \"Active processes exist\" query when you quit Emacs."
-  ; (flet ((process-list ())) ad-do-it))
+; "Prevent annoying \"Active processes exist\" query when you quit Emacs."
+; (flet ((process-list ())) ad-do-it))
 (setq-default ispell-program-name "aspell")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun xscheme-prompt-for-expression-exit ()
  (interactive)
  (let (
	;; In Emacs 21+, during a minibuffer read the minibuffer
	;; contains the prompt as buffer text and that text is
	;; read only.  So we can no longer assume that (point-min)
	;; is where the user-entered text starts and we must avoid
	;; modifying that prompt text.  The value we want instead
	;; of (point-min) is (minibuffer-prompt-end).
	(point-min (if (fboundp 'minibuffer-prompt-end)
		              (minibuffer-prompt-end)
		            (point-min))))
    (if (eq (xscheme-region-expression-p point-min (point-max)) 'one)
        (exit-minibuffer)
      (error "input must be a single, complete expression"))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if window-system
  (tool-bar-mode -1))
(if window-system
  (scroll-bar-mode -1))
;; (menu-bar-mode -1)
(column-number-mode 1)
(global-display-line-numbers-mode t)
