diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
commit | 8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 (patch) | |
tree | 7681bbd4e8b05407772df40a4bf04cbbc8afc3fa /app-emacs/flim/files | |
parent | 30a9caf154332f12ca60756e1b75d2f0e3e1822d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'app-emacs/flim/files')
-rw-r--r-- | app-emacs/flim/files/60flim-gentoo.el | 1 | ||||
-rw-r--r-- | app-emacs/flim/files/flim-1.14.9-mel-q-ccl.patch | 31 |
2 files changed, 32 insertions, 0 deletions
diff --git a/app-emacs/flim/files/60flim-gentoo.el b/app-emacs/flim/files/60flim-gentoo.el new file mode 100644 index 000000000000..431f7e90ae73 --- /dev/null +++ b/app-emacs/flim/files/60flim-gentoo.el @@ -0,0 +1 @@ +(add-to-list 'load-path "@SITELISP@") diff --git a/app-emacs/flim/files/flim-1.14.9-mel-q-ccl.patch b/app-emacs/flim/files/flim-1.14.9-mel-q-ccl.patch new file mode 100644 index 000000000000..35f645052284 --- /dev/null +++ b/app-emacs/flim/files/flim-1.14.9-mel-q-ccl.patch @@ -0,0 +1,31 @@ +http://bugs.gentoo.org/292449 + +--- flim-1.14.9-orig/mel-q-ccl.el 2006-06-12 17:10:02.000000000 +0200 ++++ flim-1.14.9/mel-q-ccl.el 2009-11-13 15:38:28.000000000 +0100 +@@ -893,7 +893,13 @@ + (defun quoted-printable-ccl-encode-region (start end) + "Encode the region from START to END with quoted-printable encoding." + (interactive "*r") +- (decode-coding-region start end 'mel-ccl-quoted-printable-lf-lf-rev)) ++ (save-excursion ++ (goto-char start) ++ (insert (prog1 ++ (decode-coding-string ++ (string-as-unibyte (buffer-substring start end)) ++ 'mel-ccl-quoted-printable-lf-lf-rev) ++ (delete-region start end))))) + + (defun quoted-printable-ccl-insert-encoded-file (filename) + "Encode contents of the file named as FILENAME, and insert it." +@@ -932,7 +938,10 @@ + (defun quoted-printable-ccl-write-decoded-region (start end filename) + "Decode quoted-printable encoded current region and write out to FILENAME." + (interactive "*r\nFWrite decoded region to file: ") +- (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev) ++ (let ((coding-system-for-write ++ (if (coding-system-p 'mel-ccl-quoted-printable-lf-lf-rev-unix) ++ 'mel-ccl-quoted-printable-lf-lf-rev-unix ++ 'mel-ccl-quoted-printable-lf-lf-rev)) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region start end filename))) + |