[Emacs-diffs] master f52892f 1/2: isearch: Fix bug in defstruct syntax

[Johan Bockgard]

branch: master
commit f52892fe01fec19860c198036fea1251b05ce18e
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>

    isearch: Fix bug in defstruct syntax
    
    * lisp/isearch.el (isearch--state): Use correct form of defstruct slot
    options.  (Bug#24685)
---
 lisp/isearch.el |   24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 0416b08..9418064 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1145,18 +1145,18 @@ REGEXP if non-nil says use the regexp search ring."
                  (case-fold-search isearch-case-fold-search)
                  (pop-fun (if isearch-push-state-function
                               (funcall isearch-push-state-function))))))
-  (string :read-only t)
-  (message :read-only t)
-  (point :read-only t)
-  (success :read-only t)
-  (forward :read-only t)
-  (other-end :read-only t)
-  (word :read-only t)
-  (error :read-only t)
-  (wrapped :read-only t)
-  (barrier :read-only t)
-  (case-fold-search :read-only t)
-  (pop-fun :read-only t))
+  (string nil :read-only t)
+  (message nil :read-only t)
+  (point nil :read-only t)
+  (success nil :read-only t)
+  (forward nil :read-only t)
+  (other-end nil :read-only t)
+  (word nil :read-only t)
+  (error nil :read-only t)
+  (wrapped nil :read-only t)
+  (barrier nil :read-only t)
+  (case-fold-search nil :read-only t)
+  (pop-fun nil :read-only t))
 
 (defun isearch--set-state (cmd)
   (setq isearch-string (isearch--state-string cmd)