New primitives sxhash-eq, sxhash-eql

* doc/lispref/hash.texi (Defining Hash), etc/NEWS: Document this.
* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns):
Add sxhash-equal, sxhash-eq, sxhash-eql.
* lisp/subr.el (sxhash): Now an alias for sxhash-equal.
* src/fns.c (Fsxhash_eq, Fsxhash_eql): New functions.n

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index b3bf4a58849..dbaf2bc6f6a 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1209,8 +1209,9 @@
          radians-to-degrees rassq rassoc read-from-string regexp-quote
          region-beginning region-end reverse round
          sin sqrt string string< string= string-equal string-lessp string-to-char
-         string-to-int string-to-number substring sxhash symbol-function
-         symbol-name symbol-plist symbol-value string-make-unibyte
+         string-to-int string-to-number substring
+         sxhash sxhash-equal sxhash-eq sxhash-eql
+         symbol-function symbol-name symbol-plist symbol-value string-make-unibyte
          string-make-multibyte string-as-multibyte string-as-unibyte
          string-to-multibyte
          tan truncate
diff --git a/lisp/subr.el b/lisp/subr.el
index cad6319f3b2..a6d6fa44ca1 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -66,6 +66,7 @@ For more information, see Info node `(elisp)Declaring Functions'."
 ;;;; Basic Lisp macros.
 
 (defalias 'not 'null)
+(defalias 'sxhash 'sxhash-equal)
 
 (defmacro noreturn (form)
   "Evaluate FORM, expecting it not to return.