Re: ~~~~~~~ xemacs ~ ~~~~~~~~~~~~~ ~ koi8-r.

## On Mon, 10 Nov 2003 19:05:28 +0300
## Nickolay Pakoulin wrote:

> Вот более или менее приемлимое решение.  К письму приложен лисповый файл
> koi8-pgraph.el  Достаточно указать в init-файле (для МУЛИ!!!)

> (when (featurep 'mule)
>   (load-library "koi8-pgraph"))

Пишет:

(1) (initialization/error) An error has occurred while loading /home/hun7er/.xemacs/init.el:


Wrong type argument: arrayp, #s(char-table type generic data (?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ / ?~ ~ ?~ <= ?~ => ?~ | ?~ | ?~

?¤

?~

?°

?~

?²

?~

?·

?~

?÷

?~

?©

?~ ?\" ?~ ?\" ?~ - ?~ -- ?~ ?\' ?~ ?\" ?~ ... ?~ ?> ?~ ?<))

Backtrace follows:

  # bind (h l dt)
  standard-display-8bit-1(#s(char-table type generic data (?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ / ?~ ~ ?~ <= ?~ => ?~ | ?~ | ?~

?¤

?~

?°

?~

?²

?~

?·

?~

?÷

?~

?©

?~ ?\" ?~ ?\" ?~ - ?~ -- ?~ ?\' ?~ ?\" ?~ ... ?~ ?> ?~ ?<)) 128 255)
  # bind (x)
  #<compiled-function (x) "...(6)" [h l x standard-display-8bit-1] 4>(#s(char-table type generic data (?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ / ?~ ~ ?~ <= ?~ => ?~ | ?~ | ?~

?¤

?~

?°

?~

?²

?~

?·

?~

?÷

?~

?©

?~ ?\" ?~ ?\" ?~ - ?~ -- ?~ ?\' ?~ ?\" ?~ ... ?~ ?> ?~ ?<)))
  # bind (fdt-x)
  #<compiled-function (fdt-x) "...(7)" [fdt-function fdt-x] 2>((nil . #s(char-table type generic data (?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ / ?~ ~ ?~ <= ?~ => ?~ | ?~ | ?~

?¤

?~

?°

?~

?²

?~

?·

?~

?÷

?~

?©

?~ ?\" ?~ ?\" ?~ - ?~ -- ?~ ?\' ?~ ?\" ?~ ... ?~ ?> ?~ ?<))))
  mapcar(#<compiled-function (fdt-x) "...(7)" [fdt-function fdt-x] 2> ((nil . #s(char-table type generic data (?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ - ?~ | ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ + ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ # ?~ / ?~ ~ ?~ <= ?~ => ?~ | ?~ | ?~

?¤

?~

?°

?~

?²

?~

?·

?~

?÷

?~

?©

?~ ?\" ?~ ?\" ?~ - ?~ -- ?~ ?\' ?~ ?\" ?~ ... ?~ ?> ?~ ?<))) ((x) . [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil " " nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil])))
  # bind (fdt-locale fdt-function)
  frob-display-table(#<compiled-function (x) "...(6)" [h l x standard-display-8bit-1] 4> nil)
  # bind (locale h l)
  standard-display-8bit(128 255)
  # bind (current-load-list)
  # (unwind-protect ...)
  # bind (load-file-name)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("/home/hun7er/.xemacs/init.el" t t t undecided)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("/home/hun7er/.xemacs/init.el" t t t)
  load-user-init-file()
  #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function (__load_init_file_arg__) "...(26)" [init-file-had-error user-init-file __load_init_file_arg__ errstr error-message-string message "Error in init file: %s" lwarn initialization error "An error has occurred while loading %s:\n\n%s\n\nBacktrace follows:\n\n%s\n\nTo ensure normal operation, you should investigate the cause of the error\nin your initialization file and remove it.  Use the `-debug-init' option\nto XEmacs to enter the debugger when the error occurs and investigate the\nexact problem." backtrace-in-condition-handler-eliminating-handler t] 8> #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>)
  # (condition-case ... . ((error)))
  # bind (debug-on-error debug-on-error-from-init-file debug-on-error-should-be-set debug-on-error-initial)
  load-init-file()
  # bind (command-line-args-left)
  command-line()

  # (condition-case ... . ((t (byte-code "	Â" [error-data data nil] 1))))
  # bind (error-data)
  normal-top-level()
  # (condition-case ... . error)
  # (catch top-level ...)


To ensure normal operation, you should investigate the cause of the error
in your initialization file and remove it.  Use the `-debug-init' option
to XEmacs to enter the debugger when the error occurs and investigate the
exact problem.


:-((((

-- 
np -> (null)
    WBR, Sergey Sholokhov   ( H U N 7 E R )