diff options
| author | MANTANI Nobutaka <nobutaka@FreeBSD.org> | 2012-08-25 12:04:09 +0000 |
|---|---|---|
| committer | MANTANI Nobutaka <nobutaka@FreeBSD.org> | 2012-08-25 12:04:09 +0000 |
| commit | 5450833dd55760cd0dacf83f522d3895ef304ffd (patch) | |
| tree | 1b10f0917676c15db1729a7a59a90d40bbccf7ce /editors/flim/files/patch-eword-encode.el | |
| parent | Fix the -y option to test for possible duplicate ports; use INDEX instead of (diff) | |
Fix old-style backquotes issue.
Remove unused pkg-plist.emacs20.
PR: ports/170960
Submitted by: Yasuhiro KIMURA <yasu@utahime.org>
Diffstat (limited to 'editors/flim/files/patch-eword-encode.el')
| -rw-r--r-- | editors/flim/files/patch-eword-encode.el | 60 |
1 files changed, 58 insertions, 2 deletions
diff --git a/editors/flim/files/patch-eword-encode.el b/editors/flim/files/patch-eword-encode.el index 7643b5fdfde2..9ba9f3201221 100644 --- a/editors/flim/files/patch-eword-encode.el +++ b/editors/flim/files/patch-eword-encode.el @@ -1,5 +1,7 @@ ---- eword-encode.el.orig 2007-09-06 16:48:50.000000000 +0900 -+++ eword-encode.el 2012-08-23 00:42:35.000000000 +0900 +Index: eword-encode.el +=================================================================== +--- eword-encode.el (revision 2) ++++ eword-encode.el (working copy) @@ -162,15 +162,15 @@ ;;; @@ -21,3 +23,57 @@ (defun ew-find-charset-rule (charsets) (if charsets +@@ -184,31 +184,31 @@ + ;; which is not depended on the Mule model. We should redesign + ;; `eword-encode-split-string' to avoid to depend on the Mule model. + (if (featurep 'utf-2000) +-;; for CHISE Architecture +-(defun tm-eword::words-to-ruled-words (wl &optional mode) +- (let (mcs) ++ ;; for CHISE Architecture ++ (defun tm-eword::words-to-ruled-words (wl &optional mode) ++ (let (mcs) ++ (mapcar (function ++ (lambda (word) ++ (setq mcs (detect-mime-charset-string (cdr word))) ++ (make-ew-rword ++ (cdr word) ++ mcs ++ (cdr (or (assq mcs mime-header-charset-encoding-alist) ++ (cons mcs mime-header-default-charset-encoding))) ++ mode) ++ )) ++ wl))) ++ ++ ;; for legacy Mule ++ (defun tm-eword::words-to-ruled-words (wl &optional mode) + (mapcar (function + (lambda (word) +- (setq mcs (detect-mime-charset-string (cdr word))) +- (make-ew-rword +- (cdr word) +- mcs +- (cdr (or (assq mcs mime-header-charset-encoding-alist) +- (cons mcs mime-header-default-charset-encoding))) +- mode) +- )) +- wl))) ++ (let ((ret (ew-find-charset-rule (car word)))) ++ (make-ew-rword (cdr word) (car ret)(nth 1 ret) mode) ++ ))) ++ wl)) ++ ) + +-;; for legacy Mule +-(defun tm-eword::words-to-ruled-words (wl &optional mode) +- (mapcar (function +- (lambda (word) +- (let ((ret (ew-find-charset-rule (car word)))) +- (make-ew-rword (cdr word) (car ret)(nth 1 ret) mode) +- ))) +- wl)) +-) +- + (defun ew-space-process (seq) + (let (prev a ac b c cc) + (while seq |