From 05eeb60259d4f601f6b780bd965687fcab893b25 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 14 Mar 2008 02:24:32 +0000 Subject: * 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 --- misc/ruby-mode.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'misc/ruby-mode.el') 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) -- cgit v1.2.3