               (method
                (funcall method indent-point state)))))))
 
-(provide 'ralph)
+(provide 'ralph)
  (setq indent-region-function 'lisp-indent-region)
  (make-local-variable 'lisp-indent-function)
  (set lisp-indent-function 'ralph-indent-function)
  (set-syntax-table ralph-mode-syntax-table))

;; indentation offsets
(put 'when 'ralph-indent-function 1)

	   'words)
	 . font-lock-warning-face)))

(defcustom ralph-mode-hook nil
  "*List of functions to call on entry to ralph mode."
  :group 'ralph
  :type 'hook)

(defvar ralph-mode-syntax-table
  (let ((table (copy-syntax-table lisp-mode-syntax-table)))
    (modify-syntax-entry ?\[ "(]" table)
