diff options
| author | Stefan Monnier | 2003-04-16 20:10:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-16 20:10:33 +0000 |
| commit | 582a857cccc54db98380937463bfe3b991ee58ea (patch) | |
| tree | 662f9eb8e96a1ed392978e26a4fb5411e31735a5 | |
| parent | 02ad7cbf43217841ee88ed0c6ff74876ef50a5be (diff) | |
| download | emacs-582a857cccc54db98380937463bfe3b991ee58ea.tar.gz emacs-582a857cccc54db98380937463bfe3b991ee58ea.zip | |
(byte-compile-const-symbol-p): Rename arg.
| -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 @@ | |||
| 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. |
| 1320 | If VALUE is nil, only return non-nil if the value of the symbol is the | 1320 | If ANY-VALUE is nil, only return non-nil if the value of the symbol is the |
| 1321 | symbol itself." | 1321 | symbol 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." |