aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorwilliam.xwl <william.xwl>2006-12-08 03:13:00 +0000
committerwilliam.xwl <mwolson@gnu.org>2006-12-08 03:13:00 +0000
commit1c6cb9eb79a794ad30f358a1fa3fd15ce989fc58 (patch)
tree75bf4910a719ff0c5e59edd01fd5fa4f5d77fc67
parentcb267393281a2b75f699bf324a4be1baf37e7c72 (diff)
emms-i18n: Rename functions to match file name.
darcs-hash:20061208031325-e8fe6-a68edcc4f273b4583675ef3d0a0bc00a66119e05.gz
-rw-r--r--emms-i18n.el98
1 files changed, 49 insertions, 49 deletions
diff --git a/emms-i18n.el b/emms-i18n.el
index c5792aa..939b0fb 100644
--- a/emms-i18n.el
+++ b/emms-i18n.el
@@ -3,7 +3,7 @@
;; Copyright 2006 Ye Wenbin
;;
;; Author: wenbinye@163.com
-;; Keywords:
+;; Keywords:
;; X-URL: not distributed yet
;; This program is free software; you can redistribute it and/or modify
@@ -23,21 +23,21 @@
;;; Commentary:
;; When read from process, first check the CAR part of
-;; `emms-default-coding-system', if non-nil, use this for decode, and
+;; `emms-i18n-default-coding-system', if non-nil, use this for decode, and
;; nerver detect coding system, if nil, first call
-;; `emms-coding-dectect-functions' to get coding system, if success,
-;; decode the result, otherwise, use `emms-detect-coding-function',
+;; `emms-i18n-coding-dectect-functions' to get coding system, if success,
+;; decode the result, otherwise, use `emms-i18n-detect-coding-function',
;; the emacs detect coding function, if the coding detected is not in
-;; `emms-nerver-used-coding-system', decode it, otherwise use
+;; `emms-i18n-nerver-used-coding-system', decode it, otherwise use
;; locale-coding-system.
;;
;; When write send data to process, first check the CDR part of
-;; `emms-default-coding-system', if non-nil, use this to encode data,
+;; `emms-i18n-default-coding-system', if non-nil, use this to encode data,
;; otherwise do nothing, that means use `default-process-coding-system' or
;; `process-coding-system-alist' to encode data.
;; Put this file into your load-path and the following into your ~/.emacs:
-;; (require 'emms-i18n)
+;; (require 'emms-i18n-i18n)
;;; Code:
@@ -47,24 +47,24 @@
;; TODO: Change these to use defcustom
-(defvar emms-nerver-used-coding-system
+(defvar emms-i18n-nerver-used-coding-system
'(raw-text undecided)
- "If the `emms-coding-dectect-functions' return coding system in
-this list, use `emms-default-coding-system' instead.")
+ "If the `emms-i18n-coding-dectect-functions' return coding system in
+this list, use `emms-i18n-default-coding-system' instead.")
-(defvar emms-coding-system-for-read 'utf-8
+(defvar emms-i18n-coding-system-for-read 'utf-8
"If coding detect failed, use this for decode")
-(defvar emms-default-coding-system nil
+(defvar emms-i18n-default-coding-system nil
"If non-nil, used for decode and encode")
-(defvar emms-coding-dectect-functions nil
+(defvar emms-i18n-coding-dectect-functions nil
"A list of function to call to detect codings")
-(defvar emms-detect-max-size 10000
+(defvar emms-i18n-detect-max-size 10000
"Max bytes to detect coding system. Nil mean scan whole buffer.")
-(defun emms-iconv (from to str)
+(defun emms-i18n-iconv (from to str)
"Convert STR from FROM coding to TO coding."
(if (and from to)
(decode-coding-string
@@ -72,42 +72,42 @@ this list, use `emms-default-coding-system' instead.")
from)
str))
-(defun emms-iconv-region (beg end from to)
+(defun emms-i18n-iconv-region (beg end from to)
(when (and from to)
(save-restriction
(narrow-to-region beg end)
(encode-coding-region (point-min) (point-max) to)
(decode-coding-region (point-min) (point-max) from))))
-(defun emms-iconv-buffer (from to &optional buf)
+(defun emms-i18n-iconv-buffer (from to &optional buf)
(save-excursion
(and buf (set-buffer buf))
- (emms-iconv-region (point-min) (point-max) from to)))
+ (emms-i18n-iconv-region (point-min) (point-max) from to)))
-(defun emms-set-default-coding-system (read-coding write-coding)
- "Set `emms-default-coding-system'"
+(defun emms-i18n-set-default-coding-system (read-coding write-coding)
+ "Set `emms-i18n-default-coding-system'"
(interactive "zSet coding system for read: \nzSet coding system for write: ")
- (setq emms-default-coding-system
+ (setq emms-i18n-default-coding-system
(cons
(and (coding-system-p read-coding) read-coding)
(and (coding-system-p write-coding) write-coding)))
(message (concat
- (if (car emms-default-coding-system)
- (format "The coding system for read is %S." (car emms-default-coding-system))
+ (if (car emms-i18n-default-coding-system)
+ (format "The coding system for read is %S." (car emms-i18n-default-coding-system))
"Good, you want detect coding system by me!")
(format " The coding system for write is %S."
- (or (cdr emms-default-coding-system)
+ (or (cdr emms-i18n-default-coding-system)
(cdr default-process-coding-system))))))
-(defun emms-call-process-simple (&rest args)
+(defun emms-i18n-call-process-simple (&rest args)
"This function run program and return the program result. If the CAR
-part of `emms-default-coding-system' is non-nil, the program result will
-be decode use the CAR part of emms-default-coding-system. Otherwise,
-use `emms-coding-dectect-functions' to detect the coding system of the
-result. If the emms-coding-dectect-functions failed, use
-`emms-detect-coding-function' to detect coding system. If all the
-coding system is nil or in `emms-nerver-used-coding-system', decode
-the result using `emms-coding-system-for-read'.
+part of `emms-i18n-default-coding-system' is non-nil, the program result will
+be decode use the CAR part of emms-i18n-default-coding-system. Otherwise,
+use `emms-i18n-coding-dectect-functions' to detect the coding system of the
+result. If the emms-i18n-coding-dectect-functions failed, use
+`emms-i18n-detect-coding-function' to detect coding system. If all the
+coding system is nil or in `emms-i18n-nerver-used-coding-system', decode
+the result using `emms-i18n-coding-system-for-read'.
The rest arguments ARGS is as the same as `call-process', except the
BUFFER should always have value t. Otherwise the coding detection will
@@ -115,50 +115,50 @@ not perform."
(let ((default-process-coding-system (copy-tree default-process-coding-system))
(process-coding-system-alist nil) exit pos)
(when (eq (nth 2 args) 't)
- (setcar default-process-coding-system (car emms-default-coding-system))
+ (setcar default-process-coding-system (car emms-i18n-default-coding-system))
(setq pos (point)))
(setq exit (apply 'call-process args))
(when (and (eq (nth 2 args) 't)
- (null (car emms-default-coding-system)))
+ (null (car emms-i18n-default-coding-system)))
(save-restriction
(narrow-to-region pos (point))
- (decode-coding-region (point-min) (point-max) (emms-detect-buffer-coding-system))))
+ (decode-coding-region (point-min) (point-max) (emms-i18n-detect-buffer-coding-system))))
exit))
;; Is this function useful?
-(defun emms-call-process (&rest args)
+(defun emms-i18n-call-process (&rest args)
"Run the program like `call-process'. If
-the cdr part `emms-default-coding-system' is non-nil, the string in
-ARGS will be encode by the CDR part of `emms-default-coding-system',
+the cdr part `emms-i18n-default-coding-system' is non-nil, the string in
+ARGS will be encode by the CDR part of `emms-i18n-default-coding-system',
otherwise, it is pass all parameter to `call-process'."
(with-temp-buffer
- (if (cdr emms-default-coding-system)
- (let ((default-process-coding-system emms-default-coding-system)
+ (if (cdr emms-i18n-default-coding-system)
+ (let ((default-process-coding-system emms-i18n-default-coding-system)
(process-coding-system-alist nil))
(apply 'call-process args))
(apply 'call-process args))))
-(defun emms-detect-coding-function (size)
+(defun emms-i18n-detect-coding-function (size)
(detect-coding-region (point)
- (+ (if (null emms-detect-max-size)
+ (+ (if (null emms-i18n-detect-max-size)
size
- (min size emms-detect-max-size))
+ (min size emms-i18n-detect-max-size))
(point)) t))
-(defun emms-detect-buffer-coding-system (&optional buf)
+(defun emms-i18n-detect-buffer-coding-system (&optional buf)
"Before call this function, make sure the buffer is literal"
(let ((size (- (point-max) (point-min)))
- (func (append emms-coding-dectect-functions 'emms-detect-coding-function))
+ (func (append emms-i18n-coding-dectect-functions 'emms-i18n-detect-coding-function))
coding)
(save-excursion
(and buf (set-buffer buf))
(goto-char (point-min))
(when (> size 0)
(setq coding (run-hook-with-args-until-success 'func size))
- (if (member (coding-system-base coding) emms-nerver-used-coding-system)
- (setq coding (emms-detect-coding-function size))))
- (if (or (null coding) (member (coding-system-base coding) emms-nerver-used-coding-system))
- emms-coding-system-for-read
+ (if (member (coding-system-base coding) emms-i18n-nerver-used-coding-system)
+ (setq coding (emms-i18n-detect-coding-function size))))
+ (if (or (null coding) (member (coding-system-base coding) emms-i18n-nerver-used-coding-system))
+ emms-i18n-coding-system-for-read
coding))))
;;; emms-i18n.el ends here