* Byte-compile problem
@ 2004-11-11 16:35 Luc Teirlinck
0 siblings, 0 replies; 3+ messages in thread
From: Luc Teirlinck @ 2004-11-11 16:35 UTC (permalink / raw)
Cc: Andreas Schwab, bug-gnu-emacs
I suspect that the reason why you see the bug and Andreas does not, is
that you must have tried to byte compile the entire file, whereas
Andreas only compiled the one function you sent.
The bug is known and caused by a recent change in bytecomp.el.
See the threads "Change in bytecomp.el breaks Gnus" on
emacs-pretest-bug and "Byte compiling started doing strange things."
on emacs-devel.
The following patch was proposed by Katsumi Yamaoka on emacs-pretest-bug.
I have not yet tried it out.
*** bytecomp.el~ Tue Nov 9 21:53:14 2004
--- bytecomp.el Thu Nov 11 11:17:58 2004
***************
*** 3720,3726 ****
(if (and (consp (cdr form)) (consp (nth 1 form))
(eq (car (nth 1 form)) 'quote)
(consp (cdr (nth 1 form)))
! (symbolp (nth 1 (nth 1 form))))
(let ((constant
(and (consp (nthcdr 2 form))
(consp (nth 2 form))
--- 3720,3727 ----
(if (and (consp (cdr form)) (consp (nth 1 form))
(eq (car (nth 1 form)) 'quote)
(consp (cdr (nth 1 form)))
! (symbolp (nth 1 (nth 1 form)))
! (not (byte-code-function-p (nth 2 form))))
(let ((constant
(and (consp (nthcdr 2 form))
(consp (nth 2 form))
Sincerely,
Luc.
^ permalink raw reply [flat|nested] 3+ messages in thread
* Byte-compile problem
@ 2004-11-11 11:30 Sun Yijiang
2004-11-11 13:11 ` Andreas Schwab
0 siblings, 1 reply; 3+ messages in thread
From: Sun Yijiang @ 2004-11-11 11:30 UTC (permalink / raw)
Emacs version: CVS 2004-11-10
Problematic codes:
;;++++++++++++++++++++++++++++++++++++++++
1170 (defun emacs-wiki-link-at-point (&optional pos)
"Return non-nil if a URL or Wiki link name is at point."
(if (or (null pos)
(and (char-after pos)
(not (eq (char-syntax (char-after pos)) ? ))))
(let ((case-fold-search nil)
(here (or pos (point))))
(save-excursion
(goto-char here)
(skip-chars-backward "^'\"<>{}( [\t\n")
1180 (or (and (search-backward "[[" (line-beginning-position) t)
(looking-at emacs-wiki-name-regexp)
(<= here (match-end 0)))
(and (goto-char here)
(skip-chars-backward "^'\"<>{}( [\t\n")
(looking-at emacs-wiki-url-or-name-regexp)))))))
;;++++++++++++++++++++++++++++++++++++++++
Byte-compile Messages:
emacs-wiki.el:1170:44:Warning: attempt to inline `t' before it was defined
emacs-wiki.el:1180:68:Warning: `t' called as a function
When use emacs-wiki.el, everything is OK, but there is something wrong
when I use emacs-wiki.elc.
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Byte-compile problem
2004-11-11 11:30 Sun Yijiang
@ 2004-11-11 13:11 ` Andreas Schwab
0 siblings, 0 replies; 3+ messages in thread
From: Andreas Schwab @ 2004-11-11 13:11 UTC (permalink / raw)
Cc: bug-gnu-emacs
Sun Yijiang <sunyijiang@gmail.com> writes:
> Emacs version: CVS 2004-11-10
>
> Problematic codes:
> ;;++++++++++++++++++++++++++++++++++++++++
> 1170 (defun emacs-wiki-link-at-point (&optional pos)
> "Return non-nil if a URL or Wiki link name is at point."
> (if (or (null pos)
> (and (char-after pos)
> (not (eq (char-syntax (char-after pos)) ? ))))
> (let ((case-fold-search nil)
> (here (or pos (point))))
> (save-excursion
> (goto-char here)
> (skip-chars-backward "^'\"<>{}( [\t\n")
> 1180 (or (and (search-backward "[[" (line-beginning-position) t)
> (looking-at emacs-wiki-name-regexp)
> (<= here (match-end 0)))
> (and (goto-char here)
> (skip-chars-backward "^'\"<>{}( [\t\n")
> (looking-at emacs-wiki-url-or-name-regexp)))))))
> ;;++++++++++++++++++++++++++++++++++++++++
> Byte-compile Messages:
> emacs-wiki.el:1170:44:Warning: attempt to inline `t' before it was defined
> emacs-wiki.el:1180:68:Warning: `t' called as a function
I can't reproduce that, all I get is this:
In emacs-wiki-link-at-point:
x.el:12:32:Warning: reference to free variable `emacs-wiki-name-regexp'
x.el:16:32:Warning: reference to free variable `emacs-wiki-url-or-name-regexp'
Andreas.
--
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux AG, Maxfeldstraße 5, 90409 Nürnberg, Germany
Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2004-11-11 16:35 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-11-11 16:35 Byte-compile problem Luc Teirlinck
-- strict thread matches above, loose matches on Subject: below --
2004-11-11 11:30 Sun Yijiang
2004-11-11 13:11 ` Andreas Schwab
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).