X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fconfig.el;h=50fdd036252303ee177b5c89e2f33d3ad366da71;hb=c72d271c3325b14b8f28639e8108836675ee80ff;hp=67d8f8c8f3e7faab5a975493cecac81d86097147;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/config.el b/lisp/config.el
index 67d8f8c..50fdd03 100644
--- a/lisp/config.el
+++ b/lisp/config.el
@@ -29,17 +29,17 @@
 ;;; Code:
 
 
-(defvar config-value-file (expand-file-name "config.values" exec-directory)
+(defvar config-value-file (expand-file-name "config.values" doc-directory)
   "File containing configuration parameters and their values.")
 
 (defvar config-value-hash-table nil
-  "Hashtable to store configuration parameters and their values.")
+  "Hash table to store configuration parameters and their values.")
 
 ;;;###autoload
 (defun config-value-hash-table ()
-  "Return hashtable of configuration parameters and their values."
+  "Return hash table of configuration parameters and their values."
   (when (null config-value-hash-table)
-    (setq config-value-hash-table (make-hashtable 300))
+    (setq config-value-hash-table (make-hash-table :size 300))
     (save-excursion
       (let ((buf (get-buffer-create " *Config*")))
 	(set-buffer buf)