aboutsummaryrefslogtreecommitdiffstats
path: root/misc/ruby-style.el
diff options
context:
space:
mode:
authorhsbt <hsbt@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2018-09-14 12:34:50 +0000
committerhsbt <hsbt@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2018-09-14 12:34:50 +0000
commit7eedd308b841e7b8eb4bc36211d28faf3521ee92 (patch)
treeecd5b90f08c40699d50303cb142baa8d3568f127 /misc/ruby-style.el
parent5c16b21f44c3f035c87ad7fcb3df868700960a39 (diff)
downloadruby-7eedd308b841e7b8eb4bc36211d28faf3521ee92.tar.gz
Removed old elisp files. New upstream repository was moved https://github.com/ruby/elisp.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@64741 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'misc/ruby-style.el')
-rw-r--r--misc/ruby-style.el81
1 files changed, 0 insertions, 81 deletions
diff --git a/misc/ruby-style.el b/misc/ruby-style.el
deleted file mode 100644
index fa35897931..0000000000
--- a/misc/ruby-style.el
+++ /dev/null
@@ -1,81 +0,0 @@
-;;; -*- emacs-lisp -*-
-;;;
-;;; ruby-style.el -
-;;;
-;;; C/C++ mode style for Ruby.
-;;;
-;;; $Author$
-;;; created at: Thu Apr 26 13:54:01 JST 2007
-;;;
-;;; Put this file under a directory contained in ``load-path'', and
-;;; then load it.
-;;; To switch to the "ruby" style automatically if it looks like a
-;;; source file of ruby, add ruby-style-c-mode to c-mode-hook:
-;;;
-;;; (require 'ruby-style)
-;;; (add-hook 'c-mode-hook 'ruby-style-c-mode)
-;;; (add-hook 'c++-mode-hook 'ruby-style-c-mode)
-;;;
-;;; Customize the c-default-style variable to set the default style
-;;; for each CC major mode.
-
-(defconst ruby-style-revision "$Revision$"
- "Ruby style revision string.")
-
-(defconst ruby-style-version
- (and
- (string-match "[0-9.]+" ruby-style-revision)
- (substring ruby-style-revision (match-beginning 0) (match-end 0)))
- "Ruby style version number.")
-
-(defun ruby-style-case-indent (x)
- (save-excursion
- (back-to-indentation)
- (unless (progn (backward-up-list) (back-to-indentation)
- (> (point) (cdr x)))
- (goto-char (cdr x))
- (if (looking-at "\\<case\\|default\\>") '*))))
-
-(defun ruby-style-label-indent (x)
- (save-excursion
- (back-to-indentation)
- (unless (progn (backward-up-list) (back-to-indentation)
- (>= (point) (cdr x)))
- (goto-char (cdr x))
- (condition-case ()
- (progn
- (backward-up-list)
- (backward-sexp 2)
- (if (looking-at "\\<switch\\>") '/))
- (error)))))
-
-(require 'cc-styles)
-(c-add-style
- "ruby"
- '("bsd"
- (c-basic-offset . 4)
- (tab-width . 8)
- (indent-tabs-mode . nil)
- (setq show-trailing-whitespace t)
- (c-offsets-alist
- (case-label . *)
- (label . (ruby-style-label-indent *))
- (statement-case-intro . *)
- (statement-case-open . *)
- (statement-block-intro . (ruby-style-case-indent +))
- (access-label /)
- )))
-
-;;;###autoload
-(defun ruby-style-c-mode ()
- (interactive)
- (if (or (let ((name (buffer-file-name))) (and name (string-match "/ruby\\>" name)))
- (save-excursion
- (goto-char (point-min))
- (let ((head (progn (forward-line 100) (point)))
- (case-fold-search nil))
- (goto-char (point-min))
- (re-search-forward "Copyright (C) .* Yukihiro Matsumoto" head t))))
- (c-set-style "ruby")))
-
-(provide 'ruby-style)