From: Alan Mackenzie <acm@muc.de>
Subject: Re: ebrowse problems when loading a BROWSE file
Date: Wed, 12 Jan 2005 21:12:52 +0000 [thread overview]
Message-ID: <ks34sc.66.ln@acm.acm> (raw)
In-Reply-To: 1105543206.811269.210870@z14g2000cwz.googlegroups.com
jromanus@earthlink.net wrote on 12 Jan 2005 07:20:06 -0800:
> Every time I try to load my BRWOSE file I am getting errors. I have
> already tried "emacs -q --no-site-file" with the same results. Here is
> the output from *Messages* buffer:
> File mode specification error: (wrong-type-argument consp [ebrowse-ts
> [ebrowse-cs "MsgHandler" "mev" 0 nil nil 0 nil] ([ebrowse-ts
> [ebrowse-cs "SerialBroadcaster" "mev" 0 "mevSerialBcast.h" " class
> SerialBroadcaster :" 1826 "mevSerialBcast.h"] nil ([ebrowse-ms
> .....
UH???? Are we psychic, or something? I posted a patch for this bug on
the emacs-devel mailing list last night.
Assuming you're on GNU Emacs 21.3, apply the following patch to your
ebrowse.el. [If you don't know how to apply a patch, or haven't got the
patch program, say so!]
*************************************************************************
*** /usr/src/packages/BUILD/emacs-21.3/lisp/progmodes/ebrowse.orig.el Wed Jan 29 08:12:36 2003
--- /home/acm/ebrowse.el Tue Jan 11 18:47:54 2005
***************
*** 786,801 ****
(defun ebrowse-class-in-tree (class tree)
"Search for a class with name CLASS in TREE.
! Return the class found, if any. This function is used during the load
! phase where classes appended to a file replace older class
! information."
(let ((tclass (ebrowse-ts-class class))
found)
(while (and tree (not found))
! (let ((root (car tree)))
! (when (string= (ebrowse-qualified-class-name (ebrowse-ts-class root))
(ebrowse-qualified-class-name tclass))
! (setq found root))
(setq tree (cdr tree))))
found))
--- 786,801 ----
(defun ebrowse-class-in-tree (class tree)
"Search for a class with name CLASS in TREE.
! If CLASS is found, return the tail of TREE starting at CLASS. This function
! is used during the load phase where classes appended to a file replace older
! class information."
(let ((tclass (ebrowse-ts-class class))
found)
(while (and tree (not found))
! (let ((root-ptr tree))
! (when (string= (ebrowse-qualified-class-name (ebrowse-ts-class (car root-ptr)))
(ebrowse-qualified-class-name tclass))
! (setq found root-ptr))
(setq tree (cdr tree))))
found))
***************
*** 909,918 ****
(let ((gc-cons-threshold 2000000))
(while (not (progn (skip-chars-forward " \t\n\r") (eobp)))
(let* ((root (read (current-buffer)))
! (old-root (ebrowse-class-in-tree root tree)))
(ebrowse-show-progress "Reading data" (null tree))
! (if old-root
! (setf (car old-root) root)
(push root tree)))))
(garbage-collect)
(list header tree)))
--- 909,918 ----
(let ((gc-cons-threshold 2000000))
(while (not (progn (skip-chars-forward " \t\n\r") (eobp)))
(let* ((root (read (current-buffer)))
! (old-root-ptr (ebrowse-class-in-tree root tree)))
(ebrowse-show-progress "Reading data" (null tree))
! (if old-root-ptr
! (setcar old-root-ptr root)
(push root tree)))))
(garbage-collect)
(list header tree)))
*************************************************************************
> Piotr
--
Alan Mackenzie (Munich, Germany)
Email: aacm@muuc.dee; to decode, wherever there is a repeated letter
(like "aa"), remove half of them (leaving, say, "a").
prev parent reply other threads:[~2005-01-12 21:12 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-01-12 15:20 ebrowse problems when loading a BROWSE file jromanus
2005-01-12 21:12 ` Alan Mackenzie [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ks34sc.66.ln@acm.acm \
--to=acm@muc.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.