diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 11:19:45 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 11:19:45 -0300 |
| commit | 2462470b9ec3876a54f1ce4c70561c478ceaf714 (patch) | |
| tree | 1a2f4e03d44dca8c018b85005dbbbdc09a2584f8 /src/bytecode.c | |
| parent | 18613c7e90dbb95c077dfaee632ad4910c512db5 (diff) | |
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.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 10 |
1 files changed, 5 insertions, 5 deletions
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; |