Fix again.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 334017d53307d54145993a55c730dac5b45bf323..24038acf596636f99af9eb1ce5602f952d8b1a15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-30  Dave Love  <fx@gnu.org>
+
+       * cus-start.el: Fix read-buffer-function type.
+
 2000-11-30  Gerd Moellmann  <gerd@gnu.org>
 
        * md5.el: Removed.  There's a built-in function, now.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 2709588840e0102a6eb17a6fd79e4fb07dcd7f54..608d0bc7f8aa8419b1e328da17aa1999b745c97c 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -179,7 +179,10 @@
              "21.1")
             (minibuffer-auto-raise minibuffer boolean)
             ;; options property set at end
-            (read-buffer-function minibuffer (choice (const nil) function))
+            (read-buffer-function minibuffer
+                                  (choice (const nil)
+                                          (function-item iswitchb-read-buffer)
+                                          function))
             ;; msdos.c
             (dos-unsupported-char-glyph display integer)
             ;; process.c
@@ -295,7 +298,6 @@
        (put symbol 'custom-type type)
        (put symbol 'custom-version version)))))
 
-(custom-add-option 'read-buffer-function 'iswitchb-read-buffer)
 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
 
 ;; Record cus-start as loaded