[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] src/eval.c: Several trivial fixes
From: |
Lee Duhem |
Subject: |
[PATCH] src/eval.c: Several trivial fixes |
Date: |
Tue, 25 Nov 2014 11:15:28 +0800 |
---
src/ChangeLog | 8 ++++++++
src/eval.c | 9 ++++-----
2 files changed, 12 insertions(+), 5 deletions(-)
diff --git a/src/ChangeLog b/src/ChangeLog
index 448de36..f85a0dc 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
+2014-11-25 Lee Duhem <address@hidden>
+
+ * eval.c (Fsignal): Remove duplicate condition in whether-to-start-
+ debugger test.
+ (autoload-do-load): Remove extra verb in doc string.
+ (apply_lambda): Remove unnecessary comma expression.
+ (backtrace_eval_unrewind): Remove empty comment.
+
2014-11-24 Lars Magne Ingebrigtsen <address@hidden>
* gnutls.c: Fix compilation warnings given fix --enable-gcc-warnings.
diff --git a/src/eval.c b/src/eval.c
index 77b1db9..949f4da 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1532,8 +1532,7 @@ See also the function `condition-case'. */)
|| NILP (clause)
/* A `debug' symbol in the handler list disables the normal
suppression of the debugger. */
- || (CONSP (clause) && CONSP (clause)
- && !NILP (Fmemq (Qdebug, clause)))
+ || (CONSP (clause) && !NILP (Fmemq (Qdebug, clause)))
/* Special handler that means "print a message and run debugger
if requested". */
|| EQ (h->tag_or_ch, Qerror)))
@@ -1917,7 +1916,7 @@ DEFUN ("autoload-do-load", Fautoload_do_load,
Sautoload_do_load, 1, 3, 0,
If non-nil, FUNNAME should be the symbol whose function value is FUNDEF,
in which case the function returns the new autoloaded function value.
If equal to `macro', MACRO-ONLY specifies that FUNDEF should only be loaded if
-it is defines a macro. */)
+it defines a macro. */)
(Lisp_Object fundef, Lisp_Object funname, Lisp_Object macro_only)
{
ptrdiff_t count = SPECPDL_INDEX ();
@@ -2819,7 +2818,8 @@ apply_lambda (Lisp_Object fun, Lisp_Object args,
ptrdiff_t count)
for (i = 0; i < numargs; )
{
- tem = Fcar (args_left), args_left = Fcdr (args_left);
+ tem = Fcar (args_left);
+ args_left = Fcdr (args_left);
tem = eval_sub (tem);
arg_vector[i++] = tem;
gcpro1.nvars = i;
@@ -3413,7 +3413,6 @@ backtrace_eval_unrewind (int distance)
for (; distance > 0; distance--)
{
tmp += step;
- /* */
switch (tmp->kind)
{
/* FIXME: Ideally we'd like to "temporarily unwind" (some of) those
--
1.9.3
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] src/eval.c: Several trivial fixes,
Lee Duhem <=