aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-04-16 20:10:33 +0000
committerStefan Monnier2003-04-16 20:10:33 +0000
commit582a857cccc54db98380937463bfe3b991ee58ea (patch)
tree662f9eb8e96a1ed392978e26a4fb5411e31735a5
parent02ad7cbf43217841ee88ed0c6ff74876ef50a5be (diff)
downloademacs-582a857cccc54db98380937463bfe3b991ee58ea.tar.gz
emacs-582a857cccc54db98380937463bfe3b991ee58ea.zip
(byte-compile-const-symbol-p): Rename arg.
-rw-r--r--lisp/emacs-lisp/bytecomp.el8
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 @@
10 10
11;;; This version incorporates changes up to version 2.10 of the 11;;; This version incorporates changes up to version 2.10 of the
12;;; Zawinski-Furuseth compiler. 12;;; Zawinski-Furuseth compiler.
13(defconst byte-compile-version "$Revision: 2.123 $") 13(defconst byte-compile-version "$Revision: 2.124 $")
14 14
15;; This file is part of GNU Emacs. 15;; This file is part of GNU Emacs.
16 16
@@ -1315,13 +1315,13 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
1315 nil) 1315 nil)
1316 1316
1317 1317
1318(defsubst byte-compile-const-symbol-p (symbol &optional value) 1318(defsubst byte-compile-const-symbol-p (symbol &optional any-value)
1319 "Non-nil if SYMBOL is constant. 1319 "Non-nil if SYMBOL is constant.
1320If VALUE is nil, only return non-nil if the value of the symbol is the 1320If ANY-VALUE is nil, only return non-nil if the value of the symbol is the
1321symbol itself." 1321symbol itself."
1322 (or (memq symbol '(nil t)) 1322 (or (memq symbol '(nil t))
1323 (keywordp symbol) 1323 (keywordp symbol)
1324 (if value (memq symbol byte-compile-const-variables)))) 1324 (if any-value (memq symbol byte-compile-const-variables))))
1325 1325
1326(defmacro byte-compile-constp (form) 1326(defmacro byte-compile-constp (form)
1327 "Return non-nil if FORM is a constant." 1327 "Return non-nil if FORM is a constant."