X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/d311d28c3f8a3c43e6ef33d68b852c5ea7f13239..35cf62d95cdcd5323dcea4a5385942c342ff1d9c:/src/data.c diff --git a/src/data.c b/src/data.c index 211a64661a..7c0d183034 100644 --- a/src/data.c +++ b/src/data.c @@ -1,5 +1,5 @@ /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. - Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2011 + Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2012 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -839,7 +839,7 @@ do_symval_forwarding (register union Lisp_Fwd *valcontents) case Lisp_Fwd_Kboard_Obj: /* We used to simply use current_kboard here, but from Lisp - code, it's value is often unexpected. It seems nicer to + code, its value is often unexpected. It seems nicer to allow constructions like this to work as intuitively expected: (with-selected-frame frame @@ -1094,7 +1094,7 @@ let_shadows_global_binding_p (Lisp_Object symbol) { struct specbinding *p; - for (p = specpdl_ptr; p > specpdl; p) + for (p = specpdl_ptr; p > specpdl; ) if ((--p)->func == NULL && EQ (p->symbol, symbol)) return 1; @@ -2028,7 +2028,7 @@ DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0, If OBJECT is not a symbol, just return it. Otherwise, follow all function indirections to find the final function binding and return it. If the final symbol in the chain is unbound, signal a void-function error. -Optional arg NOERROR non-nil means to return nil instead of signalling. +Optional arg NOERROR non-nil means to return nil instead of signaling. Signal a cyclic-function-indirection error if there is a loop in the function chain of symbols. */) (register Lisp_Object object, Lisp_Object noerror) @@ -2092,7 +2092,7 @@ or a byte-code object. IDX starts at 0. */) } else { - int size = 0; + ptrdiff_t size = 0; if (VECTORP (array)) size = ASIZE (array); else if (COMPILEDP (array))