From 4a330052b4815cf833071aae5cb312f6f0f63613 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 18 Jun 2010 09:11:47 -0400 Subject: * src/eval.c (Fspecial_variable_p): Rename from `specialp'. * lisp/emacs-lisp/byte-lexbind.el (byte-compile-compute-lforminfo): specialp -> special-variable-p. --- lisp/emacs-lisp/byte-lexbind.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-lexbind.el b/lisp/emacs-lisp/byte-lexbind.el index a01829abf50..df463c17549 100644 --- a/lisp/emacs-lisp/byte-lexbind.el +++ b/lisp/emacs-lisp/byte-lexbind.el @@ -1,6 +1,6 @@ ;;; byte-lexbind.el --- Lexical binding support for byte-compiler ;; -;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2010 Free Software Foundation, Inc. ;; ;; Author: Miles Bader ;; Keywords: lisp, compiler, lexical binding @@ -9,7 +9,7 @@ ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) +;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -123,7 +123,7 @@ The result is an `lforminfo' data structure." ;; Find the bound variables (dolist (clause (cadr form)) (let ((var (if (consp clause) (car clause) clause))) - (unless (or (specialp var) (memq var special)) + (unless (or (special-variable-p var) (memq var special)) (byte-compile-lforminfo-add-var lforminfo var t)))) ;; Analyze the body (unless (null (byte-compile-lforminfo-vars lforminfo)) @@ -137,7 +137,7 @@ The result is an `lforminfo' data structure." (when (and (consp clause) lforminfo) (byte-compile-lforminfo-analyze lforminfo (cadr clause) special nil)) - (unless (or (specialp var) (memq var special)) + (unless (or (special-variable-p var) (memq var special)) (byte-compile-lforminfo-add-var lforminfo var t)))) ;; Analyze the body (unless (null (byte-compile-lforminfo-vars lforminfo)) -- cgit v1.2.3