Bug #528 » 0007--misc-emacs-mode.el-don-t-set-case-fold-search-glo.patch
misc/ruby-mode.el | ||
---|---|---|
(eval-when-compile (require 'cl))
|
||
(defun ruby-imenu-create-index-in-block (prefix beg end)
|
||
(let ((index-alist '())
|
||
(let ((index-alist '()) (case-fold-search nil)
|
||
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)
|
||
(setq case-fold-search nil)
|
||
(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))
|
||
(case-fold-search nil)
|
||
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
|
||
(let ((old-point (point)))
|
||
(let ((old-point (point)) (case-fold-search nil))
|
||
(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)))
|
||
(case-fold-search nil)
|
||
;; 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 ()
|
||
(let ((pss (syntax-ppss)))
|
||
(let ((pss (syntax-ppss)) (case-fold-search nil))
|
||
(when (eq (syntax-ppss-context pss) 'string)
|
||
(save-excursion
|
||
(goto-char (nth 8 pss))
|
- « Previous
- 1
- …
- 5
- 6
- 7
- Next »