Mercurial > hg > xemacs-beta

comparison lisp/config.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
31 31
32 (defvar config-value-file (expand-file-name "config.values" exec-directory) 32 (defvar config-value-file (expand-file-name "config.values" exec-directory)
33 "File containing configuration parameters and their values.") 33 "File containing configuration parameters and their values.")
34 34
35 (defvar config-value-hash-table nil 35 (defvar config-value-hash-table nil
36 "Hashtable to store configuration parameters and their values.") 36 "Hash table to store configuration parameters and their values.")
37 37
38 ;;;###autoload 38 ;;;###autoload
39 (defun config-value-hash-table () 39 (defun config-value-hash-table ()
40 "Return hashtable of configuration parameters and their values." 40 "Return hash table of configuration parameters and their values."
41 (when (null config-value-hash-table) 41 (when (null config-value-hash-table)
42 (setq config-value-hash-table (make-hashtable 300)) 42 (setq config-value-hash-table (make-hash-table :size 300))
43 (save-excursion 43 (save-excursion
44 (let ((buf (get-buffer-create " *Config*"))) 44 (let ((buf (get-buffer-create " *Config*")))
45 (set-buffer buf) 45 (set-buffer buf)
46 (erase-buffer) 46 (erase-buffer)
47 (insert-file-contents config-value-file) 47 (insert-file-contents config-value-file)