Mercurial > emacs
changeset 26941:8584ef89a2bd
Don't put optimization info on `eql'.
(side-effect-free-fns): Add gethash, hash-table-count.
(side-effect-and-error-free-fns): Add hash-table-p.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 18 Dec 1999 17:28:36 +0000 |
| parents | f1998d661bc2 |
| children | 2f77d6176df4 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Sat Dec 18 17:10:56 1999 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Sat Dec 18 17:28:36 1999 +0000 @@ -856,7 +856,6 @@ (put '= 'byte-optimizer 'byte-optimize-binary-predicate) (put 'eq 'byte-optimizer 'byte-optimize-binary-predicate) -(put 'eql 'byte-optimizer 'byte-optimize-binary-predicate) (put 'equal 'byte-optimizer 'byte-optimize-binary-predicate) (put 'string= 'byte-optimizer 'byte-optimize-binary-predicate) (put 'string-equal 'byte-optimizer 'byte-optimize-binary-predicate) @@ -1140,7 +1139,8 @@ file-directory-p file-exists-p file-locked-p file-name-absolute-p file-newer-than-file-p file-readable-p file-symlink-p file-writable-p float floor format frame-visible-p - get get-buffer get-buffer-window getenv get-file-buffer + get gethash get-buffer get-buffer-window getenv get-file-buffer + hash-table-count int-to-string keymap-parent length local-variable-if-set-p local-variable-p log log10 logand logb logior lognot logxor lsh @@ -1161,8 +1161,9 @@ car-safe case-table-p cdr-safe char-or-string-p commandp cons consp current-buffer current-global-map current-indentation current-local-map current-minor-mode-maps - dot dot-marker eobp eolp eq eql equal eventp floatp framep + dot dot-marker eobp eolp eq equal eventp floatp framep get-largest-window get-lru-window + hash-table-p identity ignore integerp integer-or-marker-p interactive-p invocation-directory invocation-name keymapp