mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
ruby-electric.el: fix #198
* misc/ruby-electric.el using variable `last-command-event' instead of obsolete `last-command-char', so that work with Emacs trunk. a patch by Victor Deryagin <vderyagin AT gmail.com>. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@37297 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
0249395582
commit
ec007f72cf
2 changed files with 8 additions and 2 deletions
|
@ -1,3 +1,9 @@
|
||||||
|
Tue Oct 23 14:20:43 2012 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||||
|
|
||||||
|
* misc/ruby-electric.el using variable `last-command-event' instead of
|
||||||
|
obsolete `last-command-char', so that work with Emacs trunk.
|
||||||
|
a patch by Victor Deryagin <vderyagin AT gmail.com>.
|
||||||
|
|
||||||
Tue Oct 23 14:06:47 2012 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
Tue Oct 23 14:06:47 2012 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||||
|
|
||||||
* configure.in (visibility_option): visibility attribute is not
|
* configure.in (visibility_option): visibility attribute is not
|
||||||
|
|
|
@ -142,7 +142,7 @@ strings. Note that you must have Font Lock enabled."
|
||||||
|
|
||||||
(defun ruby-electric-is-last-command-char-expandable-punct-p()
|
(defun ruby-electric-is-last-command-char-expandable-punct-p()
|
||||||
(or (memq 'all ruby-electric-expand-delimiters-list)
|
(or (memq 'all ruby-electric-expand-delimiters-list)
|
||||||
(memq last-command-char ruby-electric-expand-delimiters-list)))
|
(memq last-command-event ruby-electric-expand-delimiters-list)))
|
||||||
|
|
||||||
(defun ruby-electric-space-can-be-expanded-p()
|
(defun ruby-electric-space-can-be-expanded-p()
|
||||||
(if (ruby-electric-code-at-point-p)
|
(if (ruby-electric-code-at-point-p)
|
||||||
|
@ -188,7 +188,7 @@ strings. Note that you must have Font Lock enabled."
|
||||||
(and (ruby-electric-is-last-command-char-expandable-punct-p)
|
(and (ruby-electric-is-last-command-char-expandable-punct-p)
|
||||||
(ruby-electric-code-at-point-p)
|
(ruby-electric-code-at-point-p)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(insert (cdr (assoc last-command-char
|
(insert (cdr (assoc last-command-event
|
||||||
ruby-electric-matching-delimeter-alist))))))
|
ruby-electric-matching-delimeter-alist))))))
|
||||||
|
|
||||||
(defun ruby-electric-bar(arg)
|
(defun ruby-electric-bar(arg)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue