Re: Emacs puts binary junk into the clipboard, marking it as text

["Jan Djärv" <jan.h.d@swipnet.se>]

Kenichi Handa wrote:

> This will be useful for checking UTF-8 validity.
> 
> (define-ccl-program ccl-check-utf-8
>   '(0
>     ((r0 = 1)
>      (loop
>       (read-if (r1 < #x80) (repeat)
> 	((r0 = 0)
> 	 (if (r1 < #xC2) (end))
> 	 (read r2)
> 	 (if ((r2 & #xC0) != #x80) (end))
> 	 (if (r1 < #xE0) ((r0 = 1) (repeat)))
> 	 (read r2)
> 	 (if ((r2 & #xC0) != #x80) (end))
> 	 (if (r1 < #xF0) ((r0 = 1) (repeat)))
> 	 (read r2)
> 	 (if ((r2 & #xC0) != #x80) (end))
> 	 (if (r1 < #xF8) ((r0 = 1) (repeat)))
> 	 (read r2)
> 	 (if ((r2 & #xC0) != #x80) (end))
> 	 (if (r1 == #xF8) ((r0 = 1) (repeat)))
> 	 (end))))))
>   "Check if the input unibyte string is a valid UTF-8 sequence or not.
> If it is valid, set the register `r0' to 1, else set it to 0.")
> 
> (defun string-utf-8-p (string)
>   "Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence."
>   (if (or (not (stringp string))
> 	  (multibyte-string-p string))
>       (error "Not a unibyte string: %s" string))
>   (let ((status (make-vector 9 0)))
>     (ccl-execute-on-string ccl-check-utf-8 status string)
>     (= (aref status 0) 1)))
> 
> 


Thanks.  I used them to check for UTF-8.  We now decline selection requests 
for UTF8_STRING if the data is not in UTF-8.

	Jan D.