How to avoid loading file when just testing if function is bound?

How to avoid loading file when just testing if function is bound?

[Sebastien Vauban]

Hi,

For the purpose of asking whether I eventually need to clock out (from Org)
before exiting Emacs, I've written this chunk of code:

--8<---------------cut here---------------start------------->8---
  (if (and (fboundp 'org-clocking-p)
           (org-clocking-p)
	   (y-or-n-p "You are currently clocking time, clock out? "))
      (org-clock-out)
    t))
--8<---------------cut here---------------end--------------->8---

The problem is that if Org is not yet loaded, the above code does load it
(because `org-clocking-p' is autoloaded) -- and that takes a while... and I
just wanted to exit Emacs...

How to avoid this?

Best regards,
  Seb

-- 
Sebastien Vauban

Re: How to avoid loading file when just testing if function is bound?

[Peter Münster]

On Mon, Apr 02 2012, Sebastien Vauban wrote:

> The problem is that if Org is not yet loaded, the above code does load it
> (because `org-clocking-p' is autoloaded) -- and that takes a while... and I
> just wanted to exit Emacs...

Perhaps `featurep' can help here.

-- 
           Peter

Re: How to avoid loading file when just testing if function is bound?

[Sebastien Vauban]

Hello Peter,

Peter Münster wrote:
> On Mon, Apr 02 2012, Sebastien Vauban wrote:
>
>> The problem is that if Org is not yet loaded, the above code does load it
>> (because `org-clocking-p' is autoloaded) -- and that takes a while... and I
>> just wanted to exit Emacs...
>
> Perhaps `featurep' can help here.

Adjusted code block:

--8<---------------cut here---------------start------------->8---
  (if (and (featurep 'org-clock)
           (org-clocking-p)
	   (y-or-n-p "You are currently clocking time, clock out? "))
      (org-clock-out)
    t))
--8<---------------cut here---------------end--------------->8---

When reading your proposition, I thought it should be it... but no. It still
loads Org whenever quitting Emacs (before doing anything).

Any other idea?

Best regards,
  Seb

-- 
Sebastien Vauban

Re: How to avoid loading file when just testing if function is bound?

[Peter Münster]

On Mon, Apr 02 2012, Sebastien Vauban wrote:

> Adjusted code block:
>
>   (if (and (featurep 'org-clock)
>            (org-clocking-p)
> 	   (y-or-n-p "You are currently clocking time, clock out? "))
>       (org-clock-out)
>     t))
>
> When reading your proposition, I thought it should be it... but no. It still
> loads Org whenever quitting Emacs (before doing anything).
>
> Any other idea?

On my system, (featurep 'org-clock) does not load anything. So I think,
the problem must be somewhere else. Did you try with edebug?

-- 
           Peter

Re: How to avoid loading file when just testing if function is bound?

[Michael Albinus]

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

>> Adjusted code block:
>>
>>   (if (and (featurep 'org-clock)
>>            (org-clocking-p)
>> 	   (y-or-n-p "You are currently clocking time, clock out? "))
>>       (org-clock-out)
>>     t))
>>
>> When reading your proposition, I thought it should be it... but no. It still
>> loads Org whenever quitting Emacs (before doing anything).
>>
>> Any other idea?
>
> On my system, (featurep 'org-clock) does not load anything. So I think,
> the problem must be somewhere else. Did you try with edebug?

Maybe the mere existence of (org-clocking-p) in the if-clause causes the
autoload. What happens, if you use (funcall 'org-clocking-p) instead?

Best regards, Michael.

Re: How to avoid loading file when just testing if function is bound?

[Peter Münster]

On Mon, Apr 02 2012, Michael Albinus wrote:

>>>   (if (and (featurep 'org-clock)
>>>            (org-clocking-p)
>>> 	   (y-or-n-p "You are currently clocking time, clock out? "))
>>>       (org-clock-out)
>>>     t))
>
> Maybe the mere existence of (org-clocking-p) in the if-clause causes the
> autoload. What happens, if you use (funcall 'org-clocking-p) instead?

I've done `eval-region' on the whole if-clause, and org-clock was not
loaded.

-- 
           Peter

Re: How to avoid loading file when just testing if function is bound?

[Michael Albinus]

"Sebastien Vauban"
<wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:

> Hi,

Hi,

> For the purpose of asking whether I eventually need to clock out (from Org)
> before exiting Emacs, I've written this chunk of code:
>
> --8<---------------cut here---------------start------------->8---
>   (if (and (fboundp 'org-clocking-p)
>            (org-clocking-p)
> 	   (y-or-n-p "You are currently clocking time, clock out? "))
>       (org-clock-out)
>     t))
> --8<---------------cut here---------------end--------------->8---
>
> The problem is that if Org is not yet loaded, the above code does load it
> (because `org-clocking-p' is autoloaded) -- and that takes a while... and I
> just wanted to exit Emacs...
>
> How to avoid this?

You could check whether `org-clocking-p' has still the 'autoload
property. It is a list then. Something like this (untested):

(if (and (fboundp 'org-clocking-p)
         (not (listp (symbol-function 'org-clocking-p)))
         (org-clocking-p))
...

> Best regards,
>   Seb

Best regards, Michael.

Re: How to avoid loading file when just testing if function is bound?

[Sebastien Vauban]

Hi Michael,

Michael Albinus wrote:
> "Sebastien Vauban"
> <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw-XMD5yJDbdMReXY1tMh2IBg@public.gmane.org> writes:
>
>> Hi,
>
> Hi,
>
>> For the purpose of asking whether I eventually need to clock out (from Org)
>> before exiting Emacs, I've written this chunk of code:
>>
>> --8<---------------cut here---------------start------------->8---
>>   (if (and (fboundp 'org-clocking-p)
>>            (org-clocking-p)
>> 	   (y-or-n-p "You are currently clocking time, clock out? "))
>>       (org-clock-out)
>>     t))
>> --8<---------------cut here---------------end--------------->8---
>>
>> The problem is that if Org is not yet loaded, the above code does load it
>> (because `org-clocking-p' is autoloaded) -- and that takes a while... and I
>> just wanted to exit Emacs...
>>
>> How to avoid this?
>
> You could check whether `org-clocking-p' has still the 'autoload
> property. It is a list then. Something like this (untested):
>
> (if (and (fboundp 'org-clocking-p)
>          (not (listp (symbol-function 'org-clocking-p)))
>          (org-clocking-p))

It's no better with:

--8<---------------cut here---------------start------------->8---
  (if (and
           (not (listp (symbol-function 'org-clocking-p)))
           (org-clocking-p)
	   (y-or-n-p "You are currently clocking time, clock out? "))
      (org-clock-out)
    t))
--8<---------------cut here---------------end--------------->8---

Note that I removed `fboundp' from your example, as that does load Org
immediately, if present.

Best regards,
  Seb

-- 
Sebastien Vauban