From: Andy Moreton <andrewjmoreton@gmail.com>
To: emacs-devel@gnu.org
Subject: Re: Gnus using lexical-binding
Date: Sat, 30 Jan 2021 16:10:57 +0000 [thread overview]
Message-ID: <86k0ruqub2.fsf@gmail.com> (raw)
In-Reply-To: jwvft2js5ok.fsf-monnier+emacs@gnu.org
On Fri 29 Jan 2021, Stefan Monnier wrote:
> I'm working on converting all the lisp/gnus files to use
> lexical-binding. I have a first version of the code ready and pushed to
> `scratch/lexical-gnus`. It works for me, but please test it because my
> use of Gnus only exercises a small fraction of its functionality
> and packages.
>
> And please, after testing it, tell me how it went, regardless if you
> encountered problems or not.
Fails starting gnus for me. Setting `debug-on-error' gives backtrace:
Debugger entered--Lisp error: (void-variable gnus-tmp-level)
(format "%c%c%d%c %6s %7d %s%c" gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-level gnus-tmp-process-marked (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length (cdr (assq ... gnus-tmp-marked))) (gnus-range-length (cdr (assq ... gnus-tmp-marked)))))) (t number)) gnus-tmp-number-total gnus-group-indentation gnus-tmp-summary-live)
(insert (format "%c%c%d%c %6s %7d %s%c" gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-level gnus-tmp-process-marked (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length (cdr ...)) (gnus-range-length (cdr ...))))) (t number)) gnus-tmp-number-total gnus-group-indentation gnus-tmp-summary-live))
(let (gnus-position) (insert (format "%c%c%d%c %6s %7d %s%c" gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-level gnus-tmp-process-marked (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length ...) (gnus-range-length ...)))) (t number)) gnus-tmp-number-total gnus-group-indentation gnus-tmp-summary-live)) (setq gnus-position (point)) (insert (format "%-55s" (let* ((val (eval (if ... ... gnus-tmp-qualified-group))) (need (- 55 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)))) (insert-char 32 (max (- 75 (current-column)) 0)) (add-text-properties (point) (progn (insert gnus-tmp-news-server) (point)) (cons 'face (cons (list 'italic 'default) '(gnus-face t)))) (insert "\n") (if gnus-position (put-text-property gnus-position
(1+ gnus-position) 'gnus-position t)))
eval((let (gnus-position) (insert (format "%c%c%d%c %6s %7d %s%c" gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-level gnus-tmp-process-marked (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number ... ...))) (t number)) gnus-tmp-number-total gnus-group-indentation gnus-tmp-summary-live)) (setq gnus-position (point)) (insert (format "%-55s" (let* ((val (eval ...)) (need (- 55 ...))) (if (> need 0) (concat nil val (make-string need 32)) val)))) (insert-char 32 (max (- 75 (current-column)) 0)) (add-text-properties (point) (progn (insert gnus-tmp-news-server) (point)) (cons 'face (cons (list 'italic 'default) '(gnus-face t)))) (insert "\n") (if gnus-position (put-text-property gnus-position (1+ gnus-position) 'gnus-position t))) t)
gnus-group-insert-group-line("nndraft:drafts" 1 nil 0 (nndraft ""))
gnus-topic-prepare-topic((("misc" visible nil nil)) 1 5 nil nil 1 nil)
gnus-topic-prepare-topic((("Topics" visible nil nil) (("Cygwin" visible nil nil)) (("Emacs" visible nil nil)) (("Windows" visible nil nil)) (("Linux" visible nil nil)) (("IETF" visible nil nil)) (("Network" visible nil nil)) (("Developer" visible nil nil) (("Build Tools" visible nil nil)) (("GCC" visible nil nil)) (("LLVM" visible nil nil)) (("Libc" visible nil nil))) (("Languages" visible nil nil) (("C++" visible nil nil)) (("Rust" visible nil nil)) (("Python" visible nil nil)) (("Lua" visible nil nil)) (("Javascript" visible nil nil)) (("Scheme" visible nil nil)) (("Common Lisp" visible nil nil)) (("Haskell" visible nil nil))) (("Hardware" visible nil nil)) (("Blogs" visible nil nil)) (("misc" visible nil nil))) 0 5 nil nil 1 nil)
gnus-group-prepare-topics(5 nil nil)
gnus-group-list-groups(nil)
#f(compiled-function () #<bytecode 0x991f1d1e36f151a>)()
gnus-1(nil nil nil)
gnus(nil)
funcall-interactively(gnus nil)
call-interactively(gnus record nil)
command-execute(gnus record)
execute-extended-command(nil "gnus" "gnus")
funcall-interactively(execute-extended-command nil "gnus" "gnus")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
next prev parent reply other threads:[~2021-01-30 16:10 UTC|newest]
Thread overview: 27+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-01-29 23:11 Gnus using lexical-binding Stefan Monnier
2021-01-30 6:34 ` Lars Ingebrigtsen
2021-01-30 8:35 ` Eli Zaretskii
2021-01-30 13:43 ` Stefan Kangas
2021-01-30 13:52 ` Eli Zaretskii
2021-01-30 14:08 ` Eli Zaretskii
2021-01-30 15:24 ` Stefan Monnier
2021-01-30 15:07 ` Basil L. Contovounesios
2021-01-30 17:40 ` Stefan Monnier
2021-02-08 19:10 ` Ted Zlatanov
2021-02-09 0:10 ` Stefan Monnier
2021-02-10 10:24 ` Ted Zlatanov
2021-02-10 13:53 ` Stefan Monnier
2021-02-10 19:05 ` Lars Ingebrigtsen
2021-01-30 16:10 ` Andy Moreton [this message]
2021-01-30 17:35 ` Stefan Monnier
2021-01-30 18:00 ` Andy Moreton
2021-01-30 18:53 ` Stefan Monnier
2021-01-30 23:23 ` Andy Moreton
2021-01-31 0:06 ` Stefan Monnier
2021-01-31 0:46 ` Andy Moreton
2021-01-31 13:34 ` Basil L. Contovounesios
2021-02-02 18:17 ` Eric Abrahamsen
2021-02-02 19:40 ` Stefan Monnier
2021-02-02 20:31 ` Eric Abrahamsen
2021-01-31 9:13 ` David Engster
2021-01-31 22:43 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=86k0ruqub2.fsf@gmail.com \
--to=andrewjmoreton@gmail.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).