Re: non-ascii chars in the Lisp source files

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <b9yk78pl68f.fsf@jpl.org> Katsumi Yamaoka wrote:

> I've confirmed both the latest XEmacs 21.4 and 21.5 don't handle the
> coding cookie at the end of a file yet.

Here's a quick hack, not tested broadly:

(if (featurep 'xemacs)
    (defadvice hack-one-local-variable (around handle-coding-cookie (var val)
					       activate)
      "Handle a coding cookie at the Local Variables section."
      (if (eq var 'coding)
	  (if (and buffer-file-name
		   (symbolp val)
		   (find-coding-system val))
	      (let ((mod (buffer-modified-p))
		    (coding-system-for-read val)
		    buffer-read-only)
		(insert-file-contents buffer-file-name nil nil nil t)
		(setq buffer-file-coding-system val)
		(set-buffer-modified-p mod)))
	ad-do-it)))

It can also be used in dgnushack.el in order to build correct
elc files even in Japanese language environment.  I don't want
to put it into dgnushack.el actually, though.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>