Mercurial > emacs

changeset 50618:ebecc2b80af6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-const-symbol-p): Rename arg.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Apr 2003 20:10:33 +0000
parents 9582ab8af8fe
children e27cb2931931
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Wed Apr 16 16:03:46 2003 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Apr 16 20:10:33 2003 +0000
@@ -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 @@
   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."