Make some doc strings obey the make-docfile convention.

[bpt/emacs.git] / lisp / wid-edit.el

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index d7cf8cd..e0e58cb 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1048,11 +1048,9 @@ POS defaults to the value of (point)."
            widget))
       nil)))
 
-(defcustom widget-use-overlay-change (string-match "XEmacs" emacs-version)
+(defvar widget-use-overlay-change t
   "If non-nil, use overlay change functions to tab around in the buffer.
-This is much faster, but doesn't work reliably on Emacs 19.34."
-  :type 'boolean
-  :group 'widgets)
+This is much faster, but doesn't work reliably on Emacs 19.34.")
 
 (defun widget-move (arg)
   "Move point to the ARG next field or button.
@@ -1243,10 +1241,12 @@ Unlike (get-char-property POS 'field) this, works with empty fields too."
          (to-field (widget-field-find to)))
       (cond ((not (eq from-field to-field))
             (add-hook 'post-command-hook 'widget-add-change nil t)
-            (error "Change should be restricted to a single field"))
+            (signal 'text-read-only
+                    '("Change should be restricted to a single field")))
            ((null from-field)
             (add-hook 'post-command-hook 'widget-add-change nil t)
-            (error "Attempt to change text outside editable field"))
+            (signal 'text-read-only
+                    '("Attempt to change text outside editable field")))
            (widget-field-use-before-change
             (condition-case nil
                 (widget-apply from-field :notify from-field)
@@ -1947,7 +1947,7 @@ If END is omitted, it defaults to the length of LIST."
        (explicit (widget-get widget :explicit-choice))
        (explicit-value (widget-get widget :explicit-choice-value))
        current)
-    (if (and explicit (eq value explicit-value))
+    (if (and explicit (equal value explicit-value))
        (progn
          ;; If the user specified the choice for this value,
          ;; respect that choice as long as the value is the same.