GNU bug report logs - #18522
occasional slow performance in some Gnus code

Previous Next

Full log

Message #249 received at 18522 <at> debbugs.gnu.org (full text, mbox):

From: Lars Ingebrigtsen <larsi <at> gnus.org>
To: Peter Münster <pmlists <at> free.fr>
Cc: Eli Zaretskii <eliz <at> gnu.org>, 18522 <at> debbugs.gnu.org
Subject: Re: bug#18522: 24.4.50; mapcar is very slow
Date: Mon, 29 Feb 2016 13:21:50 +1100

Peter Münster <pmlists <at> free.fr> writes:

> And then I have to stop it with C-g because it hangs...

Probably a circular list somewhere.  Try the following:

(let ((table (make-hash-table :test 'eq)))
  (mapatoms
   (lambda (symbol)
     (when (boundp symbol)
       (let ((value (symbol-value symbol)))
	 (while (and (consp value)
		     (not (gethash value table)))
	   (let ((elem (car value)))
	     (when (bufferp elem)
	       (message "%s has a buffer %s"
			symbol (buffer-name elem))))
	   (setf (gethash value table) t)
	   (setq value (cdr value))))))
   obarray))


-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.