all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [PATCH] src/eval.c: Several trivial fixes
@ 2014-11-25  3:15 Lee Duhem
  0 siblings, 0 replies; only message in thread
From: Lee Duhem @ 2014-11-25  3:15 UTC (permalink / raw)
  To: Emacs Devel

---
 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  <lee.duhem@gmail.com>
+
+ * 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  <larsi@gnus.org>

  * 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



^ permalink raw reply related	[flat|nested] only message in thread

only message in thread, other threads:[~2014-11-25  3:15 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-11-25  3:15 [PATCH] src/eval.c: Several trivial fixes Lee Duhem

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.