diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-03-14 02:24:32 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-03-14 02:24:32 +0000 |
commit | 05eeb60259d4f601f6b780bd965687fcab893b25 (patch) | |
tree | d0f9d55dd04ffa7bd45912c018d750facafce6b6 /misc | |
parent | 668af7e99d8458e3033d3641b25656ab8401ad74 (diff) | |
download | ruby-05eeb60259d4f601f6b780bd965687fcab893b25.tar.gz |
* misc/ruby-mode.el (ruby-encoding-map, ruby-use-encoding-map): added
to customize.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@15773 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'misc')
-rw-r--r-- | misc/ruby-mode.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/misc/ruby-mode.el b/misc/ruby-mode.el index de9cd6864d..8a34dd1adf 100644 --- a/misc/ruby-mode.el +++ b/misc/ruby-mode.el @@ -162,6 +162,14 @@ Also ignores spaces after parenthesis when 'space." "Default deep indent style." :options '(t nil space) :group 'ruby) +(defcustom ruby-encoding-map '((shift_jis . cp932)) + "Alist to map encoding name from emacs to ruby." + :group 'ruby) + +(defcustom ruby-use-encoding-map t + "*Use `ruby-encoding-map' to set encoding magic comment if this is non-nil." + :type 'boolean :group 'ruby) + (eval-when-compile (require 'cl)) (defun ruby-imenu-create-index-in-block (prefix beg end) (let ((index-alist '()) (case-fold-search nil) @@ -251,11 +259,11 @@ Also ignores spaces after parenthesis when 'space." buffer-file-coding-system)))) (setq coding-system (if coding-system - (symbol-name coding-system) + (symbol-name + (or (and ruby-use-encoding-map + (cdr (assq coding-system ruby-encoding-map))) + coding-system)) "ascii-8bit")) - ;; special treat for compatibility with -Ks - (if (string-equal coding-system "shift_jis") - (setq coding-system "cp932")) (if (looking-at "^#![^\n]*ruby") (beginning-of-line 2)) (cond ((looking-at "\\s *#.*-\*-\\s *\\(en\\)?coding\\s *:\\s *\\([-a-z0-9_]+\\)") (unless (string= (match-string 2) coding-system) |