From 2462470b9ec3876a54f1ce4c70561c478ceaf714 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 1 Jun 2011 11:19:45 -0300 Subject: Miscellaneous tweaks. * lisp/emacs-lisp/cl-macs.el (dolist, dotimes): Use the same strategy for lexical scoping as in subr.el's dolist and dotimes. * lisp/emacs-lisp/bytecomp.el (byte-compile-unfold-bcf): Silence compiler warning. * lisp/thingatpt.el (forward-whitespace): Trivial coding style fix. * lisp/subr.el (with-output-to-temp-buffer): Provide an edebug spec. * lisp/international/ccl.el (ccl-compile): Trivial simplification. * lisp/help-fns.el (help-do-arg-highlight): Silence compiler warning. * lisp/emacs-lisp/testcover.el (testcover-end): Remove spurious `printflag' argument. * lisp/emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable): Purecopy the whole obsolescence data. --- src/bytecode.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/bytecode.c') diff --git a/src/bytecode.c b/src/bytecode.c index c3cd3d4307..74cf401bf1 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -144,7 +144,7 @@ Lisp_Object Qbytecode; #define Bcurrent_column 0151 #define Bindent_to 0152 #ifdef BYTE_CODE_SAFE -#define Bscan_buffer 0153 /* No longer generated as of v18 */ +#define Bscan_buffer 0153 /* No longer generated as of v18. */ #endif #define Beolp 0154 #define Beobp 0155 @@ -956,7 +956,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, save_restriction_save ()); break; - case Bcatch: /* FIXME: ill-suited for lexbind */ + case Bcatch: /* FIXME: ill-suited for lexbind. */ { Lisp_Object v1; BEFORE_POTENTIAL_GC (); @@ -966,11 +966,11 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, break; } - case Bunwind_protect: /* FIXME: avoid closure for lexbind */ + case Bunwind_protect: /* FIXME: avoid closure for lexbind. */ record_unwind_protect (Fprogn, POP); break; - case Bcondition_case: /* FIXME: ill-suited for lexbind */ + case Bcondition_case: /* FIXME: ill-suited for lexbind. */ { Lisp_Object handlers, body; handlers = POP; @@ -1779,8 +1779,8 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, PUSH (*ptr); break; } - /* stack-set-0 = discard; stack-set-1 = discard-1-preserve-tos. */ case Bstack_set: + /* stack-set-0 = discard; stack-set-1 = discard-1-preserve-tos. */ { Lisp_Object *ptr = top - (FETCH); *ptr = POP; -- cgit v1.2.3