A couple of problems with new packages

[Vin Shelton]

On Dec 2, 2007 2:29 AM, Michael Sperber <sperber at deinprogramm.de> wrote:
> >
> > (2) When I start up a 21.5 XEmacs using those packages (without cedet
> > installed) and then evaluate
> >
> >   (info)
> >
> > I get the following backtrace:
> >
> > Debugger entered--Lisp error: (file-error "Cannot open load file" "ezimage")
> >   [...]
> >   load("sb-info" nil require nil)
> >   require(sb-info)
> >   (progn (require (quote sb-info)))
> >   load-internal("info" nil nil nil binary)
> >   load("info" nil nil nil)
> >   (info)
> >   eval((info))
> >   eval-interactive((info))
> >   eval-last-sexp(t)
> >   #<compiled-function nil "...(13)" [standard-output terpri
> > eval-last-sexp t] 2 1243051 nil>()
> >   call-interactively(eval-print-last-sexp)
>
> Ah---speedbar hooks itself to Info mode on autoload.  Fixed.

That worked - thanks!  Here's another one; I was opening 21.5's
lisp/autoload.el file and got this backtrace:


(1) (file-mode-spec/warning) Error in File mode specification: Cannot
open load file: "mode-local"

Backtrace follows:

  signal(file-error ("Cannot open load file" "mode-local"))
  # bind (path handler filename nosuffix nomessage noerror file)
  load("mode-local" nil require nil)
  # (unwind-protect ...)
  require(mode-local)
  byte-code("..." [require mode-local defalias semantic-overlay-live-p
#<compiled-function (o) "...(17)" [o extent-live-p extent-detached-p
bufferp extent-buffer] 3> semantic-make-overlay make-extent
semantic-overlay-put set-extent-property semantic-overlay-get
extent-property semantic-overlay-properties extent-properties
semantic-overlay-move set-extent-endpoints semantic-overlay-delete
delete-extent semantic-overlays-at #<compiled-function (pos) "...(6)"
[pos extent-list nil] 4> semantic-overlays-in #<compiled-function (beg
end) "...(6)" [end beg extent-list nil] 4> semantic-overlay-buffer
extent-buffer semantic-overlay-start extent-start-position
semantic-overlay-end extent-end-position semantic-overlay-size
extent-length semantic-overlay-next-change next-extent-change
semantic-overlay-previous-change previous-extent-change
semantic-overlay-lists #<compiled-function nil "...(4)" [extent-list]
1> semantic-overlay-p extentp semantic-read-event #<compiled-function
nil "...(26)" [c event next-command-event key-press-event-p
event-to-character char-equal quit-char keyboard-quit] 3>
semantic-make-local-hook make-local-hook semantic-mode-line-update
redraw-modeline semantic-run-mode-hooks fboundp run-mode-hooks
run-hooks semantic-subst-char-in-string subst-char-in-string] 4)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("semantic-fw" nil require nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("semantic-fw" nil require nil)
  # (unwind-protect ...)
  require(semantic-fw)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("semantic-tag" nil require nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("semantic-tag" nil require nil)
  # (unwind-protect ...)
  require(semantic-tag)
  byte-code("..." [require working assoc semantic-tag semantic-lex inversion] 2)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("semantic" nil require nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("semantic" nil require nil)
  # (unwind-protect ...)
  require(semantic)
  byte-code("..." [require semantic semantic-bovine backquote find-func] 2)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("semantic-el" nil nil nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("semantic-el" nil nil nil)
  # (unwind-protect ...)
  semantic-default-elisp-setup()
  run-hooks(semantic-default-elisp-setup)
  emacs-lisp-mode()
  # bind (alist mode name keep-going)
  # (unwind-protect ...)
  # bind (just-from-file-name)
  set-auto-mode()
  #<compiled-function nil "...(5)" [set-auto-mode t] 1>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function
(__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__
errstr error-message-string lwarn file-mode-spec warning "Error in %s:
%s\n\nBacktrace follows:\n\n%s" "File mode specification"
backtrace-in-condition-handler-eliminating-handler] 8>
#<compiled-function nil "...(5)" [set-auto-mode t] 1>)
  # (condition-case ... . ((error)))
  # bind (find-file)
  normal-mode(t)
  # bind (nomodes after-find-file-from-revert-buffer noauto warn error)
  after-find-file(nil t)
  # (unwind-protect ...)
  # bind (inhibit-read-only error number truename rawfile nowarn filename buf)
  find-file-noselect-1(#<buffer "autoload.el">
"/home/acs/scmroot/xemacs-21.4/lisp/autoload.el" nil nil
"/home/acs/scmroot/xemacs-21.4/lisp/autoload.el" (1013827 2050))
  byte-code("..." [number truename rawfile nowarn filename buf
set-buffer-major-mode find-file-noselect-1] 7)
  # (condition-case ... . ((t (byte-code "Â!ˆÃ	@	A\"‡" [buf data
kill-buffer signal] 3))))
  # bind (number truename buf wildcards rawfile nowarn filename)
  find-file-noselect("~/scmroot/xemacs-21.4/lisp/autoload.el" nil nil t)
  # bind (wildcards codesys filename)
  #<compiled-function (filename &optional codesys wildcards) "...(69)"
[coding-system-for-read wildcards filename codesys value
get-coding-system find-file-noselect nil switch-to-buffer-other-frame
mapcar switch-to-buffer] 6 1153080 (list (read-file-name "Find file in
other frame: ") (and current-prefix-arg (read-coding-system "Coding
system: ")) t)>("~/scmroot/xemacs-21.4/lisp/autoload.el" nil t)
  call-interactively(find-file-other-frame)
  # (condition-case ... . error)
  # (catch top-level ...)


Thank you for fixing this.

  - Vin