diff options
| author | MANTANI Nobutaka <nobutaka@FreeBSD.org> | 2016-11-13 13:21:08 +0000 |
|---|---|---|
| committer | MANTANI Nobutaka <nobutaka@FreeBSD.org> | 2016-11-13 13:21:08 +0000 |
| commit | 719ba3574db4aac9c12cd7b7d489cfd0a25100aa (patch) | |
| tree | 05cb1d7e3a1f53944fc2d8cfec389547727efb8b /editors/flim/files/patch-eword-encode.el | |
| parent | - Simplify plist. (diff) | |
- Simplify PLIST, BUILD_DEPENDS and RUN_DEPENDS selection.
- Regenerate patches by 'make makepatch'.
- Pet portlint.
PR: 213182
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 | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/editors/flim/files/patch-eword-encode.el b/editors/flim/files/patch-eword-encode.el index 9ba9f3201221..08db886877b6 100644 --- a/editors/flim/files/patch-eword-encode.el +++ b/editors/flim/files/patch-eword-encode.el @@ -1,8 +1,8 @@ Index: eword-encode.el =================================================================== ---- eword-encode.el (revision 2) -+++ eword-encode.el (working copy) -@@ -162,15 +162,15 @@ +--- eword-encode.el.orig 2007-09-06 07:48:50 UTC ++++ eword-encode.el +@@ -162,15 +162,15 @@ MODE is allows `text', `comment', `phras ;;; (defmacro make-ew-rword (text charset encoding type) @@ -23,7 +23,7 @@ Index: eword-encode.el (defun ew-find-charset-rule (charsets) (if charsets -@@ -184,31 +184,31 @@ +@@ -184,30 +184,30 @@ MODE is allows `text', `comment', `phras ;; 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) @@ -58,12 +58,7 @@ Index: eword-encode.el - 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 @@ -73,7 +68,11 @@ Index: eword-encode.el - ))) - wl)) -) -- ++ (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 |