From f021df009965f5b63ccfb6451de4421d2260c460 Mon Sep 17 00:00:00 2001
From: hsbt <hsbt@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 14 Sep 2018 13:19:45 +0000
Subject: Partly reverted for ruby-style.el.

  Revert "Removed old elisp files. New upstream repository was moved https://github.com/ruby/elisp."

  This reverts commit 7eedd308b841e7b8eb4bc36211d28faf3521ee92.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@64743 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 misc/ruby-style.el | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 misc/ruby-style.el

(limited to 'misc/ruby-style.el')

diff --git a/misc/ruby-style.el b/misc/ruby-style.el
new file mode 100644
index 0000000000..fa35897931
--- /dev/null
+++ b/misc/ruby-style.el
@@ -0,0 +1,81 @@
+;;; -*- 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)
-- 
cgit v1.2.3