projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(std11-lexical-analyze): Change interface to add new optional argument
[elisp/flim.git]
/
mel-q-ccl.el
diff --git
a/mel-q-ccl.el
b/mel-q-ccl.el
index
17b58be
..
7ad5a0d
100644
(file)
--- a/
mel-q-ccl.el
+++ b/
mel-q-ccl.el
@@
-496,7
+496,7
@@
abcdefghijklmnopqrstuvwxyz\
(write ,(if output-crlf "=\r\n" "=\n"))
(write r0)
(write "=0D")
(write ,(if output-crlf "=\r\n" "=\n"))
(write r0)
(write "=0D")
- (r0 = r1)
+ (r0 = (r1 + 0)) ; "+ 0" is workaround for mule 2.3@19.34.
(break))
;; r0:r3=ENC CR r1:noLF
((r6 = 6)
(break))
;; r0:r3=ENC CR r1:noLF
((r6 = 6)
@@
-505,7
+505,7
@@
abcdefghijklmnopqrstuvwxyz\
(write r0 ,mel-ccl-high-table)
(write r0 ,mel-ccl-low-table)
(write "=0D")
(write r0 ,mel-ccl-high-table)
(write r0 ,mel-ccl-low-table)
(write "=0D")
- (r0 = r1)
+ (r0 = (r1 + 0))
(break))))
;; r0:r3={RAW,ENC} r1:noCR
;; r0:r3={RAW,ENC} r1:noCRLF
(break))))
;; r0:r3={RAW,ENC} r1:noCR
;; r0:r3={RAW,ENC} r1:noCRLF
@@
-517,7
+517,7
@@
abcdefghijklmnopqrstuvwxyz\
(r5 = 0)
(write ,(if output-crlf "=\r\n" "=\n"))
(write r0)
(r5 = 0)
(write ,(if output-crlf "=\r\n" "=\n"))
(write r0)
- (r0 = r1)
+ (r0 = (r1 + 0))
(break))
;; r0:r3=ENC r1:noCR
;; r0:r3=ENC r1:noCRLF
(break))
;; r0:r3=ENC r1:noCR
;; r0:r3=ENC r1:noCRLF
@@
-526,7
+526,7
@@
abcdefghijklmnopqrstuvwxyz\
(write ,(if output-crlf "=\r\n=" "=\n="))
(write r0 ,mel-ccl-high-table)
(write r0 ,mel-ccl-low-table)
(write ,(if output-crlf "=\r\n=" "=\n="))
(write r0 ,mel-ccl-high-table)
(write r0 ,mel-ccl-low-table)
- (r0 = r1)
+ (r0 = (r1 + 0))
(break)))))))
(repeat)))
;; EOF
(break)))))))
(repeat)))
;; EOF
@@
-712,7
+712,7
@@
abcdefghijklmnopqrstuvwxyz\
((setq tmp (nth r0 mel-ccl-256-to-16-table))
;; '=' [\t ]* r0:[0-9A-F]
;; upper nibble of hexadecimal digit found.
((setq tmp (nth r0 mel-ccl-256-to-16-table))
;; '=' [\t ]* r0:[0-9A-F]
;; upper nibble of hexadecimal digit found.
- `((r1 = r0)
+ `((r1 = (r0 + 0))
(r0 = ,tmp)))
(t
;; '=' [\t ]* r0:[^\r0-9A-F]
(r0 = ,tmp)))
(t
;; '=' [\t ]* r0:[^\r0-9A-F]
@@
-744,7
+744,7
@@
abcdefghijklmnopqrstuvwxyz\
;; invalid input ->
;; output "=" with hex digit and rescan from r2.
(write ?=)
;; invalid input ->
;; output "=" with hex digit and rescan from r2.
(write ?=)
- (r0 = r2)
+ (r0 = (r2 + 0))
(write-repeat r1)))
(t
;; r0:[^\t\r -~]
(write-repeat r1)))
(t
;; r0:[^\t\r -~]
@@
-918,8
+918,8
@@
abcdefghijklmnopqrstuvwxyz\
(defun quoted-printable-ccl-insert-encoded-file (filename)
"Encode contents of the file named as FILENAME, and insert it."
(interactive (list (read-file-name "Insert encoded file: ")))
(defun quoted-printable-ccl-insert-encoded-file (filename)
"Encode contents of the file named as FILENAME, and insert it."
(interactive (list (read-file-name "Insert encoded file: ")))
- (let ((coding-system-for-read 'mel-ccl-quoted-printable-lf-lf-rev))
- (insert-file-contents filename)))
+ (insert-file-contents-as-coding-system
+ 'mel-ccl-quoted-printable-lf-lf-rev filename))
(mel-define-method-function
(mime-encode-string string (nil "quoted-printable"))
(mel-define-method-function
(mime-encode-string string (nil "quoted-printable"))
@@
-950,8
+950,8
@@
encoding."
(interactive
(list (region-beginning) (region-end)
(read-file-name "Write decoded region to file: ")))
(interactive
(list (region-beginning) (region-end)
(read-file-name "Write decoded region to file: ")))
- (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev))
- (write-region start end filename)))
+ (write-region-as-coding-system 'mel-ccl-quoted-printable-lf-lf-rev
+ start end filename))
(mel-define-method-function
(mime-decode-string string (nil "quoted-printable"))
(mel-define-method-function
(mime-decode-string string (nil "quoted-printable"))