diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-07-15 07:59:59 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-07-15 07:59:59 +0000 |
commit | 86307f52ee1b3c5aa76e2fd6ee118e681dd76905 (patch) | |
tree | 4f5675ce901200d4245c6697d4e8d1c224949174 /misc | |
parent | e12510c502a3c8a81aeda66d1867eb1e760ce533 (diff) |
990715
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_3@497 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'misc')
-rw-r--r-- | misc/inf-ruby.el | 7 | ||||
-rw-r--r-- | misc/rubydb3x.el | 19 |
2 files changed, 18 insertions, 8 deletions
diff --git a/misc/inf-ruby.el b/misc/inf-ruby.el index 025ef2fb2a..e9853b4903 100644 --- a/misc/inf-ruby.el +++ b/misc/inf-ruby.el @@ -1,4 +1,4 @@ -;;; -*-Emacs-Lisp-*- +;;; -*-Emacs-Lisp-*- ;;; ;;; $Id$ ;;; $Author$ @@ -35,9 +35,12 @@ ;;; HISTORY ;;; senda - 8 Apr 1998: Created. ;;; $Log$ +;;; Revision 1.1.1.1.2.1 1999/07/15 07:59:59 matz +;;; 990715 +;;; ;;; Revision 1.1.1.1 1999/01/20 04:59:36 matz ;;; ruby 1.3 cycle -;;; +;;; ;;; Revision 1.1.2.1 1998/12/16 07:30:36 matz ;;; first public release of 1.1d (pre1.2) series ;;; diff --git a/misc/rubydb3x.el b/misc/rubydb3x.el index 197dd5327c..4493a93f77 100644 --- a/misc/rubydb3x.el +++ b/misc/rubydb3x.el @@ -7,8 +7,11 @@ ;;; History of argument lists passed to rubydb. (defvar gud-rubydb-history nil) -(defun gud-rubydb-massage-args (file args) - (cons "-r" (cons "debug" (cons file args)))) +(if (fboundp 'gud-overload-functions) + (defun gud-rubydb-massage-args (file args) + (cons "-r" (cons "debug" (cons file args)))) + (defun gud-rubydb-massage-args (file args) + (cons "-r" (cons "debug" args)))) ;; There's no guarantee that Emacs will hand the filter the entire ;; marker at once; it could be broken up across several strings. We @@ -17,6 +20,7 @@ ;; beginning of a marker, we save it here between calls to the ;; filter. (defvar gud-rubydb-marker-acc "") +(make-variable-buffer-local 'gud-rubydb-marker-acc) (defun gud-rubydb-marker-filter (string) (setq gud-rubydb-marker-acc (concat gud-rubydb-marker-acc string)) @@ -85,10 +89,13 @@ and source-file directory for your debugger." nil nil '(gud-rubydb-history . 1)))) - (gud-overload-functions '((gud-massage-args . gud-rubydb-massage-args) - (gud-marker-filter . gud-rubydb-marker-filter) - (gud-find-file . gud-rubydb-find-file))) - (gud-common-init command-line rubydb-command-name) + (if (not (fboundp 'gud-overload-functions)) + (gud-common-init command-line 'gud-rubydb-massage-args + 'gud-rubydb-marker-filter 'gud-rubydb-find-file) + (gud-overload-functions '((gud-massage-args . gud-rubydb-massage-args) + (gud-marker-filter . gud-rubydb-marker-filter) + (gud-find-file . gud-rubydb-find-file))) + (gud-common-init command-line rubydb-command-name)) (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") ; (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") |