From: Koji Arai <JCA02266@...>
Date: 2002-09-07T02:21:07+09:00
Subject: [ruby-dev:18213] Re: inferior-ruby-mode and irb

新井です。

In message "[ruby-dev:18211] Re: inferior-ruby-mode and irb"
  on Sat, 7 Sep 2002 01:37:29 +0900,
  Koji Arai <JCA02266@nifty.ne.jp> wrote:
> 新井です。

> 今の inf-ruby.el (revision 1.5) は、この
> 
> compilation-build-compilation-error-regexp-alist
> compilation-error-regexp-alist-alist
> 
> というのを使ってますがこれは、xemacs 添付パッケージの機能なんですかね？
> GNU Emacs では、以下のようにエラーになります。(ちなみに、Debianです)

とりあえずの逃げです。他にも (line-number) という関数がない
などと怒られましたが、inf-ruby.el ぢつは使ってるわけではない
ので、これ以上は追求しませんでした。

Index: inf-ruby.el
===================================================================
RCS file: /usr/local/cvsup/ruby/ruby/misc/inf-ruby.el,v
retrieving revision 1.5
diff -u -u -r1.5 inf-ruby.el
--- inf-ruby.el	19 Aug 2002 10:05:47 -0000	1.5
+++ inf-ruby.el	6 Sep 2002 17:10:53 -0000
@@ -122,10 +122,12 @@
 (defvar inferior-ruby-mode-map nil
   "*Mode map for inferior-ruby-mode")
 
-(pushnew '(ruby ("^\tfrom \\([^\(].*\\):\\([1-9][0-9]*\\):in \`.*\'$" 1 2))
-	 compilation-error-regexp-alist-alist)
-(pushnew '(ruby ("SyntaxError: compile error\n^\\([^\(].*\\):\\([1-9][0-9]*\\):" 1 2))
-	 compilation-error-regexp-alist-alist)
+(if (boundp 'compilation-error-regexp-alist-alist)
+    (progn 
+      (pushnew '(ruby ("^\tfrom \\([^\(].*\\):\\([1-9][0-9]*\\):in \`.*\'$" 1 2))
+	       compilation-error-regexp-alist-alist)
+      (pushnew '(ruby ("SyntaxError: compile error\n^\\([^\(].*\\):\\([1-9][0-9]*\\):" 1 2))
+	       compilation-error-regexp-alist-alist)))
 
 (cond ((not inferior-ruby-mode-map)
        (setq inferior-ruby-mode-map
@@ -201,7 +203,8 @@
   (setq comint-input-filter (function ruby-input-filter))
   (setq comint-get-old-input (function ruby-get-old-input))
   (compilation-minor-mode)
-  (compilation-build-compilation-error-regexp-alist)
+  (if (fboundp 'compilation-build-compilation-error-regexp-alist)
+      (compilation-build-compilation-error-regexp-alist))
   (run-hooks 'inferior-ruby-mode-hook))
 
 (defvar inferior-ruby-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"

--
新井康司 (Koji Arai)