liece dropped from sumo?
22 years, 3 months
Mike Kupfer
Mike Kupfer
Hi, I'm starting to incorporate the latest sumo (2002-7-20) into the
Solaris Companion CD, and I noticed that liece has been dropped from
the sumo. Is that deliberate or an oversight? (I'm trying to figure
out if I should continue shipping it with the Companion CD.)
thanks,
mike
- 2 participants
- 2 comments
Re: [C] packages: Update .cvsignore for generated .info* and .html
22 years, 3 months
Ville Skyttä
Ville Skyttä
On Thu, 2002-08-01 at 00:39, Adrian Aichner wrote:
>
> Following files were not part of this patch (as I intended) because
> these files are not under CVS control yet.
>
> I will commit this now:
[...]
> What's the best way to produce patches for files which are not in CVS yet?
>
> I have added -N to patcher-default-diff-command temporarily.
>
> Is there a better way?
I'd be very happy to hear how that should be done. I've had no luck
with only adding -N to "cvs diff" options, but have always had to "cvs
add" the file first. Otherwise, I get: "cvs server: I know nothing
about some_file".
The problem, of course is when one doesn't have commit access, the "cvs
add" can't be done.
Another interesting point is that diffing after a "cvs add", but before
committing, my cvs automagically does "diff -N" for these files,
ignoring any other diff options from the command line or ~/.cvsrc...
--
\/ille Skyttä
ville.skytta at xemacs.org
- 1 participants
- 0 comments
Get Your Own Great-Looking Website
22 years, 3 months
Com-Pro Systems, Inc.
Com-Pro Systems, Inc.
-
NEED A PROFESSIONAL LOOKING WEBSITE?
Custom Website Development
We can create new web pages or give your existing pages a "face-lift" to bring them up to the Internet's latest trends and standards. We are experienced at writing HTML and can provide custom programming in CGI, JavaScripts, Java Server Pages, Active Server Pages and ActiveX, which we can use to give your site the dynamics and interactivity of a cutting edge web presence.
E-Mail and Web Hosting
>Unlimited technical customer support via e-mail
>Web hosting- 50MB storage
>10 e-mail accounts
>Unlimited e-mail forwards
For $29.95 monthly.
First month Free with purchase of new website!!
>From server setup to content development, we offer the complete Web solution, which is further enhanced by the services of our carefully chosen strategic partners who provide everything from development tools to hosting services.
If you prefer not to receive future news and information on our technology solutions, please reply to this message with UNSUBSCRIBE in the subject.
2200 N.W. 102nd Ave. Suite 4
Miami, FL 33172
Tel: +1 (305) 594-3474
Fax: +1 (305) 594-9655
Toll Free: 1-888-8-COM-PRO
Web: www.comprosys.com
e-mail: info(a)comprosys.com
Web Templates
Starting from just $499!
$399 If your order is placed by 8/15/2002.
Our Web templates give you the way to get on the Internet with a very professional look and feel while keeping the costs down. Contact us for your options.
How does it work? Easy as 1-2-3...
1) Register on our site and select a username and password, this will allow you to track your website development project start to finish.
2) Fill out the questionnaire, this will help you to get all the materials needed for us to develop your site. It is very important to fill out all the questions.
3) We will then setup your website according to the information given to us. That's it !
If you would prefer a custom solution we will be happy to create a completely custom solution for you. Contact us for a free quote.
Sell Your Products On-Line
E-shop is a multi-platform e-commerce solution for Retailers, Wholesalers, or any company wanting to sell on the Internet. This e-commerce solution can be used as a business-to-business consumer solution. E-Shop will support any number of products since its data is stored in SQL tables.
Corporate Profile
Com-Pro Systems, Inc., founded in 1990, is a successful information technology consulting firm providing products and services across several industries. Com-Pro Systems' goal is to become the leader in software development.
CSI will deliver the entire solution. By leveraging our relationships with companies like IBM, Microsoft, Compaq, AT&T, Cisco and others we bring you the best cross platform solutions to your Hardware, Software and Hosting needs.
Copyright C 2001, Com-Pro Systems, Inc. (All rights reserved)
- 1 participants
- 0 comments
Euro symbol in native Windows XEmacs (was: Text processing Java source code)
22 years, 3 months
Adrian Aichner
Adrian Aichner
The following message is a courtesy copy of an article
that has been posted to comp.emacs.xemacs as well.
>>>>> "Erwan" == Erwan David <erwan(a)rail.eu.org> writes:
Erwan> moderator(a)faqteam.org (Vasily Korytov) writes:
>>>>>>> "RG" == Roedy Green writes:
>>
RG> On 27 Jul 2002 01:32:25 -0700, cmaj10(a)yahoo.com (Christophe Major)
RG> wrote or quoted :
>>
>> >> I have to write a script that will take Java source code as input and
>> >> will output the code stripped of all its comments.
>>
RG> I would be happy to write you one for $50 US.
>>
>> What? Comment stripper for $50?! I think, I'd write one for $25.
>> Anyone would suggest a lower price? =))
Erwan> 25 ~ for me...
Oh, (emacs-version) "XEmacs 21.5 (beta8) \"broccoli\" [Lucid]
(i586-pc-win32, Mule) of Wed Jul 31 2002 on D5DC120J", that's a native
Windows build, can now display the Euro currency symbol!
Since I don't know how to generate [EuroSign] in native Windows XEmacs
and MS Word uses Alt+Control+e I have modified Stephen Turnbull's
example from a few month ago to this in my .emacs and it works great:
;;; From Stephen:
(when (featurep 'xemacs)
(define-key global-map '(control meta e)
(lambda () (interactive) (insert (make-char 'latin-iso8859-15 #x24)))))
Later,
Adrian
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
Error in post-gc-hook
22 years, 3 months
Vaclav Barta
Vaclav Barta
This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
Please describe as succinctly as possible:
- What happened.
- What you thought should have happened.
- Precisely what you were doing at the time.
Please also include any C or lisp back-traces that you may have.
================================================================
Dear Bug Team!
I've been re-formatting some HTML document (with
indent-region-or-balanced-expression), and since it took forever (as
usual:-( ), I changed my mind and pressed C-g. XEmacs normally
responds well when I do that, but this time I got an internal error:
(1) (file/alert) Cannot write backup file; backing up in ~/%backup%~
(2) (error/warning) Error in post-gc-hook: (quit nil)
Backtrace follows:
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x83cf610> ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (args)
#<compiled-function (&rest args) "...(28)" [result args reverse cons] 4 640435>((quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t)))))
(bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t)))))
(cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))
(cons (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim)))))))
(cons (quote if) (cons (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))
(bq-list* (quote if) (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))
(\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))
# bind (ds)
(let ((ds (sgml-get-delim-string delim))) (assert ds) (cond ((eq context (quote gi)) (setq context (quote (nmstart stagc)))) ((eq context (quote com)) (setq context (quote ("COM" "MDC")))) ((null context) (setq context (quote (t)))) ((not (listp context)) (setq context (list context)))) (\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim)))))))))
# bind (offset move context delim)
(lambda (delim &optional context move offset) "Macro for matching delimiters.\nSyntax: DELIM &optional CONTEXT MOVE\nwhere DELIM is the delimiter name (string or symbol), \nCONTEXT the contextual constraint, and\nMOVE is `nil', `move' or `check'.\n\nTest if the text following point in current buffer matches the SGML\ndelimiter DELIM. Also check the characters after the delimiter for\nCONTEXT. Applicable values for CONTEXT is \n`gi' -- name start or TAGC if SHORTTAG YES,\n`com' -- if COM or MDC,\n`nmstart' -- name start character, \n`stagc' -- TAGC if SHORTTAG YES,\n`digit' -- any Digit,\nstring -- delimiter with that name,\nlist -- any of the contextual constraints in the list." (or offset (setq offset 0)) (setq delim (upcase (format "%s" delim))) (let ((ds (sgml-get-delim-string delim))) (assert ds) (cond ((eq context (quote gi)) (setq context (quote (nmstart stagc)))) ((eq context (quote com)) (setq context (quote ("COM" "MDC")))) ((null context) (setq context (quote (t)))) ((not (listp context)) (setq context (list context)))) (\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))))("RNI" nil move)
(sgml-is-delim "RNI" nil move)
(sgml-parse-delim "RNI")
(if (sgml-parse-delim "RNI") (sgml-check-token "DEFAULT"))
(sgml-parse-rni "DEFAULT")
(or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t)))
(cond ((sgml-parse-delim "PERO") (sgml-skip-ps) (setq name (sgml-check-name t)) (setq dest (sgml-dtd-parameters sgml-dtd-info))) (t (or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t))) (setq dest (sgml-dtd-entities sgml-dtd-info))))
# bind (extid text notation type dest name)
(let (name dest (type (quote text)) (notation nil) text extid) (cond ((sgml-parse-delim "PERO") (sgml-skip-ps) (setq name (sgml-check-name t)) (setq dest (sgml-dtd-parameters sgml-dtd-info))) (t (or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t))) (setq dest (sgml-dtd-entities sgml-dtd-info)))) (sgml-skip-ps) (setq extid (sgml-parse-external)) (setq text (cond (extid (sgml-skip-ps) (let ((tn (sgml-parse-entity-type))) (setq type (or (car tn) (quote text))) (unless (eq (cdr tn) "") (setq notation (cdr tn)))) extid) ((sgml-startnm-char-next) (let ((token (intern (sgml-check-case (sgml-check-name))))) (sgml-skip-ps) (when (and sgml-xml-p (memq token (quote (cdata sdata pi starttag endtag ms md)))) (sgml-error "XML forbids %s entities." (upcase (symbol-name token)))) (cond ((memq token (quote (CDATA SDATA))) (setq type token) (sgml-check-parameter-literal)) ((eq token (quote PI)) (concat "<?" (sgml-check-parameter-literal) ">")) ((eq token (quote STARTTAG)) (sgml-start-tag-of (sgml-check-parameter-literal))) ((eq token (quote ENDTAG)) (sgml-end-tag-of (sgml-check-parameter-literal))) ((eq token (quote MS)) (concat "<![" (sgml-check-parameter-literal) "]]>")) ((eq token (quote MD)) (concat "<!" (sgml-check-parameter-literal) ">"))))) ((sgml-check-parameter-literal)))) (when dest (sgml-entity-declare name dest type text notation)))
sgml-declare-entity()
funcall(sgml-declare-entity)
(cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok)))
# bind (rut tok)
(let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))
(cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment))))
(cond ((and sgml-xml-p (sgml-parse-xml-comment))) ((sgml-parse-delim "MDO" (nmstart "COM" "MDC")) (cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment)))) (sgml-skip-ps) (sgml-check-delim "MDC") (unless (eq option (quote ignore)) (when sgml-markup-type (sgml-set-markup-type sgml-markup-type))) t) ((sgml-parse-delim "MS-START") (sgml-do-marked-section)))
# bind (option)
sgml-parse-markup-declaration(dtd)
(cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END")))
(progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END"))))
(while (progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END")))))
# bind (eref sgml-parsing-dtd)
(let ((sgml-parsing-dtd t) (eref sgml-current-eref)) (while (progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END"))))))
sgml-check-dtd-subset()
(cond (external (let ((decl (and (car external) (sgml-catalog-lookup sgml-catalog-files nil (quote dtddecl) (sgml-canonize-pubid (car external)))))) (if decl (setq sgml-declaration decl))) (sgml-push-to-entity (sgml-make-entity docname (quote dtd) external)) (sgml-check-dtd-subset) (sgml-check-end-of-entity "DTD subset") (sgml-pop-entity)))
# bind (sgml-parsing-dtd)
(let ((sgml-parsing-dtd t)) (setq sgml-no-elements 0) (setq sgml-dtd-info (sgml-make-dtd docname)) (sgml-skip-ps) (cond ((sgml-parse-delim "DSO") (let ((original-buffer (current-buffer))) (sgml-check-dtd-subset) (if (eq (current-buffer) original-buffer) (sgml-check-delim "DSC") (sgml-parse-error "Illegal character '%c' in doctype declaration" (following-char)))))) (cond (external (let ((decl (and (car external) (sgml-catalog-lookup sgml-catalog-files nil (quote dtddecl) (sgml-canonize-pubid (car external)))))) (if decl (setq sgml-declaration decl))) (sgml-push-to-entity (sgml-make-entity docname (quote dtd) external)) (sgml-check-dtd-subset) (sgml-check-end-of-entity "DTD subset") (sgml-pop-entity))) (sgml-set-initial-state sgml-dtd-info) (run-hooks (quote sgml-doctype-parsed-hook)))
# bind (external docname)
sgml-setup-doctype("HTML" ("-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd" . "/usr/local/apache/htdocs/german/bjokes/ar/"))
# bind (sgml-markup-start)
(let (sgml-markup-start) (message "Parsing doctype...") (sgml-setup-doctype (sgml-check-name) (sgml-parse-external)) (message "Parsing doctype...done"))
(cond (sgml-dtd-info (sgml-skip-upto-mdc)) (t (let (sgml-markup-start) (message "Parsing doctype...") (sgml-setup-doctype (sgml-check-name) (sgml-parse-external)) (message "Parsing doctype...done"))))
sgml-do-doctype()
funcall(sgml-do-doctype)
(cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok)))
# bind (rut tok)
(let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))
(cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment))))
(cond ((and sgml-xml-p (sgml-parse-xml-comment))) ((sgml-parse-delim "MDO" (nmstart "COM" "MDC")) (cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment)))) (sgml-skip-ps) (sgml-check-delim "MDC") (unless (eq option (quote ignore)) (when sgml-markup-type (sgml-set-markup-type sgml-markup-type))) t) ((sgml-parse-delim "MS-START") (sgml-do-marked-section)))
# bind (option)
sgml-parse-markup-declaration(prolog)
(and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))
(or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info)))
(progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))
(while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info)))))
(progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil)))))))
# (unwind-protect ...)
(unwind-protect (progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil))))))) (setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table) (set-buffer-modified-p buffer-modified) (sgml-debug "Restoring buffer mod: %s" buffer-modified))
# bind (buffer-modified cb normal-syntax-table)
(let ((normal-syntax-table (syntax-table)) (cb (current-buffer)) (buffer-modified (buffer-modified-p))) (set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax)) (unwind-protect (progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil))))))) (setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table) (set-buffer-modified-p buffer-modified) (sgml-debug "Restoring buffer mod: %s" buffer-modified)))
(sgml-with-parser-syntax-ro (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil)))))))
sgml-parse-prolog()
# (unwind-protect ...)
(save-excursion (sgml-parse-prolog))
(cond ((or sgml-parent-document sgml-doctype) (let ((dtd (save-excursion (set-buffer (find-file-noselect (if (consp sgml-parent-document) (car sgml-parent-document) (or sgml-doctype sgml-parent-document)))) (sgml-need-dtd) (sgml-pstate-dtd sgml-buffer-parse-state)))) (sgml-set-initial-state dtd) (when (consp sgml-parent-document) (sgml-modify-dtd (cdr sgml-parent-document))))) (t (save-excursion (sgml-parse-prolog))))
sgml-load-doctype()
(if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype))
(progn (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype)))
(if (null sgml-buffer-parse-state) (progn (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype))))
(when (null sgml-buffer-parse-state) (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype)))
sgml-need-dtd()
# bind (quiet extra-cond sgml-goal)
sgml-parse-to(758)
# (unwind-protect ...)
(save-excursion (sgml-parse-to (1+ pos)) (let ((u sgml-top-tree)) (while (cond ((and (sgml-tree-next u) (>= pos (sgml-element-start (sgml-tree-next u)))) (setq u (sgml-tree-next u))) ((and (sgml-tree-etag-epos u) (>= pos (sgml-tree-end u))) (setq u (sgml-tree-parent u)) nil) ((and (sgml-tree-content u) (>= pos (sgml-element-start (sgml-tree-content u)))) (setq u (sgml-tree-content u))))) u))
# bind (pos)
sgml-find-element-of(757)
(if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))
# (catch parse-error ...)
(catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))
# bind (sgml-throw-on-error)
(let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))
(setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))
(if (or col element) nil (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))))
(unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))))
# bind (here)
(let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col)
(if sgml-indent-step (let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col))
(when sgml-indent-step (let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col))
# bind (element col)
sgml-indent-line()
funcall(sgml-indent-line)
(if (null sgml-indent-step) (insert-tab) (funcall indent-line-function))
(lambda nil "Indent line in proper way for current major mode." (interactive) (if (null sgml-indent-step) (insert-tab) (funcall indent-line-function)))()
call-interactively(sgml-indent-or-tab)
# (condition-case ... . error)
# (catch top-level ...)
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: Linux linux 2.4.0 #3 Sun Jan 28 20:49:46 GMT 2001 i686 unknown
./configure '--with-mule' '--with-x11' '--with-toolbars=yes'
XEmacs 21.5-b7 "broccoflower" configured for `i686-pc-linux'.
Compilation / Installation:
Source code location: /usr/local/cvs.src/xemacs/xemacs-21.5
Installation prefix: /usr/local
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -Wshadow
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11/include
- X Windows libraries location: /usr/X11/lib
- Handling WM_COMMAND properly.
Using Lucid menubars.
Using Lucid scrollbars.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Sound:
Compiling in support for sound (native).
Compiling in support for ESD (Enlightened Sound Daemon).
Databases:
Compiling in support for Berkeley database.
Compiling in support for GNU DBM.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for extra debugging code.
WARNING: ---------------------------------------------------------
WARNING: Compiling in support for runtime error checking.
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Load-Path Lisp Shadows:
----------------------
(/usr/local/lib/xemacs/xemacs-packages/lisp/pcl-cvs/easy-mmode
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/easy-mmode
/usr/local/lib/xemacs/site-packages/lisp/patcher
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-devel/patcher
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/viet-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/viet-util
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/korea-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/korea-util
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/japan-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/japan-util
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/ethio-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/ethio-util
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/cyril-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/cyril-util
/usr/local/lib/xemacs/mule-packages/lisp/mule-base/china-util
/usr/local/lib/xemacs-21.5-b7/lisp/mule/china-util)
Installed XEmacs Packages:
-------------------------
((xemacs-devel:version 1.46 :type single-file)
(xemacs-base :version 1.65 :type regular)
(w3 :version 1.25 :type regular)
(vm :version 7.0 :type regular)
(vc-cc :version 1.18 :type regular)
(text-modes :version 1.48 :type single-file)
(speedbar :version 1.22 :type regular)
(sh-script :version 1.14 :type regular)
(semantic :version 1.11 :type regular)
(psgml :version 1.26 :type regular)
(ps-print :version 1.03 :type regular)
(prog-modes
:version
1
.59
:type
single-file)
(pcl-cvs :version 1.6 :type regular)
(net-utils :version 1.23 :type single-file)
(mew :version 1.14 :type regular)
(mailcrypt :version 2.09 :type regular)
(mail-lib :version 1.43 :type regular)
(jde :version 1.35 :type regular)
(ispell :version 1.24 :type regular)
(ilisp :version 1.2 :type regular)
(igrep :version 1.08 :type regular)
(gnus :version 1.57 :type regular)
(games :version 1.13 :type regular)
(fsf-compat :version 1.11 :type single-file)
(eterm :version 1.13 :type regular)
(emerge :version 1.09 :type regular)
(elib :version 1.1 :type single-file)
(eieio :version 1.02 :type regular)
(efs :version 1.28 :type regular)
(edit-utils :version 1.89 :type single-file)
(ediff :version 1.41 :type regular)
(edebug :version 1.14 :type regular)
(dired :version 1.12 :type regular)
(debug :version 1.14 :type regular)
(cc-mode :version 1.28 :type regular)
(calendar :version 1.18 :type regular)
(mule-base :version 1.39 :type regular)
(leim :version 1.17 :type regular))
Features:
--------
(mail-abbrevs xemacsbug shadow w3-style rect ethio-util w3-hot
url-file url-cache w3-xemac w3-xemacs w3-toolbar xbm-button xpm-button
w3-forms images url-http url-cookie timezone urlauth w3 w3-menu
url-news url-gw w3-script w3-jscript w3-elisp w3-java w3-emulate
w3-auto w3-parse url mm w3-display w3-mouse advice advice-preload
w3-imap w3-widget w3-vars w3-keyword w3-cus url-parse url-vars css
font disp-table mule-sysdp w3-cfg w3-sysdp quail python-mode shell
comint ring edmacro psgml-dtd psgml-parse psgml-edit sendmail rfc822
browse-url tempo psgml-html psgml-xemacs sgml-mode psgml php-mode
cc-mode cc-align cc-cmds cc-engine cc-styles cc-langs cc-vars cc-menus
imenu cc-defs regexp-opt speedbar sb-image dframe assoc compile
dired-faces dired-xemacs dired cus-edit cus-load wid-edit font-lock
cperl-mode efs-cu cus-face overlay remem xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads vc-cc-autoloads
text-modes-autoloads speedbar-autoloads sh-script-autoloads
semantic-autoloads psgml-autoloads ps-print-autoloads
prog-modes-autoloads pcl-cvs-autoloads net-utils-autoloads
mew-autoloads mailcrypt-autoloads mail-lib-autoloads jde-autoloads
ispell-autoloads ilisp-autoloads igrep-autoloads gnus-autoloads
games-autoloads fsf-compat-autoloads eterm-autoloads emerge-autoloads
elib-autoloads eieio-autoloads efs-autoloads edit-utils-autoloads
ediff-autoloads edebug-autoloads dired-autoloads debug-autoloads
cc-mode-autoloads calendar-autoloads mule-base-autoloads
leim-autoloads src-autoloads loadhist rsz-minibuf auto-show
fontl-hooks x-iso8859-1 tibetan lao devanagari indian slovenian czech
romanian ccl code-cmds gutter-items menubar-items x-menubar
mode-motion mouse behavior itimer auto-save lisp-mode easymenu
iso8859-1 page buff-menu lib-complete cus-file derived env text-props
frame obsolete cus-start custom widget cl-extra mini-cl cl cl-19
packages backquote very-early-lisp unicode lucid-scrollbars cut-buffer
lucid-menubars x c-balloon-help tty-frames tty toolbar esd-sound
native-sound scrollbar unix-processes multicast network-streams
subprocesses modules menu-accelerator-support menubar berkeley-db dbm
md5 xemacs xim mule gutter tiff png gif jpeg xpm xbm lisp-float-type
file-coding linux devices window-system base64)
Recent keystrokes:
-----------------
C-f BS BS BS BS BS BS BS a r / 7 6 . h TAB RET C-x
b RET up C-SPC down C-insert C-x b RET Sh-insert BS
button1 button1up left BS BS b r down BS button1 button1up
BS BS BS down end BS BS BS BS < b r > down BS down
end BS BS BS b r > down BS C-left C-left C-left C-left
C-left BS BS BS down C-d C-d C-d C-d " end BS BS BS
BS down down home TAB M-x r e p o r t - x e TAB RE
T
Recent messages (most recent first):
-----------------------------------
Loading xemacsbug...done
Loading xemacsbug...
Quit
Warning: Error in post-gc-hook: (quit nil)
Backtrace follows:
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x83cf610> ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (args)
#<compiled-function (&rest args) "...(28)" [result args reverse cons] 4 640435>((quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t)))))
(bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t)))))
(cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))
(cons (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim)))))))
(cons (quote if) (cons (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (cons (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))
(bq-list* (quote if) (bq-list* (quote and) (append (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset)))))) (list (bq-list* (quote or) (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c)))))))) (bq-list* (quote progn) (append (if move (\` ((forward-char (\, (length ds)))))) (if (not (eq move (quote check))) (quote (t))))) (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))
(\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))
# bind (ds)
(let ((ds (sgml-get-delim-string delim))) (assert ds) (cond ((eq context (quote gi)) (setq context (quote (nmstart stagc)))) ((eq context (quote com)) (setq context (quote ("COM" "MDC")))) ((null context) (setq context (quote (t)))) ((not (listp context)) (setq context (list context)))) (\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim)))))))))
# bind (offset move context delim)
(lambda (delim &optional context move offset) "Macro for matching delimiters.\nSyntax: DELIM &optional CONTEXT MOVE\nwhere DELIM is the delimiter name (string or symbol), \nCONTEXT the contextual constraint, and\nMOVE is `nil', `move' or `check'.\n\nTest if the text following point in current buffer matches the SGML\ndelimiter DELIM. Also check the characters after the delimiter for\nCONTEXT. Applicable values for CONTEXT is \n`gi' -- name start or TAGC if SHORTTAG YES,\n`com' -- if COM or MDC,\n`nmstart' -- name start character, \n`stagc' -- TAGC if SHORTTAG YES,\n`digit' -- any Digit,\nstring -- delimiter with that name,\nlist -- any of the contextual constraints in the list." (or offset (setq offset 0)) (setq delim (upcase (format "%s" delim))) (let ((ds (sgml-get-delim-string delim))) (assert ds) (cond ((eq context (quote gi)) (setq context (quote (nmstart stagc)))) ((eq context (quote com)) (setq context (quote ("COM" "MDC")))) ((null context) (setq context (quote (t)))) ((not (listp context)) (setq context (list context)))) (\` (if (and (\,＠ (loop for i from 0 below (length ds) collect (\` (eq (\, (aref ds i)) (sgml-following-char (\, (+ i offset))))))) (or (\,＠ (loop for c in context collect (cond ((eq c (quote nmstart)) (\` (sgml-startnm-char (or (sgml-following-char (\, (length ds))) 0)))) ((eq c (quote stagc)) (\` (and sgml-current-shorttag (sgml-is-delim "TAGC" nil nil (\, (length ds)))))) ((eq c (quote digit)) (\` (memq (sgml-following-char (\, (length ds))) (quote (?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))) ((stringp c) (\` (sgml-is-delim (\, c) nil nil (\, (length ds))))) ((eq c t)) (t (error "Context type: %s" c))))))) (progn (\,＠ (if move (\` ((forward-char (\, (length ds))))))) (\,＠ (if (not (eq move (quote check))) (quote (t))))) (\,＠ (if (eq move (quote check)) (\` ((sgml-delimiter-parse-error (\, delim))))))))))("RNI" nil move)
(sgml-is-delim "RNI" nil move)
(sgml-parse-delim "RNI")
(if (sgml-parse-delim "RNI") (sgml-check-token "DEFAULT"))
(sgml-parse-rni "DEFAULT")
(or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t)))
(cond ((sgml-parse-delim "PERO") (sgml-skip-ps) (setq name (sgml-check-name t)) (setq dest (sgml-dtd-parameters sgml-dtd-info))) (t (or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t))) (setq dest (sgml-dtd-entities sgml-dtd-info))))
# bind (extid text notation type dest name)
(let (name dest (type (quote text)) (notation nil) text extid) (cond ((sgml-parse-delim "PERO") (sgml-skip-ps) (setq name (sgml-check-name t)) (setq dest (sgml-dtd-parameters sgml-dtd-info))) (t (or (sgml-parse-rni "DEFAULT") (setq name (sgml-check-name t))) (setq dest (sgml-dtd-entities sgml-dtd-info)))) (sgml-skip-ps) (setq extid (sgml-parse-external)) (setq text (cond (extid (sgml-skip-ps) (let ((tn (sgml-parse-entity-type))) (setq type (or (car tn) (quote text))) (unless (eq (cdr tn) "") (setq notation (cdr tn)))) extid) ((sgml-startnm-char-next) (let ((token (intern (sgml-check-case (sgml-check-name))))) (sgml-skip-ps) (when (and sgml-xml-p (memq token (quote (cdata sdata pi starttag endtag ms md)))) (sgml-error "XML forbids %s entities." (upcase (symbol-name token)))) (cond ((memq token (quote (CDATA SDATA))) (setq type token) (sgml-check-parameter-literal)) ((eq token (quote PI)) (concat "<?" (sgml-check-parameter-literal) ">")) ((eq token (quote STARTTAG)) (sgml-start-tag-of (sgml-check-parameter-literal))) ((eq token (quote ENDTAG)) (sgml-end-tag-of (sgml-check-parameter-literal))) ((eq token (quote MS)) (concat "<![" (sgml-check-parameter-literal) "]]>")) ((eq token (quote MD)) (concat "<!" (sgml-check-parameter-literal) ">"))))) ((sgml-check-parameter-literal)))) (when dest (sgml-entity-declare name dest type text notation)))
sgml-declare-entity()
funcall(sgml-declare-entity)
(cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok)))
# bind (rut tok)
(let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))
(cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment))))
(cond ((and sgml-xml-p (sgml-parse-xml-comment))) ((sgml-parse-delim "MDO" (nmstart "COM" "MDC")) (cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment)))) (sgml-skip-ps) (sgml-check-delim "MDC") (unless (eq option (quote ignore)) (when sgml-markup-type (sgml-set-markup-type sgml-markup-type))) t) ((sgml-parse-delim "MS-START") (sgml-do-marked-section)))
# bind (option)
sgml-parse-markup-declaration(dtd)
(cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END")))
(progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END"))))
(while (progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END")))))
# bind (eref sgml-parsing-dtd)
(let ((sgml-parsing-dtd t) (eref sgml-current-eref)) (while (progn (setq sgml-markup-start (point)) (cond ((and (eobp) (eq sgml-current-eref eref)) nil) ((sgml-parse-ds)) ((sgml-parse-markup-declaration (quote dtd))) ((sgml-parse-delim "MS-END"))))))
sgml-check-dtd-subset()
(cond (external (let ((decl (and (car external) (sgml-catalog-lookup sgml-catalog-files nil (quote dtddecl) (sgml-canonize-pubid (car external)))))) (if decl (setq sgml-declaration decl))) (sgml-push-to-entity (sgml-make-entity docname (quote dtd) external)) (sgml-check-dtd-subset) (sgml-check-end-of-entity "DTD subset") (sgml-pop-entity)))
# bind (sgml-parsing-dtd)
(let ((sgml-parsing-dtd t)) (setq sgml-no-elements 0) (setq sgml-dtd-info (sgml-make-dtd docname)) (sgml-skip-ps) (cond ((sgml-parse-delim "DSO") (let ((original-buffer (current-buffer))) (sgml-check-dtd-subset) (if (eq (current-buffer) original-buffer) (sgml-check-delim "DSC") (sgml-parse-error "Illegal character '%c' in doctype declaration" (following-char)))))) (cond (external (let ((decl (and (car external) (sgml-catalog-lookup sgml-catalog-files nil (quote dtddecl) (sgml-canonize-pubid (car external)))))) (if decl (setq sgml-declaration decl))) (sgml-push-to-entity (sgml-make-entity docname (quote dtd) external)) (sgml-check-dtd-subset) (sgml-check-end-of-entity "DTD subset") (sgml-pop-entity))) (sgml-set-initial-state sgml-dtd-info) (run-hooks (quote sgml-doctype-parsed-hook)))
# bind (external docname)
sgml-setup-doctype("HTML" ("-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd" . "/usr/local/apache/htdocs/german/bjokes/ar/"))
# bind (sgml-markup-start)
(let (sgml-markup-start) (message "Parsing doctype...") (sgml-setup-doctype (sgml-check-name) (sgml-parse-external)) (message "Parsing doctype...done"))
(cond (sgml-dtd-info (sgml-skip-upto-mdc)) (t (let (sgml-markup-start) (message "Parsing doctype...") (sgml-setup-doctype (sgml-check-name) (sgml-parse-external)) (message "Parsing doctype...done"))))
sgml-do-doctype()
funcall(sgml-do-doctype)
(cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok)))
# bind (rut tok)
(let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))
(cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment))))
(cond ((and sgml-xml-p (sgml-parse-xml-comment))) ((sgml-parse-delim "MDO" (nmstart "COM" "MDC")) (cond ((sgml-startnm-char-next) (setq sgml-markup-type nil) (let* ((tok (sgml-parse-nametoken)) (rut (assoc (sgml-check-case tok) sgml-markup-declaration-table))) (when (and (not (memq option (quote (prolog ignore)))) (member tok (quote ("SGML" "DOCTYPE")))) (sgml-error "%s declaration is only valid in prolog" tok)) (when (and (not (memq option (quote (dtd ignore)))) (member tok (quote ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF")))) (sgml-error "%s declaration is only valid in doctype" tok)) (cond ((eq option (quote ignore)) (sgml-skip-upto-mdc)) (rut (sgml-skip-ps) (funcall (cdr rut))) (t (sgml-parse-error "Illegal markup declaration %s" tok))))) (t (setq sgml-markup-type (quote comment)))) (sgml-skip-ps) (sgml-check-delim "MDC") (unless (eq option (quote ignore)) (when sgml-markup-type (sgml-set-markup-type sgml-markup-type))) t) ((sgml-parse-delim "MS-START") (sgml-do-marked-section)))
# bind (option)
sgml-parse-markup-declaration(prolog)
(and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))
(or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info)))
(progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))
(while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info)))))
(progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil)))))))
# (unwind-protect ...)
(unwind-protect (progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil))))))) (setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table) (set-buffer-modified-p buffer-modified) (sgml-debug "Restoring buffer mod: %s" buffer-modified))
# bind (buffer-modified cb normal-syntax-table)
(let ((normal-syntax-table (syntax-table)) (cb (current-buffer)) (buffer-modified (buffer-modified-p))) (set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax)) (unwind-protect (progn (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil))))))) (setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table) (set-buffer-modified-p buffer-modified) (sgml-debug "Restoring buffer mod: %s" buffer-modified)))
(sgml-with-parser-syntax-ro (while (progn (setq sgml-markup-start (point)) (or (sgml-parse-s) (sgml-parse-processing-instruction) (and (sgml-parse-markup-declaration (quote prolog)) (null sgml-dtd-info))))) (unless sgml-dtd-info (let ((docname (or sgml-default-doctype-name (if (sgml-parse-delim "STAGO" gi) (sgml-parse-name))))) (when docname (sgml-setup-doctype docname (quote (nil)))))))
sgml-parse-prolog()
# (unwind-protect ...)
(save-excursion (sgml-parse-prolog))
(cond ((or sgml-parent-document sgml-doctype) (let ((dtd (save-excursion (set-buffer (find-file-noselect (if (consp sgml-parent-document) (car sgml-parent-document) (or sgml-doctype sgml-parent-document)))) (sgml-need-dtd) (sgml-pstate-dtd sgml-buffer-parse-state)))) (sgml-set-initial-state dtd) (when (consp sgml-parent-document) (sgml-modify-dtd (cdr sgml-parent-document))))) (t (save-excursion (sgml-parse-prolog))))
sgml-load-doctype()
(if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype))
(progn (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype)))
(if (null sgml-buffer-parse-state) (progn (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype))))
(when (null sgml-buffer-parse-state) (add-hook (quote pre-command-hook) (quote sgml-reset-log)) (make-local-variable (quote sgml-auto-fill-inhibit-function)) (setq sgml-auto-fill-inhibit-function (function sgml-in-prolog-p)) (if sgml-default-dtd-file (sgml-load-dtd sgml-default-dtd-file) (sgml-load-doctype)))
sgml-need-dtd()
# bind (quiet extra-cond sgml-goal)
sgml-parse-to(758)
# (unwind-protect ...)
(save-excursion (sgml-parse-to (1+ pos)) (let ((u sgml-top-tree)) (while (cond ((and (sgml-tree-next u) (>= pos (sgml-element-start (sgml-tree-next u)))) (setq u (sgml-tree-next u))) ((and (sgml-tree-etag-epos u) (>= pos (sgml-tree-end u))) (setq u (sgml-tree-parent u)) nil) ((and (sgml-tree-content u) (>= pos (sgml-element-start (sgml-tree-content u)))) (setq u (sgml-tree-content u))))) u))
# bind (pos)
sgml-find-element-of(757)
(if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))
# (catch parse-error ...)
(catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))
# bind (sgml-throw-on-error)
(let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))
(setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))
(if (or col element) nil (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))))
(unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point)))))))
# bind (here)
(let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col)
(if sgml-indent-step (let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col))
(when sgml-indent-step (let ((here (point-marker))) (back-to-indentation) (unless (or col element) (setq element (let ((sgml-throw-on-error (quote parse-error))) (catch sgml-throw-on-error (if (eobp) (sgml-find-context-of (point)) (sgml-find-element-of (point))))))) (when (eq element sgml-top-tree) (setq element nil) (goto-char here)) (when element (sgml-with-parser-syntax (let ((stag (sgml-is-start-tag)) (etag (sgml-is-end-tag))) (cond ((and (> (point) (sgml-element-start element)) (< (point) (sgml-element-stag-end element))) (setq col (+ (save-excursion (goto-char (sgml-element-start element)) (current-column)) (length (sgml-element-gi element)) 2))) ((and (not (member* (sgml-element-gi (if (or stag etag) (sgml-element-parent element) element)) sgml-inhibit-indent-tags :test (function equalp))) (or sgml-indent-data (not (sgml-element-data-p (if stag (sgml-element-parent element) element)))) (setq col (* sgml-indent-step (+ (if (or stag etag) -1 0) (sgml-element-level element)))))))))) (when (and col (/= col (current-column))) (beginning-of-line 1) (delete-horizontal-space) (indent-to col)) (when (< (point) here) (goto-char here)) col))
# bind (element col)
sgml-indent-line()
funcall(sgml-indent-line)
(if (null sgml-indent-step) (insert-tab) (funcall indent-line-function))
(lambda nil "Indent line in proper way for current major mode." (interactive) (if (null sgml-indent-step) (insert-tab) (funcall indent-line-function)))()
call-interactively(sgml-indent-or-tab)
# (condition-case ... . error)
# (catch top-level ...)
Parsing doctype...
Parsing prolog...
Fontifying 76.html... done.
Fontifying 76.html... (regexps).................
Fontifying 76.html... (regexps)................
Fontifying 76.html... (regexps)................
Fontifying 76.html... (regexps)................
Fontifying 76.html... (regexps)...............
Fontifying 76.html... (regexps)..............
Fontifying 76.html... (regexps).............
Fontifying 76.html... (regexps).............
Fontifying 76.html... (regexps)............
Fontifying 76.html... (regexps).......
Fontifying 76.html... (regexps).......
Fontifying 76.html... (regexps).......
Fontifying 76.html... (regexps)......
- 3 participants
- 3 comments
URGENT ASSISTANCE
22 years, 3 months
SANNI MUSA.
SANNI MUSA.
DEAR FRIEND,
IT IS WITH A HEART FULL OF HOPE THAT I WRITE,
SOLICITING FOR YOUR STRICT CONFIDENCE IN THIS
TRANSACTION. THIS IS BY VIRTUE OF ITS NATURE AS BEING CONFIDENTIAL AND TOP SECRET. FOR I GOT YOUR CONTACT THROUGH OUR LARGE OFFICE OF NIGERIAN CHAMBERS OF COMMERCE AND INDUSTRIES, WHO ASSURED ME OF YOUR ABILITY AND RELIABILITIY TO EXECUTE A TRANSACTION OF GREAT MAGNITUDE.
I AM AN ACCOUNTANT WITH BEAGON NIG. LTD. A FOREIGN OIL COMPANY BASED IN LAGOS, NIGERIA. BEAGON WAS INVOLVED INPROSPECTING, DRILLING AND BUNKERING OF OIL AT HIGH SEA (OFFSHORE), WITH EXPATRIATE CONSISTING MAJORITY OF THE STAFF STRENGTH.UNFORTUNATELY, THESE EXPATRIATES GOT INTO AN ILLEGALSALE OF OIL ANDTHE MONEY FROM IT TRANSFERRED THROUGH A SECURITYCOMPANY OUT OF THE COUNTRY BUT WITH A SECURITY STAMP ON IT.
THE FEDERAL GOVERNMENT OF NIGERIA DISCOVEREDTHE ILLEGAL DEAL, REVOKED THEIR LICENCE AND THE EXPARTRIATES WERE REPATRIATED.SO, BY VIRTUE OF MY POSITION AS THE ACCOUNTANT OF THE COMPANY, I HAVE IN MY POSSESSION DOCUMENTS CONTAINING INFORMATION ABOUT SIX OF THESE TRUNK BOXES DEPOSITED WITH THE SECURITY COMPANY.THE CONTENT OF THESE BOXES IS THIRTY FIV> MILLION UNITED STATES DOLLARS (US$35. M).
I HAVE PUT IN AN APPLICATION WITH THE SECURITY COMPANY TO TRANSFER THESE BOXES TO THEIR CORRESPONDENCE OFFICE IN AMERICA OR EUROPE WHICH THEY HAVE OBLIGED. AND BEING THAT THIS DEAL WAS BEEN CARRIED OUT BY FOREIG FIRM, I NEED A TRUSTWORTHY FOREIGNER LIKE YOU THAT WILL ASSIST ME TO A LOGICAL CONCLUSION OF THIS PENDING BUSINESS WHICH BOTH OF US WILL BOUND TO BENEFIT EARNESTLY.
ALL I NEED FROM YOU IS TO STAND BEFORE THE SECURITY COMPANY AND SIGN AS ONE OF EXPATRIATES TO ENABLE YOU CLAIM THE MONEY AND PAY IT INTO YOUR BANK ACCOUNT. PLEASE, NOTE THAT THIS TRANSACTION IS 100%RISK-FREE, FOR EVERY MACHINERIES HAS BEEN PUT IN PLACE FOR SUCCESSFUL CONCLUSION.REMEMBER, THAT I HAVE WITH ME ALL THE NECESSARY DOCUMENTS THAT WILL PROVE THAT THE MONEY IS FOR US.
I EXPECT YOU TO BE TRUSTWORTHY AND KIND ENOUGH TO KEEP MY OWN SHARE, WHEN THE MONEY HIT YOUR ACCOUNT.
I HEREBY AGREE TO COMPENSATE YOUR SINCERE AND CANDID EFFORT IN THIS REGARD WITH 25% OF THE FUND AFTER THE TRANSFER AND5%(PERCENT) WILL BE SET ASIDE FOR ANY EXPENSES BOTH LOCAL AND INTERNATIONAL TRANSPORTATION, TELEPHONE BILLS ETC. WILL BE SETTLED FROM THIS PERCENTAGE, WHILE70% WILL BEFOR ME AND TWO OF MY COLLEAGUES. THIS DEALWILL BE CONCLUDED WITHIN SEVEN (7) WORKING DAYS.I WILL BE LOOKING FORWARD TO DOING BUSINESS WITH YOU, AND SOLICIT YOUR CONFIDENTIALITY IN THIS TRANSACTION.
PLEASE ACKNOWLEDGE THE RECEIPT OF THIS PROPOSAL VIA MY E-MAIL ADDRESS TO ENABLE ME KNOW IF YOU ARE INTERESTING OR NOT.
YOURS, FAITHFULLY,
SANNI MUSA.
- 1 participants
- 0 comments
func-menu modeline display
22 years, 3 months
Roland Frank
Roland Frank
This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
Please describe as succinctly as possible:
- What happened.
- What you thought should have happened.
- Precisely what you were doing at the time.
Please also include any C or lisp back-traces that you may have.
================================================================
Dear Bug Team!
the modeline display of func-menu is incorrect: it always shows the
function name where the current curser is. If you split a buffer
and move the cursor in one buffer to another function, then the
modeline of both views changes.
However, other modes can manage this, e.g. the line number is correct
in the two views.
Kind regards,
Frank.
================================================================
System Info to help track down your bug:
---------------------------------------
OS version:
Microsoft Windows 2000 [Version 5.00.2195]
OS: Windows_NT
XEmacs 21.4.8 \"Honest Recruiter (Windows [3])\" configured for
`i586-pc-win32'.
Building XEmacs in \"f:\\xemacs\\xemacs-21.4-release\\nt\".
Using compiler \"cl -nologo -W3 -O2 -G5 -ML\".
Installing XEmacs in \"c:\\Program Files\\XEmacs\\XEmacs-21.4.8\".
Package path is \"~\\.xemacs;;c:\\Program
Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\xemacs-packages\".
Compiling in support for Microsoft Windows native GUI.
Compiling in support for XPM images.
Compiling in support for GIF images.
Compiling in support for PNG images.
Compiling in support for TIFF images.
Compiling in support for JPEG images.
Compiling in support for X-Face message headers.
Compiling in support for toolbars.
Compiling in support for dialogs.
Compiling in support for widgets.
Compiling in support for native sounds.
Compiling in fast dired implementation.
Using minimal tagbits.
Using indexed lrecord implementation.
Using portable dumper.
Load-Path Lisp Shadows:
----------------------
(d:\Eigene Dateien\.xemacs\pc-select
c:\Programme\XEmacs\xemacs-packages\lisp\pc\pc-select
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\working
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\working
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\sformat
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\sformat
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\senator
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\senator
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semanticdb
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semanticdb
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-util
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-util
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-texi
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-texi
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-scm
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-scm
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-sb
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-sb
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-make
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-make
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-load
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-load
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-java
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-java
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-imenu
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-imenu
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-el
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-el
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-ctxt
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-ctxt
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-c
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-c
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\semantic-bnf
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\semantic-bnf
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\document
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\document
c:\Programme\XEmacs\XEmacs\site-lisp\semantic-1.4beta14\document-vars
c:\Programme\XEmacs\xemacs-packages\lisp\semantic\document-vars
d:\Eigene Dateien\.xemacs\tq
c:\Programme\XEmacs\xemacs-packages\lisp\xemacs-base\tq d:\Eigene
Dateien\.xemacs\custom c:\Programme\XEmacs\XEmacs\lisp\custom)
Installed XEmacs Packages:
-------------------------
((zenirc:version 1.13 :type regular)
(xslt-process :version 1.07 :type regular)
(xslide :version 1.01 :type regular)
(xemacs-devel :version 1.44 :type single-file)
(xemacs-base :version 1.63 :type regular)
(w3 :version 1.23 :type regular)
(vm :version 7.07 :type regular)
(viper :version 1.34 :type regular)
(view-process :version 1.11 :type regular)
(vhdl :version 1.15 :type regular)
(vc-cc :version 1.21 :type regular)
(vc :version 1.33 :type regular)
(tramp :version 1.05 :type regular)
(tpu :version 1.12 :type regular)
(tooltalk :version 1.13 :type regular)
(tm :version 1.32 :type regular)
(time :version 1.11 :type regular)
(textools :version 1.12 :type regular)
(text-modes :version 1.46 :type single-file)
(texinfo :version 1.2 :type regular)
(supercite :version 1.19 :type regular)
(strokes :version 1.08 :type regular)
(speedbar :version 1.23 :type regular)
(sounds-wav :version 1.1 :type regular)
(sounds-au :version 1.1 :type regular)
(slider :version 1.13 :type regular)
(sieve :version 1.07 :type regular)
(sh-script :version 1.15 :type regular)
(sgml :version 1.08 :type regular)
(semantic :version 1.12 :type regular)
(scheme :version 1.11 :type regular)
(rmail :version 1.13 :type regular)
(reftex :version 1.25 :type regular)
(psgml :version 1.28 :type regular)
(ps-print :version 1.04 :type regular)
(prog-modes
:version
1
.57
:type
single-file)
(pcomplete :version 1.01 :type regular)
(pcl-cvs :version 1.63 :type regular)
(pc :version 1.25 :type single-file)
(os-utils :version 1.28 :type single-file)
(net-utils :version 1.25 :type single-file)
(mmm-mode :version 1.0 :type regular)
(misc-games :version 1.15 :type single-file)
(mine :version 1.14 :type regular)
(mh-e :version 1.14 :type regular)
(mew :version 1.17 :type regular)
(mailcrypt :version 2.11 :type regular)
(mail-lib :version 1.46 :type regular)
(liece :version 1.05 :type regular)
(jde :version 1.35 :type regular)
(ispell :version 1.24 :type regular)
(ilisp :version 1.26 :type regular)
(igrep :version 1.08 :type regular)
(idlwave :version 1.25 :type regular)
(ibuffer :version 1.07 :type regular)
(hm--html-menus :version 1.18 :type regular)
(haskell-mode :version 1.03 :type regular)
(gnus :version 1.61 :type regular)
(gnats :version 1.14 :type regular)
(games :version 1.13 :type regular)
(fsf-compat :version 1.11 :type single-file)
(frame-icon :version 1.09 :type regular)
(forms :version 1.14 :type regular)
(footnote :version 1.15 :type regular)
(eudc :version 1.36 :type regular)
(eterm :version 1.13 :type regular)
(ess :version 1.02 :type regular)
(eshell :version 1.03 :type regular)
(emerge :version 1.09 :type regular)
(elib :version 1.1 :type single-file)
(eieio :version 1.02 :type regular)
(efs :version 1.29 :type regular)
(edt :version 1.12 :type regular)
(edit-utils :version 1.88 :type single-file)
(ediff :version 1.41 :type regular)
(edebug :version 1.14 :type regular)
(dired :version 1.12 :type regular)
(dictionary :version 1.11 :type regular)
(debug :version 1.15 :type regular)
(crisp :version 1.12 :type regular)
(cookie :version 1.14 :type regular)
(clearcase :version 1.03 :type regular)
(cc-mode :version 1.28 :type regular)
(calendar :version 1.18 :type regular)
(calc :version 1.23 :type regular)
(c-support :version 1.16 :type single-file)
(build :version 1.05 :type regular)
(bbdb :version 1.2 :type regular)
(auctex :version 1.31 :type regular)
(apel :version 1.23 :type regular)
(ada :version 1.1 :type regular)
(Sun :version 1.13 :type regular))
Features:
--------
(mail-abbrevs filladapt xemacsbug shadow sendmail rfc822 mail-extr url
mm mule-sysdp url-parse url-vars semantic-el setnu semantic-c senator
document document-vars sformat semantic-imenu semantic-ctxt semanticdb
eieio-base compare-strings cc-mode cc-align cc-cmds cc-engine
cc-styles cc-langs cc-vars wid-edit cc-menus imenu cc-defs efs-cu font
disp-table paren blink-paren desktop rsz-minibuf ell avltree stack-m
elib-node ecb ecb-face ecb-cycle ecb-compilation ecb-eshell
ecb-navigate ecb-help ecb-mode-line ecb-layout compile ecb-util
tree-buffer overlay semantic-load eieio semantic-util-modes eldoc
timer semantic-util semantic pp assoc working tempo func-menu crypt
crypt++ completer hideshow ffap view-less view efs-ovwrt default-dir
tex-site tex-mik ediff-hook ediff-merg ediff-diff ediff-tbar
ediff-wind ediff-help ediff-util ediff-mult ediff-init ediff
pending-del pc-select sh-script skeleton executable advice
advice-preload sniff-mode ctypes font-lock time-stamp jka-compr
hippie-exp dabbrev calendar clearcase reporter cus-face dired-faces
dired-xemacs dired comint ring recent-files edmacro zenirc-autoloads
xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads
view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads
tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads
time-autoloads textools-autoloads text-modes-autoloads
texinfo-autoloads supercite-autoloads strokes-autoloads
speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads
slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads
semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads
psgml-autoloads ps-print-autoloads prog-modes-autoloads
pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads
net-utils-autoloads mmm-mode-autoloads misc-games-autoloads
mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads
mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads
ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads
hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads
gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads
eterm-autoloads ess-autoloads eshell-autoloads emerge-autoloads
elib-autoloads eieio-autoloads efs-autoloads edt-autoloads
edit-utils-autoloads ediff-autoloads edebug-autoloads dired-autoloads
dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads
clearcase-autoloads cc-mode-autoloads calendar-autoloads
calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads
auctex-autoloads apel-autoloads ada-autoloads Sun-autoloads
lisp-autoloads loadhist auto-show fontl-hooks code-cmds gutter-items
menubar-items x-menubar dragdrop mode-motion mouse itimer auto-save
lisp-mode easymenu iso8859-1 page buff-menu lib-complete help-nomule
cus-file derived frame text-props obsolete cus-start custom widget
cl-extra mini-cl cl cl-19 packages backquote very-early-lisp
file-coding mswindows-scrollbars mswindows toolbar native-sound
scrollbar network-streams subprocesses menu-accelerator-support
menubar md5 xemacs gutter tiff png gif jpeg xface xpm xbm
lisp-float-type windows-nt dragdrop-api dialog devices window-system
base64)
Recent keystrokes:
-----------------
button1up M-x f i n d - l i TAB RET f u n c TAB TAB
RET C-x 1 misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
misc-user misc-user misc-user misc-user misc-user misc-user
next next next prior prior prior prior prior prior
prior prior prior prior prior prior prior prior misc-user
button1 button1up misc-user misc-user misc-user misc-user
misc-user button1 button1up C-s b u g - r e C-s C-s
button1 button1up misc-user
Recent messages (most recent first):
-----------------------------------
Loading xemacsbug...done
Loading xemacsbug...
Scanning...done
Scanning...88% <mailto:d.hughes＠videonetworks.com>
Scanning...88% <mailto:espensk＠stud.cs.uit.no>
Scanning...85% <mailto:wgd＠martigny.ai.mit.edu>
Scanning...72% </blackhawk.com:>
Pinging blackhawk.com (Commercial)...
Scanning...72% <mailto:thomas.plass＠mid-heidelberg.de>
Scanning...59% <mailto:didier＠xemacs.org>
Scanning...58% <mailto:weiner＠altrasoft.com>
Scanning...58% <mailto:dominik＠astro.uva.nl>
Scanning...58% <mailto:lubos＠rsinc.com>
Scanning...57% <mailto:mdsale＠icdc.delcoelect.com>
Scanning...57% <mailto:espensk＠stud.cs.uit.no>
Scanning...57% </blackhawk.com:>
Pinging blackhawk.com (Commercial)...
Scanning...56% <mailto:mikep＠cfsmo.honeywell.com>
Scanning...56% <mailto:mikep＠polo.mn.org>
Scanning...55% <mailto:thomas.plass＠mid-heidelberg.de>
- 3 participants
- 2 comments
compilation loses when configured --with-kcc in eval.c
22 years, 3 months
John Paul Wallington
John Paul Wallington
When I try to build XEmacs I get this:
gcc -c -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -Wshadow -Demacs -I. -DHAVE_CONFIG_H -I/usr/X11/include eval.c
eval.c:446: macro `DEFINE_BASIC_LRECORD_IMPLEMENTATION' used with only 9 args
It appears that each usage of `DEFINE_BASIC_LRECORD_IMPLEMENTATION'
macro is conditionalised #ifdef USE_KKCC to have a dumpable flag, but
I dunno what value it should have.
--
John Paul Wallington
- 2 participants
- 1 comments
Crash report
22 years, 4 months
Oleg Podroubnyi
Oleg Podroubnyi
xemacs mm_if_brt_pct0_wctl.v &
[1] 4751
toni[24]>
xemacs: X Error of failed request: BadDrawable (invalid Pixmap or Window parame
ter)
Major opcode of failed request: 76 (X_ImageText8)
Resource id in failed request: 0xa800095
Serial number of failed request: 24308
Current serial number in output stream: 24314
xemacs: X Error of failed request: BadDrawable (invalid Pixmap or Window parame
ter)
Major opcode of failed request: 76 (X_ImageText8)
Resource id in failed request: 0xa800095
Serial number of failed request: 24309
Current serial number in output stream: 24314
xemacs: X Error of failed request: BadDrawable (invalid Pixmap or Window parame
ter)
Major opcode of failed request: 76 (X_ImageText8)
Resource id in failed request: 0xa800095
Serial number of failed request: 24310
Current serial number in output stream: 24314
xemacs: X Error of failed request: BadDrawable (invalid Pixmap or Window parame
ter)
Major opcode of failed request: 70 (X_PolyFillRectangle)
Resource id in failed request: 0xa800095
Serial number of failed request: 24311
Current serial number in output stream: 24314
xemacs: X Error of failed request: BadWindow (invalid Window parameter)
Major opcode of failed request: 12 (X_ConfigureWindow)
Resource id in failed request: 0xa80009c
Serial number of failed request: 24312
Current serial number in output stream: 24314
xemacs: X Error of failed request: BadWindow (invalid Window parameter)
Major opcode of failed request: 2 (X_ChangeWindowAttributes)
Resource id in failed request: 0xa80009c
Serial number of failed request: 24313
Current serial number in output stream: 24314
Fatal error (11).
**************************************************************************
I can't find any core file in work directory, neither in home,
so no C stack backtrace is attached.
Regards,
Oleg Podroubnyi
- 2 participants
- 1 comments
Crash after `mh-show'-ing a message with a large attachment
22 years, 4 months
Vladimir G. Ivanovic
Vladimir G. Ivanovic
This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
Please describe as succinctly as possible:
- What happened.
- What you thought should have happened.
- Precisely what you were doing at the time.
Please also include any C or lisp back-traces that you may have.
================================================================
Dear Bug Team!
From: "Vladimir G. Ivanovic" <vladimir(a)acm.org>
To: #xemacs-beta
Cc:
Fcc: outbox
Subject:
--------
This crash is reproducible. Here' what I did:
$ xemacs -vanilla --load mh-e
M-x mh-visit-folder RET outbox RET RET
M-x mh-show
M-x mh-previous-undeleted-msg
This crash only happens when the message I am `mh-show'-ing is a message
with a large attachment (the tainted message), and I then
`mh-previous-undeleted-msg' to another message. It seems that once I
`mh-show' the tainted message, I'm primed for a crash which appears
whenever I navigate to another message.
The tainted message was created with `mime-editor/insert-file' and is ~3
MB in length. Any message with a large attachment will cause a crash.
I've appended a gdb stack trace and deleted the sections below that
don't apply (since this instance of xemacs is not the one having the
problem.)
--- Vladimir
--------
Vladimir G. Ivanovic http://leonora.org/~vladimir
2770 Cowper St. vladimir(a)acm.org
Palo Alto, CA 94306-2447 +1 650 678 8014
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: Linux bach.leonora.org 2.4.18-4smp #1 SMP Thu May 2 18:32:34 EDT 2002 i686 unknown
./configure '--debug'
XEmacs 21.5-b6 "bok choi" configured for `i686-pc-linux'.
Compilation / Installation:
Source code location: /usr/local/src/xemacs-21.5.6
Installation prefix: /usr/local
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -Wshadow
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Linking with `-z nocombreloc'.
- Consider configuring with --pdump.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Using Lucid menubars.
Using Lucid scrollbars.
Using Motif dialog boxes.
Using Motif native widgets.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Sound:
Compiling in support for sound (native).
Compiling in support for ESD (Enlightened Sound Daemon).
Databases:
Compiling in support for Berkeley database.
Compiling in support for LDAP.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for extra debugging code.
WARNING: ---------------------------------------------------------
WARNING: Compiling in support for runtime error checking.
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Load-Path Lisp Shadows:
----------------------
(/home/vladimir/emacs/setnu
/usr/local/lib/xemacs/xemacs-packages/lisp/edit-utils/setnu
/home/vladimir/emacs/scroll-in-place
/usr/local/lib/xemacs/xemacs-packages/lisp/edit-utils/scroll-in-place
/home/vladimir/emacs/foldout
/usr/local/lib/xemacs/xemacs-packages/lisp/edit-utils/foldout
/home/vladimir/emacs/ilisp
/usr/local/lib/xemacs/xemacs-packages/lisp/ilisp/ilisp
/home/vladimir/emacs/mh-comp
/usr/local/lib/xemacs/xemacs-packages/lisp/mh-e/mh-comp
/home/vladimir/emacs/mode-compile
/usr/local/lib/xemacs/xemacs-packages/lisp/prog-modes/mode-compile
/home/vladimir/emacs/crontab
/usr/local/lib/xemacs/xemacs-packages/lisp/text-modes/crontab
/home/vladimir/emacs/elp
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-devel/elp)
Installed XEmacs Packages:
-------------------------
((zenirc:version 1.13 :type regular)
(xslt-process :version 1.07 :type regular)
(xslide :version 1.02 :type regular)
(xemacs-devel :version 1.44 :type single-file)
(xemacs-base :version 1.63 :type regular)
(w3 :version 1.23 :type regular)
(vm :version 7.04 :type regular)
(viper :version 1.34 :type regular)
(view-process :version 1.11 :type regular)
(vhdl :version 1.15 :type regular)
(vc-cc :version 1.18 :type regular)
(vc :version 1.3 :type regular)
(tramp :version 1.05 :type regular)
(tpu :version 1.12 :type regular)
(tooltalk :version 1.13 :type regular)
(tm :version 1.32 :type regular)
(time :version 1.11 :type regular)
(textools :version 1.12 :type regular)
(text-modes :version 1.43 :type single-file)
(texinfo :version 1.2 :type regular)
(supercite :version 1.19 :type regular)
(strokes :version 1.08 :type regular)
(speedbar :version 1.23 :type regular)
(sounds-wav :version 1.1 :type regular)
(sounds-au :version 1.1 :type regular)
(slider :version 1.13 :type regular)
(sieve :version 1.02 :type regular)
(sh-script :version 1.15 :type regular)
(sgml :version 1.08 :type regular)
(semantic :version 1.12 :type regular)
(scheme :version 1.11 :type regular)
(rmail :version 1.13 :type regular)
(reftex :version 1.25 :type regular)
(psgml :version 1.28 :type regular)
(ps-print :version 1.04 :type regular)
(prog-modes
:version
1
.56
:type
single-file)
(pcomplete :version 1.01 :type regular)
(pcl-cvs :version 1.61 :type regular)
(pc :version 1.22 :type single-file)
(os-utils :version 1.28 :type single-file)
(net-utils :version 1.24 :type single-file)
(mmm-mode :version 1.0 :type regular)
(misc-games :version 1.15 :type single-file)
(mine :version 1.14 :type regular)
(mh-e :version 1.14 :type regular)
(mew :version 1.17 :type regular)
(mailcrypt :version 2.11 :type regular)
(mail-lib :version 1.46 :type regular)
(liece :version 1.04 :type regular)
(jde :version 1.35 :type regular)
(ispell :version 1.24 :type regular)
(ilisp :version 1.22 :type regular)
(igrep :version 1.08 :type regular)
(idlwave :version 1.25 :type regular)
(ibuffer :version 1.07 :type regular)
(hm--html-menus :version 1.18 :type regular)
(haskell-mode :version 1.04 :type regular)
(gnus :version 1.6 :type regular)
(gnats :version 1.14 :type regular)
(games :version 1.13 :type regular)
(fsf-compat :version 1.11 :type single-file)
(frame-icon :version 1.09 :type regular)
(forms :version 1.14 :type regular)
(footnote :version 1.15 :type regular)
(eudc :version 1.36 :type regular)
(eterm :version 1.13 :type regular)
(eshell :version 1.03 :type regular)
(emerge :version 1.09 :type regular)
(elib :version 1.1 :type single-file)
(eieio :version 1.02 :type regular)
(efs :version 1.29 :type regular)
(edt :version 1.12 :type regular)
(edit-utils :version 1.85 :type single-file)
(ediff :version 1.41 :type regular)
(edebug :version 1.14 :type regular)
(dired :version 1.12 :type regular)
(dictionary :version 1.11 :type regular)
(debug :version 1.15 :type regular)
(crisp :version 1.12 :type regular)
(cookie :version 1.14 :type regular)
(clearcase :version 1.03 :type regular)
(cc-mode :version 1.28 :type regular)
(calendar :version 1.18 :type regular)
(calc :version 1.23 :type regular)
(c-support :version 1.16 :type single-file)
(build :version 1.05 :type regular)
(bbdb :version 1.2 :type regular)
(auctex :version 1.31 :type regular)
(apel :version 1.23 :type regular)
(ada :version 1.1 :type regular))
Features:
--------
(xemacsbug shadow byte-optimize bytecomp byte-compile tabify mel-b
view-less view hyper-apropos ebuff-menu electric efs-cu font disp-table
paren blink-paren blink-cursor vc vc-hooks tags etags supercite
mail-extr regi skeleton shell-font pending-del edmacro tmh-comp
mime-setup message-mime tm-edit signature tm-ew-e tm-setup tm-mh-e
tm-partial tm-image images mule-sysdp tm-pgp tm-play tm-view tm-text
tm-parse tm-ew-d tm-def mel std11 tl-misc tl-str tl-atype atype tl-seq
tl-list alist cless file-detect path-util emu invisible inv-xemacs
mcharset mcs-ltn1 pcustom poem poem-ltn1 pces pces-xfc pces-20 broken
poe-xemacs timer overlay poe pym static apel-ver product mh-comp
mh-utils mh-e highlight-headers ispell gnus gnus-ems gnus-xmas wid-edit
message messagexmas mml mm-decode mm-encode mailcap mm-bodies uudecode
mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mail-abbrevs sendmail
rfc822 mailheader gnus-util time-date parse-time nnheader nnheaderxm
mail-utils mm-util mail-prsvr func-menu fshell shell comint ring
font-lock filladapt x-compose jka-compr tex-site time cus-face
zenirc-autoloads xslt-process-autoloads xslide-autoloads
xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads
viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads
vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads
tm-autoloads time-autoloads textools-autoloads text-modes-autoloads
texinfo-autoloads supercite-autoloads strokes-autoloads
speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads
slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads
semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads
psgml-autoloads ps-print-autoloads prog-modes-autoloads
pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads
net-utils-autoloads mmm-mode-autoloads misc-games-autoloads
mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads
mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads
ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads
hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads
gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads
eterm-autoloads eshell-autoloads emerge-autoloads elib-autoloads
eieio-autoloads efs-autoloads edt-autoloads edit-utils-autoloads
ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads
debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads
cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads
build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads
ada-autoloads src-autoloads loadhist rsz-minibuf auto-show fontl-hooks
x-iso8859-1 code-cmds gutter-items menubar-items x-menubar mode-motion
mouse behavior itimer auto-save lisp-mode easymenu iso8859-1 page
buff-menu lib-complete cus-file derived frame env text-props obsolete
cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote
very-early-lisp postgresqlv7 postgresql unicode lucid-scrollbars
cut-buffer lucid-menubars motif-dialogs x c-balloon-help tty-frames tty
toolbar esd-sound native-sound scrollbar unix-processes multicast
network-streams subprocesses modules menu-accelerator-support menubar
berkeley-db md5 xemacs gutter tiff png gif jpeg xpm xbm lisp-float-type
file-coding linux dialog devices window-system base64)
Recent keystrokes:
-----------------
[ do not apply ]
Recent messages (most recent first):
-----------------------------------
[ do not apply ]
--- Vladimir
--------
Vladimir G. Ivanovic http://leonora.org/~vladimir
2770 Cowper St. vladimir(a)acm.org
Palo Alto, CA 94306-2447 +1 650 678 8014
-------
bach:vladimir$ gdb /usr/local/bin/xemacs
GNU gdb Red Hat Linux (5.1.92-1)
Copyright 2002 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "i386-redhat-linux"...
(gdb) run -vanilla --load mh-e
Starting program: /usr/local/bin/xemacs-21.5-b6 -vanilla --load mh-e
Fatal error: assertion failed, file alloc.c, line 1861, i == (Bytecount) XSTRING_ASCII_BEGIN (str) || (i > MAX_STRING_ASCII_BEGIN && (Bytecount) XSTRING_ASCII_BEGIN (str) == (Bytecount) MAX_STRING_ASCII_BEGIN)
Program received signal SIGABRT, Aborted.
0x42029241 in kill () from /lib/i686/libc.so.6
(gdb) where
#0 0x42029241 in kill () from /lib/i686/libc.so.6
#1 0x4202902a in raise () from /lib/i686/libc.so.6
#2 0x4202a7d2 in abort () from /lib/i686/libc.so.6
#3 0x080c495b in assert_failed (file=0x8241eed "alloc.c", line=1861,
expr=0x8241680 "i == (Bytecount) XSTRING_ASCII_BEGIN (str) || (i > MAX_STRING_ASCII_BEGIN && (Bytecount) XSTRING_ASCII_BEGIN (str) == (Bytecount) MAX_STRING_ASCII_BEGIN)") at emacs.c:3540
#4 0x08088a16 in init_string_ascii_begin (string=140095796) at alloc.c:1861
#5 0x08168f53 in make_string_from_buffer_1 (buf=0x8664b80, pos=1,
length=3242632, no_extents=0) at insdel.c:1643
#6 0x081690ae in make_string_from_buffer (buf=0x8664b80, pos=1,
length=3242632) at insdel.c:1653
#7 0x081ee09d in record_delete (b=0x8664b80, beg=1, length=3242632)
at undo.c:176
#8 0x081680ff in buffer_delete_range (buf=0x8664b80, from=1, to=3242633,
flags=0) at insdel.c:1407
#9 0x080939a9 in Ferase_buffer (buffer=137050900) at buffer.c:1597
#10 0x080ca6cb in Ffuncall (nargs=1, args=0xbfffd5b4) at eval.c:3488
#11 0x080983d9 in execute_optimized_program (
program=0x862edf8 "\vq\210\016$\016%\016&\016'Æ\n!\016(\031\035\030\036 \036!\034Ç\r!¬\006ÈÉ\n\"\210\tq\210\r\016\"k?nÊ \210Ë \210ÌÍ!«\005ÎÍ!\210\f«\021ÏÐÑÒ\f;\004Ó\fD\r%\210ª\005Ô\r!\210eb\210\016!«\rÕe\016 \b#\210eb\210ª\004Ö \210\016#×a¬\004Ø\026#ÙØ!\210Ú \210\r\026\"Ø\026)ÛÜ!\210ÝØ!\210Þ \210ß\016*\v\n#C\026+---Type <return> to continue, or q <return> to quit---
\vq\210Ø\211\026,.\006\207)", stack_depth=6, constants_data=0x8630308)
at bytecode.c:745
#12 0x08097f50 in funcall_compiled_function (fun=140820056, nargs=2,
args=0xbfffd988) at bytecode.c:517
#13 0x080ca8a2 in Ffuncall (nargs=3, args=0xbfffd984) at eval.c:3523
#14 0x080983d9 in execute_optimized_program (
program=0x863dd18 "\r¬\005ÆÇ!\025Ç\026\032\016\e\016\034È\n!\031\030\034ÉÊ !§«\nÉÊ !Ë kª\bÉÊ !Ë a¬\004Ì \210Ë \036\035Í\n!\210\016\036«\005Îp!\210Ï\216\t«\025Ð\r\f\"\016\037k«\feb\210\b¬\vÑ \210ª\006Ò\r\f\"\210-Ó TÔ U¬\tÕÓ \016 Z!\210Ö×!\210\r\vs¬\005\r\vB\023ØÙ!\207le cA", stack_depth=4, constants_data=0x86330e8)
at bytecode.c:745
#15 0x08097f50 in funcall_compiled_function (fun=140820028, nargs=1,
args=0xbfffdd58) at bytecode.c:517
#16 0x080ca8a2 in Ffuncall (nargs=2, args=0xbfffdd54) at eval.c:3523
#17 0x080983d9 in execute_optimized_program (
program=0x85e7fc0 "\v«\n\n¬\004\t«\004Ä \210Å\b!\207(", stack_depth=2,
constants_data=0x86330b8) at bytecode.c:745
#18 0x08097f50 in funcall_compiled_function (fun=139286244, nargs=1,
args=0xbfffe118) at bytecode.c:517
#19 0x080ca8a2 in Ffuncall (nargs=2, args=0xbfffe114) at eval.c:3523
#20 0x080983d9 in execute_optimized_program (
program=0x85df0e8 "\t\004Â\b!\207", stack_depth=2,
constants_data=0x8633098) at bytecode.c:745
---Type <return> to continue, or q <return> to quit---
#21 0x08097f50 in funcall_compiled_function (fun=139286216, nargs=0,
args=0xbfffe4d8) at bytecode.c:517
#22 0x080ca8a2 in Ffuncall (nargs=1, args=0xbfffe4d4) at eval.c:3523
#23 0x080983d9 in execute_optimized_program (
program=0x86e9bd0 "Ä\022Åy\210Æ\tÇÅ\b$«\004È \207É\v!\004Ê\v!\207",
stack_depth=5, constants_data=0x8646ff8) at bytecode.c:745
#24 0x08097f50 in funcall_compiled_function (fun=140821624, nargs=1,
args=0xbfffe8a4) at bytecode.c:517
#25 0x080ca8a2 in Ffuncall (nargs=2, args=0xbfffe8a0) at eval.c:3523
#26 0x0809d3ce in Fcall_interactively (function=140780412,
record_flag=137050900, keys=137050900) at callint.c:998
#27 0x080c8e19 in Fcommand_execute (cmd=140780412, record_flag=137050900,
keys=137050900) at eval.c:2929
#28 0x080dead4 in execute_command_event (command_builder=0x85aa9f8,
event=137399524) at event-stream.c:4069
#29 0x080df74f in Fdispatch_event (event=137399524) at event-stream.c:4404
#30 0x080a48ce in Fcommand_loop_1 () at cmdloop.c:585
#31 0x080a4b47 in command_loop_1 (dummy=137050900) at cmdloop.c:497
#32 0x080c6dbf in condition_case_1 (handlers=137050996,
bfun=0x80a4b08 <command_loop_1>, barg=137050900,
hfun=0x80a4bac <cmd_error>, harg=137050900) at eval.c:1692
#33 0x080a4d84 in command_loop_2 (dummy=137050900) at cmdloop.c:259
#34 0x080c6ba5 in internal_catch (tag=137127308,
---Type <return> to continue, or q <return> to quit---
func=0x80a4d3c <command_loop_2>, arg=137050900, threw=0x0) at eval.c:1323
#35 0x080a40bf in initial_command_loop (load_me=137050900) at cmdloop.c:308
#36 0x080c2da9 in xemacs_21_5_b6_i686_pc_linux () at emacs.c:2312
#37 0x080c352e in main () at emacs.c:2749
#38 0x42017499 in __libc_start_main () from /lib/i686/libc.so.6
(gdb) cont
Continuing.
Fatal error (6).
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
If you have access to the PROBLEMS file that came with your
version of XEmacs, please check to see if your crash is described
there, as there may be a workaround available.
Otherwise, please report this bug by running the send-pr
script included with XEmacs, or selecting `Send Bug Report'
from the help menu.
As a last resort send ordinary email to `crashes(a)xemacs.org'.
*MAKE SURE* to include the information in the command
M-x describe-installation.
If at all possible, *please* try to obtain a C stack backtrace;
it will help us immensely in determining what went wrong.
To do this, locate the core file that was produced as a result
of this crash (it's usually called `core' and is located in the
directory in which you started the editor, or maybe in your home
directory), and type
gdb /usr/local/bin/xemacs-21.5-b6 core
then type `where' when the debugger prompt comes up.
(If you don't have GDB on your system, you might have DBX,
or XDB, or SDB. A similar procedure should work for all of
these. Ask your system administrator if you need more help.)
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
erase-buffer()
# bind (formfile clean-message-header invisible-headers visible-headers msg-filename show-buffer folder msg-num)
mh-display-msg(1202 "+outbox")
# (unwind-protect ...)
# bind (mh-in-show-buffer-saved-window folder clean-message-header show-window msg)
mh-show-msg(nil)
# bind (message)
mh-show(nil)
# bind (msg)
mh-maybe-show()
# bind (arg)
mh-previous-undeleted-msg(1)
# bind (command-debug-status)
call-interactively(mh-previous-undeleted-msg)
# (condition-case ... . error)
# (catch top-level ...)
Program received signal SIGABRT, Aborted.
0x42029241 in kill () from /lib/i686/libc.so.6
(gdb) quit
The program is running. Exit anyway? (y or n) y
- 2 participants
- 1 comments