From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Alan Mackenzie Newsgroups: gmane.emacs.help Subject: Re: ebrowse problems when loading a BROWSE file Date: Wed, 12 Jan 2005 21:12:52 +0000 Organization: muc.de e.V. -- private internet access Message-ID: References: <1105543206.811269.210870@z14g2000cwz.googlegroups.com> NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1105564406 17053 80.91.229.6 (12 Jan 2005 21:13:26 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 12 Jan 2005 21:13:26 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jan 12 22:13:18 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Copnp-0005a2-00 for ; Wed, 12 Jan 2005 22:13:17 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CopzQ-0001hF-PA for geh-help-gnu-emacs@m.gmane.org; Wed, 12 Jan 2005 16:25:16 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsmi-us.news.garr.it!newsmi-eu.news.garr.it!NewsITBone-GARR!feed.news.tiscali.de!news.csl-gmbh.net!informatik.tu-muenchen.de!news.muc.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 90 Original-NNTP-Posting-Host: acm.muc.de Original-X-Trace: marvin.muc.de 1105564185 83185 193.149.49.134 (12 Jan 2005 21:09:45 GMT) Original-X-Complaints-To: news-admin@muc.de Original-NNTP-Posting-Date: 12 Jan 2005 21:09:45 GMT User-Agent: tin/1.4.5-20010409 ("One More Nightmare") (UNIX) (Linux/2.0.35 (i686)) Original-Xref: shelby.stanford.edu gnu.emacs.help:127829 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:23312 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:23312 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").