Mercurial > emacs
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)) |