Mercurial > hg > xemacs-beta

comparison lisp/config.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents d44af0c54775
children 3b3709405255
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
35 (defvar config-value-hash-table nil 35 (defvar config-value-hash-table nil
36 "Hashtable to store configuration parameters and their values.") 36 "Hashtable 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 "Returns hashtable of configuration parameters and their values." 40 "Return hashtable 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-hashtable 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)
63 63
64 ;;;###autoload 64 ;;;###autoload
65 (defun config-value (config-symbol) 65 (defun config-value (config-symbol)
66 "Return the value of the configuration parameter CONFIG_SYMBOL." 66 "Return the value of the configuration parameter CONFIG_SYMBOL."
67 (gethash config-symbol (config-value-hash-table))) 67 (gethash config-symbol (config-value-hash-table)))
68 68
69 (provide 'config) 69 (provide 'config)
70 ;;; config.el ends here 70 ;;; config.el ends here