 	(slate-forward-whitespace)
 	(slate-backward-sexp 1))
       (slate-begin-of-defun))))		;and go to the next one
-
-(defun slate-find-statement-begin ()
-  "Leaves the point at the first non-blank, non-comment character of a new
-statement.  If beginning of buffer is reached, then the point is left there.
-This routine only will return with the point pointing at the first non-blank
-on a line; it won't be fooled by multiple statements on a line into stopping
-prematurely.  Also, goes to start of method if we started in the method
-selector."
-  (let (start ch)
-    (when (equal (preceding-char) ?.)	;if we start at eos
-      (backward-char 1))		;we find the begin of THAT stmt
-    (while (and (null start) (not (bobp)))
-      (slate-backward-whitespace)
-      (cond ((equal (setq ch (preceding-char)) ?.)
-	     (let (saved-point)
-	       (setq saved-point (point))
-	       (slate-forward-whitespace)
-	       (if (slate-white-to-bolp)
-		   (setq start (point))
-		 (goto-char saved-point)
-		 (slate-backward-sexp 1))))
-	    ((equal ch ?^)		;HACK -- presuming that when we back
-					;up into a return that we're at the
-					;start of a statement
-	     (backward-char 1)
-	     (setq start (point)))
-	    ((equal ch ?\[)
-	     (setq start (point)))
-	    ((equal ch ?|)
-	     (backward-char 1)
-	     (skip-chars-backward "^\[")
-	     (slate-backward-whitespace)
-	     (setq start (point)))
-	    (t
-	     (slate-backward-sexp 1))))
-    (unless start
-      (goto-char (point-min))
-      (slate-forward-whitespace)
-      (setq start (point)))
-    start))
 
 (defun slate-narrow-to-paren (state)
   "Narrows the region to between point and the closest previous open paren.

	      ((equal (preceding-char) ?.) ;at end of statement
	       (slate-find-statement-begin)
	       (setq indent-amount (slate-current-column)))
	      ((memq (preceding-char) '(?| ?\[))
	       (backward-char)
	       (skip-chars-backward "^\[")
	       (slate-backward-whitespace)
	       (setq indent-amount (+ (slate-current-column)
				      slate-indent-amount)))
	      ((equal (preceding-char) ?:)

(defun slate-narrow-to-method ()
  "Narrows the buffer to the contents and signature of the method."
  ; TODO: Make sure the signature plus optional head comment is included.
  (interactive)
  (let ((end (point))
	(parse-sexp-ignore-comments t)
	handled)
