all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Need help with ad-do-it, it loops
@ 2009-05-07 22:15 Lennart Borgman
  2009-05-08  9:01 ` AW: " klaus.berndl
  2009-05-08 13:26 ` Stefan Monnier
  0 siblings, 2 replies; 14+ messages in thread
From: Lennart Borgman @ 2009-05-07 22:15 UTC (permalink / raw)
  To: Emacs-Devel devel

I have a strange case of looping in MuMaMo/nXhtml. One user (Rémi) has
this problem on Debian. This happens after starting from "emacs -Q"
and just loading nXhtml and pressing RET in the scratch buffer. The
output from the debugger says

Debugger entered--Lisp error: (error "Lisp nesting exceeds
`max-lisp-eval-depth'")
  ad-Orig-syntax-ppss-flush-cache(192 192)
  apply(ad-Orig-syntax-ppss-flush-cache 192 192)
  ...
  ad-Orig-syntax-ppss-flush-cache(192 192)
  apply(ad-Orig-syntax-ppss-flush-cache 192 192)
  syntax-ppss-flush-cache(192 192)
  self-insert-command(1)
  newline(nil)
  call-interactively(newline nil nil)



When Rémi set max-lisp-eval-depth to 100000 it loops a bit different:

Debugger entered--Lisp error: (error "Variable binding depth exceeds
max-specpdl-size")
  ad-Orig-syntax-ppss-flush-cache(270 270)
  apply(ad-Orig-syntax-ppss-flush-cache 270 270)
  ...
  ad-Orig-syntax-ppss-flush-cache(270 270)
  apply(ad-Orig-syntax-ppss-flush-cache 270 270)
  syntax-ppss-flush-cache(270 270)
  self-insert-command(1)
  newline(nil)
  call-interactively(newline nil nil)



**** I have this defadvise in mumamo.el (in buffer *Scratch*
mumamo-multi-major-mode is nil):

(defadvice syntax-ppss-flush-cache (around
                                    mumamo-advice-syntax-ppss-flush-cache
                                    activate
                                    compile
                                    )
  "Support for mumamo.
See the defadvice for `syntax-ppss' for an explanation."
  (if (not mumamo-multi-major-mode)
      ad-do-it
    (let ((pos (ad-get-arg 0)))
      (let* ((chunk-at-pos (when (and (boundp 'mumamo-multi-major-mode)
                                      mumamo-multi-major-mode)
                             (mumamo-find-chunks pos
"syntax-ppss-flush-cache"))))
        (if chunk-at-pos
            (let* ((syntax-ppss-last  (overlay-get chunk-at-pos
'syntax-ppss-last))
                   (syntax-ppss-cache (overlay-get chunk-at-pos
'syntax-ppss-cache)))
              (setq ad-return-value ad-do-it)
              (overlay-put chunk-at-pos 'syntax-ppss-last syntax-ppss-last)
              (overlay-put chunk-at-pos 'syntax-ppss-cache syntax-ppss-cache))
          (setq ad-return-value ad-do-it))))))



I can't understand how this can loop. Any suggestions? Am I perhaps
using ad-do-it incorrectly? The manual does not explicitly say it
returns the value from the original function, but my understanding is
that it does.

(For more information see https://bugs.launchpad.net/nxhtml/+bug/369800)




^ permalink raw reply	[flat|nested] 14+ messages in thread

end of thread, other threads:[~2009-05-11 15:14 UTC | newest]

Thread overview: 14+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-05-07 22:15 Need help with ad-do-it, it loops Lennart Borgman
2009-05-08  9:01 ` AW: " klaus.berndl
2009-05-08 10:30   ` Lennart Borgman
2009-05-08 13:26 ` Stefan Monnier
2009-05-08 16:28   ` Lennart Borgman
2009-05-08 19:30     ` Stefan Monnier
2009-05-08 20:13       ` Lennart Borgman
2009-05-08 21:22         ` Lennart Borgman
2009-05-09 10:53           ` Lennart Borgman
2009-05-09 17:06             ` Sven Joachim
2009-05-09 17:26               ` Lennart Borgman
     [not found]             ` <e01d8a50905090405x2f1a5dc8s64d05cda7fc51366@mail.gmail.com>
     [not found]               ` <87iqk9oq03.fsf@elegiac.orebokech.com>
2009-05-11  6:38                 ` Lennart Borgman
2009-05-11 14:51                   ` Romain Francoise
2009-05-11 15:14                     ` Lennart Borgman

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.