diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-09 02:57:45 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-09 02:57:45 +0000 |
| commit | 18d433a76155f6079e14d27d5cd7edbc206cacef (patch) | |
| tree | 3720c496635da9fb765f3806f659e7477b5635c2 /lisp/subr.el | |
| parent | 1c292fc7de79735fdea7f6df03a6b2ce7100b285 (diff) | |
| download | emacs-18d433a76155f6079e14d27d5cd7edbc206cacef.tar.gz emacs-18d433a76155f6079e14d27d5cd7edbc206cacef.tar.bz2 emacs-18d433a76155f6079e14d27d5cd7edbc206cacef.zip | |
* subr.el: Provide hashtable-print-readable.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 37411bcb8ad..72c781ad490 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3647,5 +3647,14 @@ is greater than \"1pre\" which is greater than \"1beta\" which is greater than \"1alpha\"." (version-list-= (version-to-list v1) (version-to-list v2))) + +;;; Misc. + +;; The following statement ought to be in print.c, but `provide' can't +;; be used there. +(when (hash-table-p (car (read-from-string + (prin1-to-string (make-hash-table))))) + (provide 'hashtable-print-readable)) + ;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc ;;; subr.el ends here |