diff options
| author | Stefan Monnier | 2026-04-10 12:04:59 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2026-04-10 12:05:16 -0400 |
| commit | 923eb9afef02f2d788d67660725e9687bd783ccf (patch) | |
| tree | d4d67630b2bdf44563e3a256c3a28f501f6e22d0 /src | |
| parent | 5cb7446245ccf09c4186985f37cc4ad7a91488cd (diff) | |
| download | emacs-923eb9afef02f2d788d67660725e9687bd783ccf.tar.gz emacs-923eb9afef02f2d788d67660725e9687bd783ccf.zip | |
src/eval.c (Fdefault_toplevel_value): Improve docstring (bug#80775)
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 0b451b2c891..ff2ce1b01a5 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -810,7 +810,10 @@ lexbound_p (Lisp_Object symbol) | |||
| 810 | 810 | ||
| 811 | DEFUN ("default-toplevel-value", Fdefault_toplevel_value, Sdefault_toplevel_value, 1, 1, 0, | 811 | DEFUN ("default-toplevel-value", Fdefault_toplevel_value, Sdefault_toplevel_value, 1, 1, 0, |
| 812 | doc: /* Return SYMBOL's toplevel default value. | 812 | doc: /* Return SYMBOL's toplevel default value. |
| 813 | "Toplevel" means outside of any let binding. */) | 813 | "Toplevel" means outside of any let binding. |
| 814 | Signals `void-variable' if there is no such value, which can | ||
| 815 | happen even if `default-boundp' is non-nil. | ||
| 816 | Note: In most cases, you'll want to use `default-value' instead. */) | ||
| 814 | (Lisp_Object symbol) | 817 | (Lisp_Object symbol) |
| 815 | { | 818 | { |
| 816 | union specbinding *binding = default_toplevel_binding (symbol); | 819 | union specbinding *binding = default_toplevel_binding (symbol); |
| @@ -824,7 +827,8 @@ DEFUN ("default-toplevel-value", Fdefault_toplevel_value, Sdefault_toplevel_valu | |||
| 824 | DEFUN ("set-default-toplevel-value", Fset_default_toplevel_value, | 827 | DEFUN ("set-default-toplevel-value", Fset_default_toplevel_value, |
| 825 | Sset_default_toplevel_value, 2, 2, 0, | 828 | Sset_default_toplevel_value, 2, 2, 0, |
| 826 | doc: /* Set SYMBOL's toplevel default value to VALUE. | 829 | doc: /* Set SYMBOL's toplevel default value to VALUE. |
| 827 | "Toplevel" means outside of any let binding. */) | 830 | "Toplevel" means outside of any let binding. |
| 831 | Note: In most cases, you'll want to use `set-default' instead. */) | ||
| 828 | (Lisp_Object symbol, Lisp_Object value) | 832 | (Lisp_Object symbol, Lisp_Object value) |
| 829 | { | 833 | { |
| 830 | union specbinding *binding = default_toplevel_binding (symbol); | 834 | union specbinding *binding = default_toplevel_binding (symbol); |