diff options
| author | Gerd Moellmann | 2001-08-03 15:12:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-08-03 15:12:39 +0000 |
| commit | be48584dab8a352429f56f1972c741175aa89f6f (patch) | |
| tree | aa094b0dec387e0d60324ead8f49d5343f0f1639 | |
| parent | 5e1f85e0af32a82baff430dc30af4b12b487a6f8 (diff) | |
| download | emacs-be48584dab8a352429f56f1972c741175aa89f6f.tar.gz emacs-be48584dab8a352429f56f1972c741175aa89f6f.zip | |
(custom-set-variables): Don't test `custom-requests'
properties, check the third element of the options passed to
custom-set-variables instead.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/custom.el | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9a2bacef248..c546d160e01 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,11 @@ | |||
| 1 | 2001-08-03 Gerd Moellmann <gerd@gnu.org> | 1 | 2001-08-03 Gerd Moellmann <gerd@gnu.org> |
| 2 | 2 | ||
| 3 | * custom.el (custom-set-variables): Don't test `custom-requests' | ||
| 4 | properties, check the third element of the options passed to | ||
| 5 | custom-set-variables instead. | ||
| 6 | |||
| 3 | * info.el (info-insert-file-contents): Use info-file-exists-p | 7 | * info.el (info-insert-file-contents): Use info-file-exists-p |
| 4 | instread of file-exists-p. | 8 | instead of file-exists-p. |
| 5 | 9 | ||
| 6 | * play/zone.el (zone-pgm-stress): Use unwind-protect to make sure | 10 | * play/zone.el (zone-pgm-stress): Use unwind-protect to make sure |
| 7 | the mode-line face is restored. Fix several bugs. | 11 | the mode-line face is restored. Fix several bugs. |
diff --git a/lisp/custom.el b/lisp/custom.el index 8231fd9ab0f..e708f166779 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -451,7 +451,7 @@ COMMENT is a comment string about SYMBOL." | |||
| 451 | ;; that the mode function will see other | 451 | ;; that the mode function will see other |
| 452 | ;; customized values rather than default | 452 | ;; customized values rather than default |
| 453 | ;; values. | 453 | ;; values. |
| 454 | (t (get sym2 'custom-requests))))))) | 454 | (t (nth 3 a2))))))) |
| 455 | (while args | 455 | (while args |
| 456 | (let ((entry (car args))) | 456 | (let ((entry (car args))) |
| 457 | (if (listp entry) | 457 | (if (listp entry) |