diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-04-16 20:10:33 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-04-16 20:10:33 +0000 |
| commit | 582a857cccc54db98380937463bfe3b991ee58ea (patch) | |
| tree | 662f9eb8e96a1ed392978e26a4fb5411e31735a5 /lisp/emacs-lisp | |
| parent | 02ad7cbf43217841ee88ed0c6ff74876ef50a5be (diff) | |
| download | emacs-582a857cccc54db98380937463bfe3b991ee58ea.tar.gz emacs-582a857cccc54db98380937463bfe3b991ee58ea.tar.bz2 emacs-582a857cccc54db98380937463bfe3b991ee58ea.zip | |
(byte-compile-const-symbol-p): Rename arg.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index bb14315accf..3d1df929b5c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.123 $") +(defconst byte-compile-version "$Revision: 2.124 $") ;; This file is part of GNU Emacs. @@ -1315,13 +1315,13 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property." nil) -(defsubst byte-compile-const-symbol-p (symbol &optional value) +(defsubst byte-compile-const-symbol-p (symbol &optional any-value) "Non-nil if SYMBOL is constant. -If VALUE is nil, only return non-nil if the value of the symbol is the +If ANY-VALUE is nil, only return non-nil if the value of the symbol is the symbol itself." (or (memq symbol '(nil t)) (keywordp symbol) - (if value (memq symbol byte-compile-const-variables)))) + (if any-value (memq symbol byte-compile-const-variables)))) (defmacro byte-compile-constp (form) "Return non-nil if FORM is a constant." |