diff options
| author | Paul Eggert | 2011-03-16 00:30:17 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-03-16 00:30:17 -0700 |
| commit | d28a21703d47c6983e91d3d4a464546750519236 (patch) | |
| tree | be30105ab2f278522a46e77f3e5fbc727bef18da /src | |
| parent | 475545b50099448132747e79b70bbb4199559d09 (diff) | |
| download | emacs-d28a21703d47c6983e91d3d4a464546750519236.tar.gz emacs-d28a21703d47c6983e91d3d4a464546750519236.zip | |
* eval.c (Fdefvar): Rewrite so as not to use empty "else".
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 1 | ||||
| -rw-r--r-- | src/eval.c | 9 |
2 files changed, 6 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4e72b9c0d2b..15d169a8b30 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | 2011-03-16 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2011-03-16 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | * eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static. | 3 | * eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static. |
| 4 | (Fdefvar): Rewrite so as not to use empty "else". | ||
| 4 | 5 | ||
| 5 | * callint.c (quotify_arg, quotify_args): Now static. | 6 | * callint.c (quotify_arg, quotify_args): Now static. |
| 6 | (Fcall_interactively): Rename locals to avoid shadowing. | 7 | (Fcall_interactively): Rename locals to avoid shadowing. |
diff --git a/src/eval.c b/src/eval.c index f9ed8712eb3..4f6d3dd015d 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -801,10 +801,11 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) | |||
| 801 | LOADHIST_ATTACH (sym); | 801 | LOADHIST_ATTACH (sym); |
| 802 | } | 802 | } |
| 803 | else | 803 | else |
| 804 | /* Simple (defvar <var>) should not count as a definition at all. | 804 | { |
| 805 | It could get in the way of other definitions, and unloading this | 805 | /* Simple (defvar <var>) should not count as a definition at all. |
| 806 | package could try to make the variable unbound. */ | 806 | It could get in the way of other definitions, and unloading this |
| 807 | ; | 807 | package could try to make the variable unbound. */ |
| 808 | } | ||
| 808 | 809 | ||
| 809 | return sym; | 810 | return sym; |
| 810 | } | 811 | } |