diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | misc/ruby-style.el | 10 |
2 files changed, 14 insertions, 1 deletions
@@ -1,3 +1,8 @@ +Thu Oct 9 23:53:23 2008 Nobuyoshi Nakada <nobu@ruby-lang.org> + + * misc/ruby-style.el (ruby-style-c-mode): buffer may not have file + name. + Thu Oct 9 23:30:47 2008 Yusuke Endoh <mame@tsg.ne.jp> * process.c (run_exec_dup2): fix resource leak. 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))) |