From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 23 Oct 2013 02:59:45 +0000 (+0400)
Subject: * lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee4282cde213499f9334c0e689e4daf1bb9928e1;p=emacs.git

* lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use
`following-char'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b08cd6bad9..2dbd981d8d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
-2013-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+2013-10-23  Dmitry Gutov  <dgutov@yandex.ru>
+
+	* progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use
+	`following-char'.
 
+2013-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/smie.el (smie-rule-parent): Fix opener-test.
 	* progmodes/ruby-mode.el (ruby-smie-rules):
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index fa681e5cde3..a9c4cf95700 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -355,7 +355,7 @@ explicitly declared in magic comment."
    (memq (char-syntax (char-after pos)) '(?w ?\"))))
 
 (defun ruby-smie--at-dot-call ()
-  (and (eq ?w (char-syntax (char-after)))
+  (and (eq ?w (char-syntax (following-char)))
        (eq (char-before) ?.)
        (not (eq (char-before (1- (point))) ?.))))