Byte-compile problem

Byte-compile problem

[Sun Yijiang]

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.

Re: Byte-compile problem

[Andreas Schwab]

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."

Byte-compile problem

[Luc Teirlinck]

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.