emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Kyle Meyer <kyle@kyleam.com>
To: "James N. V. Cash" <james.cash@occasionallycogent.com>
Cc: bzg@gnu.org, emacs-orgmode@gnu.org
Subject: Re: eldoc recursion error
Date: Sun, 20 Sep 2020 00:54:31 -0400	[thread overview]
Message-ID: <87tuvtvyig.fsf@kyleam.com> (raw)
In-Reply-To: <878sd88mz4.fsf@gmail.com>

James N. V. Cash writes:

> Kyle Meyer <kyle@kyleam.com> writes:

>> Okay, so when eldoc-documentation-functions is defined (Emacs >=28), we
>> take the first function and go with it.  That might not be exactly what
>> you'd see in the native buffer, depending on whether there are other
>> members of eldoc-documentation-functions and how they interact.  (I'm
>> being vague, because I don't really know anything about eldoc, but it
>> seems like that must be the case.)  Anyway, I'd guess it will be good
>> enough in most cases, and it's certainly better than the recursion
>> error.
>
> Ah yes, very true. I've attached another patch, which tries to better
> preserve how the new eldoc strategy works, by passing through the
> callback to the mode-local eldoc function if available, which will be a
> closure over the configured documentation strategy with
> eldoc-documentation-functions bound to the appropriate mode-local value.

Thanks, sounds good.

> Subject: [PATCH] Address org-eldoc-recursion issue
[...]
> @@ -116,8 +116,13 @@
>          (when (fboundp mode-func)
>            (with-temp-buffer
>              (funcall mode-func)
> -            (setq doc-func (and eldoc-documentation-function
> -                                (symbol-value 'eldoc-documentation-function)))
> +	    (setq doc-func (if (boundp 'eldoc-documentation-functions)
> +			       (lexical-let ((doc-funs (symbol-value 'eldoc-documentation-functions)))

Using lexical-let here is problematic because it's obsolete since Emacs
24.  Taking a quick glance, I don't see any issues with switching this
file over to lexical binding by adding " -*- lexical-binding: t; -*-" to
the first line.

Also, why use

    (doc-funs (symbol-value 'eldoc-documentation-functions))

rather than

    (doc-funs eldoc-documentation-functions)

?

> +				 (lambda ()
> +				   (let ((eldoc-documentation-functions doc-funs))
> +				     (funcall eldoc-documentation-strategy))))
> +			       (and eldoc-documentation-function
> +				    (symbol-value 'eldoc-documentation-function))))

nit: Please switch this to the Elisp style of indenting the `else' arm
less than the `then' arm.

>              (puthash lang doc-func org-eldoc-local-functions-cache))
>            doc-func)
>        cached-func)))
> @@ -127,7 +132,7 @@
>  (declare-function php-eldoc-function "php-eldoc" ())
>  (declare-function go-eldoc--documentation-function "go-eldoc" ())
>  
> -(defun org-eldoc-documentation-function (&rest _ignored)
> +(defun org-eldoc-documentation-function (&optional callback)

Perhaps even with the callback parameter the &rest should stay around.
The docstring of eldoc-documentation-functions makes me nervous because
it says "each hook function is called with _at least_ one argument" (my
emphasis).

>    "Return breadcrumbs when on a headline, args for src block header-line,
>    calls other documentation functions depending on lang when inside src body."
>    (or
> @@ -161,7 +166,12 @@
>               (string= lang "golang")) (when (require 'go-eldoc nil t)
>                                          (go-eldoc--documentation-function)))
>             (t (let ((doc-fun (org-eldoc-get-mode-local-documentation-function lang)))
> -                (when (functionp doc-fun) (funcall doc-fun))))))))
> +                (when (functionp doc-fun)
> +		  (if (functionp callback)
> +		      (condition-case nil
> +			  (funcall doc-fun callback)
> +			(wrong-number-of-arguments (funcall doc-fun)))
> +		    (funcall doc-fun)))))))))

Hmm, I think the more complete approach you put together for
org-eldoc-get-mode-local-documentation-function, along with your change
to consider the callback parameter here, means we don't need to bother
with the condition-case/wrong-number-of-arguments dance.  The callback
alone should be a reliable indication we're on Emacs 28, in which case
we can expect the function to accept a callback argument (even if they
ignore it like python-eldoc-function does).

Thanks again for working on this.


  reply	other threads:[~2020-09-20  4:55 UTC|newest]

Thread overview: 17+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-09-15 19:22 eldoc recursion error James N V Cash
2020-09-17  4:55 ` Kyle Meyer
2020-09-17 15:03   ` James N. V. Cash
2020-09-20  4:54     ` Kyle Meyer [this message]
2020-09-20 15:35       ` James N. V. Cash
2020-09-20 15:49         ` James N. V. Cash
2020-09-20 23:38           ` Kyle Meyer
2020-09-21  1:07             ` James N. V. Cash
2020-09-21  1:36               ` Kyle Meyer
  -- strict thread matches above, loose matches on Subject: below --
2020-09-08 13:49 Matt Price
2020-09-08 14:24 ` Bastien
2020-09-08 14:49   ` Matt Price
2020-09-08 14:53     ` Bastien
2020-09-08 15:27       ` Matt Price
2020-09-08 16:19         ` Matt Price
2020-09-11  4:12           ` Kyle Meyer
2020-09-21  1:51             ` Kyle Meyer

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.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87tuvtvyig.fsf@kyleam.com \
    --to=kyle@kyleam.com \
    --cc=bzg@gnu.org \
    --cc=emacs-orgmode@gnu.org \
    --cc=james.cash@occasionallycogent.com \
    /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/org-mode.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).