diff options
| author | Dave Love <fx@gnu.org> | 1999-12-18 17:28:36 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-12-18 17:28:36 +0000 |
| commit | 2412aadb49deafbd9a5ea040ad2f9d956d93bd02 (patch) | |
| tree | 9d1c61409eecadaac2f80b3657d0e5424970c947 /lisp/emacs-lisp/byte-opt.el | |
| parent | 76f639b0bc1c47290ac1f8c1199da599e2c13a2b (diff) | |
| download | emacs-2412aadb49deafbd9a5ea040ad2f9d956d93bd02.tar.gz emacs-2412aadb49deafbd9a5ea040ad2f9d956d93bd02.tar.bz2 emacs-2412aadb49deafbd9a5ea040ad2f9d956d93bd02.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index ccb9e1b5f77..c955a6aa0f2 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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 |