From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/27680 Path: main.gmane.org!not-for-mail From: Michael Welsh Duggan Newsgroups: gmane.emacs.gnus.general Subject: Re: void-function ignore-errors from byte-compiled gnus-start.elc Date: Sat, 04 Dec 1999 17:08:37 GMT Organization: Carnegie Mellon University : KANTOO Project Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035164662 25801 80.91.224.250 (21 Oct 2002 01:44:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:44:22 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA23859 for ; Sat, 4 Dec 1999 12:09:11 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB11713; Sat, 4 Dec 1999 11:09:03 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 04 Dec 1999 11:09:16 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id LAA12673 for ; Sat, 4 Dec 1999 11:09:03 -0600 (CST) Original-Received: from sunsite.auc.dk (sunsite.auc.dk [130.225.51.30]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id MAA23854 for ; Sat, 4 Dec 1999 12:08:39 -0500 (EST) Original-Received: (qmail 19459 invoked by uid 509); 4 Dec 1999 17:08:38 -0000 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: emacs.ding Mail-Copies-To: never Original-Lines: 29 User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.4.93 Original-NNTP-Posting-Host: 128.2.80.179 Original-X-Complaints-To: news@sunsite.auc.dk Original-X-Trace: sunsite.auc.dk 944327317 128.2.80.179 (Sat, 04 Dec 1999 18:08:37 MET) Original-NNTP-Posting-Date: Sat, 04 Dec 1999 18:08:37 MET Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:27680 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:27680 --=-=-= Neil Crellin writes: > With two different recent releases of 5.8.2+cvs-updates, I get the > following error on trying to start gnus, plugged or unplugged. > Removing gnus-start.elc however allows both to work. Any ideas here? > > Signaling: (void-function ignore-errors) > (ignore-errors (concat (file-name-directory ...) "site-lisp/gnus-init")) > eval((ignore-errors (concat (file-name-directory ...) "site-lisp/gnus-init"))) > custom-initialize-reset(gnus-site-init-file (ignore-errors (concat (file-name-directory ...) "site-lisp/gnus-init"))) > custom-declare-variable(gnus-site-init-file (ignore-errors (concat (file-name-directory ...) "site-lisp/gnus-init")) ("/home/neilc/lisp/gnus/gnus-5.8.2.1/lisp/gnus-start.elc" . -1283) :group gnus-start :type (choice file (const nil))) > gnus-1(nil nil nil) > gnus(nil) > call-interactively(gnus) > execute-extended-command(nil) > * call-interactively(execute-extended-command) Interesting. It looks as though ignore-errors isn't getting expanded by the byte compiler. Hmm... Let me look. Ah, I see. The way defcustom works is causing the `ignore-errors' not to be byte compiled. Try the following patch: --=-=-= Content-Disposition: attachment Content-Description: patch cvs server: Diffing . Index: ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 5.250 diff -c -r5.250 ChangeLog *** ChangeLog 1999/12/04 16:04:14 5.250 --- ChangeLog 1999/12/04 17:06:43 *************** *** 1,3 **** --- 1,8 ---- + 1999-12-04 Michael Welsh Duggan + + * gnus-start.el (gnus-site-init-file): Don't use cl macros in + defcustom definitions. + 1999-12-04 Simon Josefsson * mm-decode.el (mm-display-part): Let mm-display-external return Index: gnus-start.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-start.el,v retrieving revision 5.44 diff -c -r5.44 gnus-start.el *** gnus-start.el 1999/12/04 08:15:21 5.44 --- gnus-start.el 1999/12/04 17:06:46 *************** *** 47,56 **** :type 'file) (defcustom gnus-site-init-file ! (ignore-errors ! (concat (file-name-directory ! (directory-file-name installation-directory)) ! "site-lisp/gnus-init")) "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none. If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :group 'gnus-start --- 47,57 ---- :type 'file) (defcustom gnus-site-init-file ! (condition-case nil ! (concat (file-name-directory ! (directory-file-name installation-directory)) ! "site-lisp/gnus-init") ! (error nil)) "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none. If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :group 'gnus-start --=-=-= -- Michael Duggan (md5i@cs.cmu.edu) --=-=-=--