summaryrefslogtreecommitdiff
path: root/misc
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-07-31 08:40:24 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-07-31 08:40:24 +0000
commit493a7a3b63f682b9bbaa455651e1a570ef919b0f (patch)
treee33bfae8a00023bb9a83c62b965ecaad08be8397 /misc
parent86370308fa7f49e308d5ad4cde42799f85aec42f (diff)
* misc/ruby-mode.el (ruby-expr-beg, ruby-parse-partial,
ruby-calculate-indent, ruby-move-to-block, ruby-forward-sexp, ruby-backward-sexp): keywords must match word-wise. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6729 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'misc')
-rw-r--r--misc/ruby-mode.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/misc/ruby-mode.el b/misc/ruby-mode.el
index a45b638f17..aa2a2935b1 100644
--- a/misc/ruby-mode.el
+++ b/misc/ruby-mode.el
@@ -321,9 +321,9 @@ The variable ruby-indent-level controls the amount of indentation.
(and (looking-at ruby-symbol-re)
(skip-chars-backward ruby-symbol-chars)
(cond
- ((or (looking-at ruby-block-beg-re)
- (looking-at ruby-block-op-re)
- (looking-at ruby-block-mid-re))
+ ((or (looking-at (concat "\\<\\(" ruby-block-beg-re
+ "|" ruby-block-op-re
+ "|" ruby-block-mid-re "\\)\\>")))
(goto-char (match-end 0))
(not (looking-at "\\s_")))
((eq option 'expr-qstr)
@@ -451,7 +451,7 @@ The variable ruby-indent-level controls the amount of indentation.
(setq depth (1- depth)))
(setq nest (cdr nest))
(goto-char pnt))
- ((looking-at ruby-block-end-re)
+ ((looking-at (concat "\\<\\(" ruby-block-end-re "\\)\\>"))
(if (or (and (not (bolp))
(progn
(forward-char -1)
@@ -477,7 +477,7 @@ The variable ruby-indent-level controls the amount of indentation.
(setq nest (cons (cons nil pnt) nest))
(setq depth (1+ depth))))
(goto-char (match-end 0)))
- ((looking-at ruby-block-beg-re)
+ ((looking-at (concat "\\<\\(" ruby-block-beg-re "\\)\\>"))
(and
(save-match-data
(or (not (looking-at "do\\>[^_]"))
@@ -692,7 +692,7 @@ The variable ruby-indent-level controls the amount of indentation.
(and
(or (and (looking-at ruby-symbol-re)
(skip-chars-backward ruby-symbol-chars)
- (looking-at ruby-block-hanging-re)
+ (looking-at (concat "\\<\\(" ruby-block-hanging-re "\\)\\>"))
(not (eq (point) (nth 3 state)))
(save-excursion
(goto-char (match-end 0))
@@ -728,7 +728,7 @@ The variable ruby-indent-level controls the amount of indentation.
(setq indent
(cond
((and
- (not (looking-at ruby-block-hanging-re))
+ (not (looking-at (concat "\\<\\(" ruby-block-hanging-re "\\)\\>")))
(eq (ruby-deep-indent-paren-p t) 'space)
(not (bobp)))
(ruby-beginning-of-arg (or begin parse-start) (point))
@@ -782,7 +782,7 @@ An end of a defun is found by moving forward from the beginning of one."
(defun ruby-move-to-block (n)
(let (start pos done down)
(setq start (ruby-calculate-indent))
- (setq down (looking-at (if (< n 0) ruby-block-end-re ruby-block-beg-re)))
+ (setq down (looking-at (concat "\\<\\(" (if (< n 0) ruby-block-end-re ruby-block-beg-re) "\\)\\>")))
(while (and (not done) (not (if (< n 0) (bobp) (eobp))))
(forward-line n)
(cond
@@ -804,7 +804,7 @@ An end of a defun is found by moving forward from the beginning of one."
(if done
(progn
(back-to-indentation)
- (if (looking-at ruby-block-mid-re)
+ (if (looking-at (concat ("\\<\\(" ruby-block-mid-re "\\)\\>")))
(setq done nil))))))
(back-to-indentation))
@@ -832,7 +832,7 @@ An end of a defun is found by moving forward from the beginning of one."
(skip-chars-forward ",.:;|&^~=!?\\+\\-\\*")
(looking-at "\\s("))
(goto-char (scan-sexps (point) 1)))
- ((looking-at ruby-block-beg-re)
+ ((looking-at (concat "\\<\\(" ruby-block-beg-re "\\)\\>"))
(ruby-end-of-block)
(forward-word 1))
((looking-at "\\(\\$\\|@@?\\)?\\sw")
@@ -891,7 +891,7 @@ An end of a defun is found by moving forward from the beginning of one."
(?:
(forward-char -1)
(eq (char-before) :)))))
- (if (looking-at ruby-block-end-re)
+ (if (looking-at (concat "\\<\\(" ruby-block-end-re "\\)\\>"))
(ruby-beginning-of-block))
nil))
(setq i (1- i)))