Menu

Can't get latest emacro to work with XEmacs

Help
Rob Walker
2005-07-06
2013-04-03
  • Rob Walker

    Rob Walker - 2005-07-06

    I downloaded emacrolibs-2005-1-all.deb and emacro-2005-1-beta-all.deb, and cannot get them to work with the XEmacs I have installed here in debian.  I have tried a number of things, and here are the outputs of all of the tests.

    xemacs21       21.4.17-2

    I did a rm ~/emacs/preferences/e-* prior to each of the following tests.

    This was with LANG=""

    Debugger entered--Lisp error: (syntax-error "Too many buttons (9)" (:question "L
    anguage | Sprache?" :buttons (["EN" (dialog-box-finish (quote "EN")) t] ["DE" (d
    ialog-box-finish (quote "DE")) t] ["ES" (dialog-box-finish (quote "ES")) t] ["FR
    " (dialog-box-finish (quote "FR")) t] ["ID" (dialog-box-finish (quote "ID")) t]
    ["IT" (dialog-box-finish (quote "IT")) t] ["NO" (dialog-box-finish (quote "NO"))
    t] ["PT" (dialog-box-finish (quote "PT")) t] ["RO" (dialog-box-finish (quote "R
    O")) t] ["RU" (dialog-box-finish (quote "RU")) t])))
      make-dialog-box-internal(question (:question "Language | Sprache?" :buttons ([
    "EN" ... t] ["DE" ... t] ["ES" ... t] ["FR" ... t] ["ID" ... t] ["IT" ... t] ["N
    O" ... t] ["PT" ... t] ["RO" ... t] ["RU" ... t])))
      eval((make-dialog-box-internal (quote question) (quote (:question "Language |
    Sprache?" :buttons ...))))
      byte-code("..." [thunk frames id sym eval gensym lambda (did) when eq quote (d
    id) mapc (quote enable-frame) (enqueue-eval-event (quote internal-make-dialog-bo
    x-exit) did) remove-hook (quote delete-dialog-box-hook) framep add-hook delete-f
    rame-hook delete-dialog-box-hook disable-frame --cl-block-nil-- (byte-code "<C2>
    ^Y<C3> !<AB><95><C4>   !<C5>a<AB><8E><C6>      a<AB><87><C7><C8><C9>\"<88><AA>
    <84><CA>        !<88>)<AA>\\" [id event next-event eval-event-p event-function i
    nternal-make-dialog-box-exit event-object throw --cl-block-nil-- ... dispatch-ev
    ent] 3)] 11)
      dialog-box-modal-loop((make-dialog-box-internal (quote question) (quote (:ques
    tion "Language | Sprache?" :buttons ...))))
      make-dialog-box(question :question "Language | Sprache?" :modal t :buttons (["
    EN" (dialog-box-finish ...) t] ["DE" (dialog-box-finish ...) t] ["ES" (dialog-bo
    x-finish ...) t] ["FR" (dialog-box-finish ...) t] ["ID" (dialog-box-finish ...)
    t] ["IT" (dialog-box-finish ...) t] ["NO" (dialog-box-finish ...) t] ["PT" (dial
    og-box-finish ...) t] ["RO" (dialog-box-finish ...) t] ["RU" (dialog-box-finish
    ...) t]))
      get-dialog-box-response(t ("Language | Sprache?" ("EN" . "EN") ("DE" . "DE") (
    "ES" . "ES") ("FR" . "FR") ("ID" . "ID") ("IT" . "IT") ("NO" . "NO") ("PT" . "PT
    ") ("RO" . "RO") ("RU" . "RU")))
      (setq tmp-lang (get-dialog-box-response (quote t) (quote ...)))
      (cond ((fboundp ...) (setq tmp-lang ...)) ((fboundp ...) (load-file ...)))
      (if window-system (cond (... ...) (... ...)) (let (...) (setq tmp-lang ...)))
      (if (or (boundp ...) (boundp ...)) nil (if window-system (cond ... ...) (let .
    .. ...)))
      (unless (or (boundp ...) (boundp ...)) (if window-system (cond ... ...) (let .
    .. ...)))
      load-internal("e-config" nil t nil undecided)
      load("e-config" nil t nil)
      require(e-config)
      load-internal("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t u
    ndecided)
      load("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t)
      load-file("/usr/share/xemacs/site-packages/lisp/site-start.el")
      call-interactively(load-file)
      command-execute(load-file t)
      execute-extended-command(nil)
      call-interactively(execute-extended-command)

    So I thought I should look into the whole LANG environment variable.

    This is with LANG=EN

    Debugger entered--Lisp error: (void-variable e-lang)
      (upcase e-lang)
      (concat "(setq e-lang \"" (upcase e-lang))
      (concat (concat "(setq e-lang \"" (upcase e-lang)) "\")\n")
      (append-to-file (concat (concat "(setq e-lang \"" ...) "\")\n") (quote nil) pr
    ef-file)
      (progn (setq tmp-lang (upcase ...)) (append-to-file (concat ... "\")\n") (quot
    e nil) pref-file))
      (if (getenv "LANG") (progn (setq tmp-lang ...) (append-to-file ... ... pref-fi
    le)))
      (when (getenv "LANG") (progn (setq tmp-lang ...) (append-to-file ... ... pref-
    file)))
      (if (boundp (quote e-lang)) nil (when (getenv "LANG") (progn ... ...)))
      (unless (boundp (quote e-lang)) (when (getenv "LANG") (progn ... ...)))
      load-internal("e-config" nil t nil undecided)
      load("e-config" nil t nil)
      require(e-config)
      load-internal("e-macro" nil t nil undecided)
      load("e-macro" nil t nil)
      require(e-macro)
      load-internal("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t u
    ndecided)
      load("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t)
      load-file("/usr/share/xemacs/site-packages/lisp/site-start.el")
      call-interactively(load-file)
      command-execute(load-file t)
      execute-extended-command(nil)
      call-interactively(execute-extended-command)

    So I tried again.

    This is with LANG=en

    Debugger entered--Lisp error: (void-variable e-lang)
      (upcase e-lang)
      (concat "(setq e-lang \"" (upcase e-lang))
      (concat (concat "(setq e-lang \"" (upcase e-lang)) "\")\n")
      (append-to-file (concat (concat "(setq e-lang \"" ...) "\")\n") (quote nil) pr
    ef-file)
      (progn (setq tmp-lang (upcase ...)) (append-to-file (concat ... "\")\n") (quot
    e nil) pref-file))
      (if (getenv "LANG") (progn (setq tmp-lang ...) (append-to-file ... ... pref-fi
    le)))
      (when (getenv "LANG") (progn (setq tmp-lang ...) (append-to-file ... ... pref-
    file)))
      (if (boundp (quote e-lang)) nil (when (getenv "LANG") (progn ... ...)))
      (unless (boundp (quote e-lang)) (when (getenv "LANG") (progn ... ...)))
      load-internal("e-config" nil t nil undecided)
      load("e-config" nil t nil)
      require(e-config)
      load-internal("e-macro" nil t nil undecided)
      load("e-macro" nil t nil)
      require(e-macro)
      load-internal("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t u
    ndecided)
      load("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t)
      load-file("/usr/share/xemacs/site-packages/lisp/site-start.el")
      call-interactively(load-file)
      command-execute(load-file t)
      execute-extended-command(nil)
      call-interactively(execute-extended-command)

    These all were on a startup of xemacs, and then M-x set-variable RET debug-on-error RET t RET M-x load-file /usr/share/xemacs/site-packages/lisp/site-start.el RET

    So then I tried "xemacs -nw", and then M-x load-file....

    I get a query for the language this time!  woo hoo!

    Do you want Emacs to access the internet? (email, news)

    paper size...

    printer name
    ps printer name...
    tabs...

    blamo!

    Debugger entered--Lisp error: (error "Autoloading failed to define function read-context")
      (read-context)
      (progn (autoload (quote read-context) "context" "Last saved position in file." t) (read-context))
      (if context-of-edit-location (progn (autoload ... "context" "Last saved position in file." t) (read-context)))
      (when context-of-edit-location (autoload (quote read-context) "context" "Last saved position in file." t) (read-context))
      (progn (defvar context-of-edit-location) (defcustom context-of-edit-location t "Nil or t to jump back to where you last edited each file$
      (if cache-context (progn (defvar context-of-edit-location) (defcustom context-of-edit-location t "Nil or t to jump back to where you las$
      (when cache-context (defvar context-of-edit-location) (defcustom context-of-edit-location t "Nil or t to jump back to where you last edi$
      load-internal("e-common" nil t nil undecided)
      load("e-common" nil t nil)
      require(e-common)
      (if cache-tinyload (setq tinyload-:load-list (append tinyload-:load-list ...)) (require arg))
      emacro-require(e-common)
      load-internal("e-config" nil t nil undecided)
      load("e-config" nil t nil)
      require(e-config)
      load-internal("e-macro" nil t nil undecided)
      load("e-macro" nil t nil)
      require(e-macro)
      load-internal("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t undecided)
      load("/usr/share/xemacs/site-packages/lisp/site-start.el" nil nil t)
      load-file("/usr/share/xemacs/site-packages/lisp/site-start.el")
      call-interactively(load-file)
      command-execute(load-file t)
      execute-extended-command(nil)
    call-interactively(execute-extended-command)

    Any thoughts?

    I am going to give it a shot with an older emacro and emacrolibs.

    I do have ~/emacs/tiny-tools, with a symlink, as described somewhere.  :-)

    rob

     
    • Bruce Ingalls

      Bruce Ingalls - 2005-10-02

      An older version of EMacro should still work with XEmacs. I think you hit a bug that has since been fixed.
      Until XEmacs properly supports the -debug-init flag, EMacro will only support (fsf/gnu) Emacs in the future.

       

Log in to post a comment.

Auth0 Logo