From fd8ca75663f20bcc0648c470b18986a8ee27375e Mon Sep 17 00:00:00 2001 From: nobu Date: Thu, 9 Oct 2008 14:53:26 +0000 Subject: * misc/ruby-style.el (ruby-style-c-mode): buffer may not have file name. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19731 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- misc/ruby-style.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'misc') diff --git a/misc/ruby-style.el b/misc/ruby-style.el index b99e71b35c..0fe4a83089 100644 --- a/misc/ruby-style.el +++ b/misc/ruby-style.el @@ -7,6 +7,14 @@ ;;; $Author$ ;;; created at: Thu Apr 26 13:54:01 JST 2007 ;;; +;;; sets ruby style if it seems like a source of ruby. +;;; +;;; (require 'ruby-style) +;;; (add-hook 'c-mode-hook 'ruby-style-c-mode) +;;; (add-hook 'c++-mode-hook 'ruby-style-c-mode) +;;; +;;; uses ruby style always. +;;; (setq-default c-file-style "ruby") (defconst ruby-style-revision "$Revision$" "Ruby style revision string.") @@ -56,7 +64,7 @@ (defun ruby-style-c-mode () (interactive) - (if (or (string-match "/ruby\\>" (buffer-file-name)) + (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))) -- cgit v1.2.3