From ee4282cde213499f9334c0e689e4daf1bb9928e1 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Wed, 23 Oct 2013 06:59:45 +0400 Subject: [PATCH] * lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use `following-char'. --- lisp/ChangeLog | 6 +++++- lisp/progmodes/ruby-mode.el | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) 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 +2013-10-23 Dmitry Gutov + + * progmodes/ruby-mode.el (ruby-smie--at-dot-call): Use + `following-char'. +2013-10-22 Stefan Monnier * 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))) ?.)))) -- 2.39.2