From c35afec197e7fc05ead1d08d7a803adbbd2959f2 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 27 Jul 2004 07:51:28 +0000
Subject: [PATCH] * object.c (Init_Object): "===" calls rb_obj_equal()
 directly.   [ruby-list:39937]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6702 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog        |  5 +++++
 misc/inf-ruby.el | 12 ++++++++----
 object.c         |  1 +
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 14ab74a3f8..5de5cc6920 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jul 27 07:05:04 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* object.c (Init_Object): "===" calls rb_obj_equal() directly.
+	  [ruby-list:39937]
+
 Mon Jul 26 11:22:55 2004  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* lib/webrick/httputils.rb (WEBrick::HTTPUtils.escape): should
diff --git a/misc/inf-ruby.el b/misc/inf-ruby.el
index 0dda55dfda..d9e2348e6e 100644
--- a/misc/inf-ruby.el
+++ b/misc/inf-ruby.el
@@ -21,7 +21,7 @@
 ;;;    (setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
 ;;;    				     interpreter-mode-alist))
 ;;;    
-;;; (2) set to road inf-ruby and set inf-ruby key definition in ruby-mode.
+;;; (2) set to load inf-ruby and set inf-ruby key definition in ruby-mode.
 ;;;
 ;;;    (autoload 'run-ruby "inf-ruby"
 ;;;      "Run an inferior Ruby process")
@@ -35,16 +35,20 @@
 ;;; HISTORY
 ;;; senda -  8 Apr 1998: Created.
 ;;;	 $Log$
+;;;	 Revision 1.6.2.1  2004/07/27 07:51:28  matz
+;;;	 * object.c (Init_Object): "===" calls rb_obj_equal() directly.
+;;;	   [ruby-list:39937]
+;;;
 ;;;	 Revision 1.6  2002/09/07 14:35:46  nobu
 ;;;	 * misc/inf-ruby.el (inferior-ruby-error-regexp-alist): regexp
 ;;;	   alist for error message from ruby.
-;;;
+;;;	
 ;;;	 * misc/inf-ruby.el (inferior-ruby-mode): fixed for Emacs.
-;;;
+;;;	
 ;;;	 * misc/inf-ruby.el (ruby-send-region): compilation-parse-errors
 ;;;	   doesn't parse first line, so insert separators before each
 ;;;	   evaluations.
-;;;
+;;;	
 ;;;	 Revision 1.5  2002/08/19 10:05:47  nobu
 ;;;	 * misc/inf-ruby.el (inf-ruby-keys): ruby-send-definition
 ;;;	   conflicted with ruby-insert-end.
diff --git a/object.c b/object.c
index 559ebd954f..e8d86c7fbe 100644
--- a/object.c
+++ b/object.c
@@ -2584,6 +2584,7 @@ Init_Object()
     rb_define_method(rb_cSymbol, "to_s", sym_to_s, 0);
     rb_define_method(rb_cSymbol, "id2name", sym_to_s, 0);
     rb_define_method(rb_cSymbol, "to_sym", sym_to_sym, 0);
+    rb_define_method(rb_cSymbol, "===", rb_obj_equal, 1); 
 
     rb_define_method(rb_cModule, "freeze", rb_mod_freeze, 0);
     rb_define_method(rb_cModule, "===", rb_mod_eqq, 1);