Ruby » Ruby master

(eval-when-compile (require 'cl))

(defun ruby-imenu-create-index-in-block (prefix beg end)

name next pos decl sing)

(goto-char beg)

(while (re-search-forward "^\\s *\\(\\(class\\s +\\|\\(class\\s *<<\\s *\\)\\|module\\s +\\)\\([^\(<\n ]+\\)\\|\\(def\\|alias\\)\\s +\\([^\(\n ]+\\)\\)" end t)

(defun ruby-mode-variables ()

(set-syntax-table ruby-mode-syntax-table)

(setq local-abbrev-table ruby-mode-abbrev-table)

(make-local-variable 'indent-line-function)

(setq indent-line-function 'ruby-indent-line)

(make-local-variable 'require-final-newline)

(save-excursion

(beginning-of-line)

(let ((indent-point (point))

state bol eol begin op-end

(paren (progn (skip-syntax-forward " ")

(and (char-after) (matching-paren (char-after)))))

(defun ruby-in-here-doc-p ()

(save-excursion

(beginning-of-line)

(catch 'found-beg

(while (re-search-backward ruby-here-doc-beg-re nil t)

(beginning-of-line)

(catch 'done

(let ((eol (save-excursion (end-of-line) (point)))

;; Fake match data such that (match-end 0) is at eol

(end-match-data (progn (looking-at ".*$") (match-data)))

beg-match-data end-re)

(string-to-syntax "|"))))

(defun ruby-here-doc-end-syntax ()

(when (eq (syntax-ppss-context pss) 'string)

(save-excursion

(goto-char (nth 8 pss))