comparison lisp/custom.el @ 28171:08317cc36a7b

Comments only.
author Dave Love <fx@gnu.org>
date Thu, 16 Mar 2000 22:12:57 +0000
parents 755f54893c1f
children 00dcb25bfffd
comparison
equal deleted inserted replaced
28170:5427762a58a5 28171:08317cc36a7b
3 ;; Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: help, faces 7 ;; Keywords: help, faces
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ (probably obsolete)
9 8
10 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
11 10
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
108 not the default value itself." 107 not the default value itself."
109 ;; Remember the standard setting. 108 ;; Remember the standard setting.
110 (put symbol 'standard-value (list default)) 109 (put symbol 'standard-value (list default))
111 ;; Maybe this option was rogue in an earlier version. It no longer is. 110 ;; Maybe this option was rogue in an earlier version. It no longer is.
112 (when (get symbol 'force-value) 111 (when (get symbol 'force-value)
113 ;; It no longer is.
114 (put symbol 'force-value nil)) 112 (put symbol 'force-value nil))
115 (when doc 113 (when doc
116 (put symbol 'variable-documentation doc)) 114 (put symbol 'variable-documentation doc))
117 (let ((initialize 'custom-initialize-reset) 115 (let ((initialize 'custom-initialize-reset)
118 (requests nil)) 116 (requests nil))