[ruby-talk:00958] Re: ruby-mode

From: Yasushi Shoji <[e-mail]>
Subject: [ruby-talk:00957] ruby-mode
Date: Wed, 08 Dec 1999 14:39:50 -0500

> this is as far as I could go.  just replacing "(+ x shift)" to "x"
> seems working here.  but not sure this is the right fix or not.

oops, it was broken here too.

following code is working for me. (i didn't know how to fix the
original code, so i re-wrote a portion of it. ;p but i still have a
problem.  when the indentation level is 8, function 'indent-to' seems
to insert a tab, not white spaces.  is this considered a bug?
 --
         yashi

(defun ruby-indent-to (x)
  (if x
      (let (shift top beg offset)
	(and (< x 0) (error "invalid nest"))
	(setq shift (current-column))
	(beginning-of-line)
	(setq beg (point))
	(back-to-indentation)
	(setq top (current-column))
	(skip-chars-backward " \t")
	(setq offset (- shift top))
	(if (not (= top x))
	    (progn
	      (move-to-column top)
	      (delete-region beg (point))
	      (beginning-of-line)
	      (indent-to x)))
	(if (> offset 0)
	    (move-to-column (+ offset x))
	  (move-to-column x)))))