[Emacs-diffs] trunk r114745: * lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use

[Dmitry Gutov]

------------------------------------------------------------
revno: 114745
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-10-23 06:59:45 +0400
message:
  * lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use
  `following-char'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/ruby-mode.el    
rubymode.el-20091113204419-o5vbwnq5f7feedwu-8804

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-22 15:45:56 +0000
+++ b/lisp/ChangeLog    2013-10-23 02:59:45 +0000
@@ -1,6 +1,10 @@
+2013-10-23  Dmitry Gutov  <address@hidden>
+
+       * progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use
+       `following-char'.
+
 2013-10-22  Stefan Monnier  <address@hidden>
 
-
        * emacs-lisp/smie.el (smie-rule-parent): Fix opener-test.
        * progmodes/ruby-mode.el (ruby-smie-rules):
        Remove corresponding workaround.  Fix indentation rule of ";" so it

=== modified file 'lisp/progmodes/ruby-mode.el'
--- a/lisp/progmodes/ruby-mode.el       2013-10-22 15:45:56 +0000
+++ b/lisp/progmodes/ruby-mode.el       2013-10-23 02:59:45 +0000
@@ -355,7 +355,7 @@
    (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))) ?.))))