Remove Emacs 20 hash table compatibility code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b99ab4..bd649c9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * spam-stat.el (with-syntax-table): Remove with-syntax-table
        definition.
+       Remove Emacs 20 hash table compatibility code.
 
        * rfc2047.el (with-syntax-table): Remove with-syntax-table Emacs
        20 compatibility code.

diff --git a/lisp/spam-stat.el b/lisp/spam-stat.el
index 2f31f0e..bbbba63 100644 (file)
--- a/lisp/spam-stat.el
+++ b/lisp/spam-stat.el
@@ -193,16 +193,6 @@ This is set by hooking into Gnus.")
 (defvar spam-stat-buffer-name " *spam stat buffer*"
   "Name of the `spam-stat-buffer'.")
 
-;; Functions missing in Emacs 20
-
-(when (memq nil (mapcar 'fboundp
-                       '(gethash hash-table-count make-hash-table
-                                 mapc puthash)))
-  (require 'cl)
-  (unless (fboundp 'puthash)
-    ;; alias puthash is missing from Emacs 20 cl-extra.el
-    (defalias 'puthash 'cl-puthash)))
-
 ;; Hooking into Gnus
 
 (defun spam-stat-store-current-buffer ()