aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-08-03 15:12:39 +0000
committerGerd Moellmann2001-08-03 15:12:39 +0000
commitbe48584dab8a352429f56f1972c741175aa89f6f (patch)
treeaa094b0dec387e0d60324ead8f49d5343f0f1639
parent5e1f85e0af32a82baff430dc30af4b12b487a6f8 (diff)
downloademacs-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/ChangeLog6
-rw-r--r--lisp/custom.el2
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 @@
12001-08-03 Gerd Moellmann <gerd@gnu.org> 12001-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)