How to restore function attributes to default

Question

Adding an attribute to a function is easy and clearing attribute is easy also. But I don't know really how to restore the attributes of a function to its defaults. All I do is quit the kernel or close Mathematica and open again.

any idea?

Update

For example :

Log // Attributes
(* {Listable, NumericFunction, Protected} *)
ClearAttributes[Log, Listable]
Log // Attributes
(* {NumericFunction, Protected} *)

Now is there any way to restore the attributes of Log to its defaults other than SetAttributes or quitting Mathematica?

Thanks.

SetAttributes[f, {Listable, Orderless}]; ClearAttributes[f, Attributes@f]; Attributes@f — Dr. belisarius, Sep 22 '14 at 13:53
This clears all attributes. I am looking for something to reset attributes to default. — Basheer Algohi, Sep 22 '14 at 14:12
You don't have to quit MMA, you can just Quit[], i.e.,Quit Kernel without having to start a new front-end session. — kglr, Sep 22 '14 at 14:28
What I don't understand: Log has the attribute Protected. Why can we change its attributes without unprotecting it - Unprotect[Log] - in the first place? — eldo, Sep 22 '14 at 18:55

score 18 · Accepted Answer · answered Sep 22 '14 at 17:50

If you have not saved the attributes before changing them, and also can't quit the Kernel, then you could launch a Subkernel and get the original attributes that way:

ClearAttributes[Log, Listable]

Attributes[Log]

{NumericFunction, Protected}

First@ParallelEvaluate[Attributes[Log]]

{Listable,NumericFunction,Protected}

score 15 · Answer 2 · answered Sep 22 '14 at 14:28

15

Save defaults before any changes

attrLog = Log // Attributes;

ClearAttributes[Log, Listable]

Log // Attributes

{NumericFunction, Protected}

Restore defaults

Attributes[Log] = attrLog

{Listable, NumericFunction, Protected}

answered Sep 22 '14 at 14:28

Bob Hanlon

157,611
7
77
198

How to restore function attributes to default

Update

2 Answers2

Linked