(setq alist (cdr alist))))))
;; The following functions are API used from handler functions. For
-;; the meantime DECODED is actually a string (with some text properties).
-;; In the future, however, the implementation _should_ be changed string
-;; so that decoding phase is delayed until the body of handler functions.
+;; the meantime DECODED is actually a string (with some text
+;; properties). In the future, however, the implementation _should_
+;; be changed so that decoding phase is delayed until the body of
+;; handler functions.
(defun riece-decoded-coding-system (decoded)
"Return the coding-system used for decoding DECODED."
(get-text-property 0 'riece-coding-decoded-coding-system decoded))