On Wed, 01 May 2002, Steve Youngs <- youngs(a)xemacs.org wrote:
I have just added the following packages to the
'Pre-Releases'
directory:
latin-unity-1.04-pkg.tar.gz (Mule)
With the new latin-unity I am no longer able to save any files.
Here is the backtrace:
,----
| Signaling: (void-variable sys)
| (eq sys (quote buffer-default))
| (and (eq sys (quote buffer-default)) buffer-default)
| (cond ((and ... buffer-default)) ((and ... preferred)) (t sys))
| (coding-system-name (cond (...) (...) (t sys)))
| (catch (quote --cl-block-massage-coding-system-name--) (coding-system-name (cond ...
... ...)))
| (cl-block-wrapper (catch (quote --cl-block-massage-coding-system-name--)
(coding-system-name ...)))
| (block massage-coding-system-name (coding-system-name (cond ... ... ...)))
| massage-coding-system-name(buffer-default)
| (let ((sys ...)) (when latin-unity-debug (message "sys is %s" sys)) (when
(latin-unity-maybe-remap begin end sys csets psets t) (when latin-unity-debug ...) (throw
... sys)) (setq systems (cdr systems)))
| (while systems (let (...) (when latin-unity-debug ...) (when ... ... ...) (setq
systems ...)))
| (let ((systems latin-unity-preapproved-coding-system-list)) (while systems (let ...
... ... ...)))
| (catch (quote done) (let (...) (while systems ...)))
| (cond ((catch ... ...)) (t (let* ... ... ...)))
| (progn (fset (quote massage-coding-system-name) (function* ...)) (when
latin-unity-debug (message "%s %s" csets psets) (sit-for 1)) (cond (...) (t
...)))
| (unwind-protect (progn (fset ... ...) (when latin-unity-debug ... ...) (cond ... ...))
(if --letf-bound--23707 (fset ... --letf-save--23706) (fmakunbound ...)))
| (let* ((--letf-bound--23707 ...) (--letf-save--23706 ...)) (unwind-protect (progn ...
... ...) (if --letf-bound--23707 ... ...)))
| (letf ((... ...)) (when latin-unity-debug (message "%s %s" csets psets)
(sit-for 1)) (cond (...) (t ...)))
| (letf* ((... ...)) (when latin-unity-debug (message "%s %s" csets psets)
(sit-for 1)) (cond (...) (t ...)))
| (flet ((massage-coding-system-name ... ...)) (when latin-unity-debug (message "%s
%s" csets psets) (sit-for 1)) (cond (...) (t ...)))
| (let ((buffer-default ...) (preferred ...) (csets ...) (psets ...)) (flet (...) (when
latin-unity-debug ... ...) (cond ... ...)))
| (if (eq inhibit-file-name-operation (quote write-region)) nil (let (... ... ... ...)
(flet ... ... ...)))
`----
This definition of sys is in line 439 of latin-unity.el
bye
Karl
--
'Twas brillig, and the slithy toves
Did gyre and gimble in the wabe;
All mimsy were the borogoves,
And the mome raths outgrabe. "Lewis Carroll" "Jabberwocky"