Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children f53b5ca2e663
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.9956 7 ;; Version: 1.9958
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
134 (when (get symbol 'force-value) 134 (when (get symbol 'force-value)
135 ;; It no longer is. 135 ;; It no longer is.
136 (put symbol 'force-value nil)) 136 (put symbol 'force-value nil))
137 (when doc 137 (when doc
138 (put symbol 'variable-documentation doc)) 138 (put symbol 'variable-documentation doc))
139 (let ((initialize 'custom-initialize-set) 139 (let ((initialize 'custom-initialize-reset)
140 (requests nil)) 140 (requests nil))
141 (while args 141 (while args
142 (let ((arg (car args))) 142 (let ((arg (car args)))
143 (setq args (cdr args)) 143 (setq args (cdr args))
144 (unless (symbolp arg) 144 (unless (symbolp arg)