diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-06-18 09:11:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-06-18 09:11:47 -0400 |
| commit | 4a330052b4815cf833071aae5cb312f6f0f63613 (patch) | |
| tree | 5384a188f6767e822ed6437861b97e08efb5c60a /lisp/emacs-lisp | |
| parent | 3c3ddb9833996729545bb4909bea359e5dbaa02e (diff) | |
| download | emacs-4a330052b4815cf833071aae5cb312f6f0f63613.tar.gz emacs-4a330052b4815cf833071aae5cb312f6f0f63613.tar.bz2 emacs-4a330052b4815cf833071aae5cb312f6f0f63613.zip | |
* src/eval.c (Fspecial_variable_p): Rename from `specialp'.
* lisp/emacs-lisp/byte-lexbind.el (byte-compile-compute-lforminfo):
specialp -> special-variable-p.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-lexbind.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 <miles@gnu.org> ;; 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)) |