1e5f180a5a
OBS-URL: https://build.opensuse.org/request/show/315694 OBS-URL: https://build.opensuse.org/package/show/M17N/emacs-flim?expand=0&rev=1
19 lines
698 B
Diff
19 lines
698 B
Diff
--- mel-q-ccl.el~ 2006-06-12 15:10:02 +0000
|
|
+++ mel-q-ccl.el 2008-04-03 06:33:51 +0000
|
|
@@ -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."
|
|
|