mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-const-symbol-p): Rename arg.

Browse source
This commit is contained in:
Stefan Monnier 2003-04-16 20:10:33 +00:00
parent 02ad7cbf43
commit 582a857ccc
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -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."