Revert bogus revision 2001-02-20T10:59:03Z!fx@gnu.org.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index dc7e28b4ed12365b48645344c3d136a2bc7a2dd4..b28b52688c5d411b5f560ef64e0b916bf45ff612 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -757,17 +757,13 @@ button end points.
 Optional ARGS are extra keyword arguments for TYPE."
   (let ((widget (apply 'widget-convert type :delete 'widget-leave-text args))
        (from (copy-marker from))
-       (to (copy-marker to))
-       (personality (get-text-property from 'personality)))
+       (to (copy-marker to)))
     (set-marker-insertion-type from t)
     (set-marker-insertion-type to nil)
     (widget-put widget :from from)
     (widget-put widget :to to)
     (when button-from
       (widget-specify-button widget button-from button-to))
-    ;; W3 provides advice for this for Emacspeak's benefit.
-    (if personality
-       (put-text-property from to 'personality personality))
     widget))
 
 (defun widget-convert-button (type from to &rest args)
@@ -2377,51 +2373,12 @@ Return an alist of (TYPE MATCH)."
   ;; Pass notification to parent.
   (widget-apply widget :notify child event))
 
-;;; The `insert/delete-button' Widget.
-
-(define-widget 'insert/delete-button 'push-button
-  "An insert/delete item button for the `editable-list' widget."
-  :create (lambda (widget)
-           (let* ((map (make-sparse-keymap))
-                  (parent (widget-get widget :keymap)))
-             (if parent
-                 (set-keymap-parent map parent))
-             (define-key map [?\C-k] #'widget-list-item-delete)
-             (define-key map [?\C-o] #'widget-list-item-insert)
-             (widget-put widget :keymap map))
-           (widget-default-create widget))
-  :tag "+/-"
-  :help-echo "Insert or delete a new item into the list here"
-  :action 'widget-insert/delete-button-action)
-
-(defun widget-insert/delete-button-action (widget &optional event)
-  "Ask the parent to insert or delete a new item."
-  (if (y-or-n-p "Delete this item? (otherwise insert a new one)")
-      (widget-apply (widget-get widget :parent)
-                   :delete-at (widget-get widget :widget))
-    (widget-apply (widget-get widget :parent)
-                 :insert-before (widget-get widget :widget))))
-
-(defun widget-list-item-insert ()
-  "Delete the list item widget which is the parent of the widget at point."
-  (interactive)
-  (let ((widget (widget-at (point))))
-    (widget-apply (widget-get widget :parent)
-                 :insert-before (widget-get widget :widget))))
-
-(defun widget-list-item-delete ()
-  "Add a new list item widget after the parent of the widget at point."
-  (interactive)
-  (let ((widget (widget-at (point))))
-    (widget-apply (widget-get widget :parent)
-                 :delete-at (widget-get widget :widget))))
-
 ;;; The `insert-button' Widget.
 
 (define-widget 'insert-button 'push-button
-  "An append item button for the `editable-list' widget."
-  :tag "+"
-  :help-echo "Append a new item to the list"
+  "An insert button for the `editable-list' widget."
+  :tag "INS"
+  :help-echo "Insert a new item into the list at this position."
   :action 'widget-insert-button-action)
 
 (defun widget-insert-button-action (widget &optional event)
@@ -2429,6 +2386,19 @@ Return an alist of (TYPE MATCH)."
   (widget-apply (widget-get widget :parent)
                :insert-before (widget-get widget :widget)))
 
+;;; The `delete-button' Widget.
+
+(define-widget 'delete-button 'push-button
+  "A delete button for the `editable-list' widget."
+  :tag "DEL"
+  :help-echo "Delete this item from the list."
+  :action 'widget-delete-button-action)
+
+(defun widget-delete-button-action (widget &optional event)
+  ;; Ask the parent to insert a new item.
+  (widget-apply (widget-get widget :parent)
+               :delete-at (widget-get widget :widget)))
+
 ;;; The `editable-list' Widget.
 
 ;; (defcustom widget-editable-list-gui nil
@@ -2442,7 +2412,7 @@ Return an alist of (TYPE MATCH)."
   :offset 12
   :format "%v%i\n"
   :format-handler 'widget-editable-list-format-handler
-  :entry-format "%- %v"
+  :entry-format "%i %d %v"
   :menu-tag "editable-list"
   :value-create 'widget-editable-list-value-create
   :value-delete 'widget-children-value-delete
@@ -2566,7 +2536,7 @@ Return an alist of (TYPE MATCH)."
   ;; Create a new entry to the list.
   (let ((type (nth 0 (widget-get widget :args)))
 ;;;    (widget-push-button-gui widget-editable-list-gui)
-       child ins/del buttons)
+       child delete insert)
     (widget-specify-insert
      (save-excursion
        (and (widget-get widget :indent)
@@ -2578,11 +2548,14 @@ Return an alist of (TYPE MATCH)."
         (delete-backward-char 2)
         (cond ((eq escape ?%)
                (insert ?%))
-              ((eq escape ?-)
-               (setq ins/del (apply 'widget-create-child-and-convert
-                                    widget 'insert/delete-button
-                                    (widget-get widget
-                                                :insert/delete-button-args))))
+              ((eq escape ?i)
+               (setq insert (apply 'widget-create-child-and-convert
+                                   widget 'insert-button
+                                   (widget-get widget :insert-button-args))))
+              ((eq escape ?d)
+               (setq delete (apply 'widget-create-child-and-convert
+                                   widget 'delete-button
+                                   (widget-get widget :delete-button-args))))
               ((eq escape ?v)
                (if conv
                    (setq child (widget-create-child-value
@@ -2593,17 +2566,18 @@ Return an alist of (TYPE MATCH)."
                                             (widget-default-get type))))))
               (t
                (error "Unknown escape `%c'" escape)))))
-     (setq buttons (widget-get widget :buttons))
-     (if ins/del
-        (push ins/del buttons))
-     (widget-put widget :buttons buttons)
+     (widget-put widget
+                :buttons (cons delete
+                               (cons insert
+                                     (widget-get widget :buttons))))
      (let ((entry-from (point-min-marker))
           (entry-to (point-max-marker)))
        (set-marker-insertion-type entry-from t)
        (set-marker-insertion-type entry-to nil)
        (widget-put child :entry-from entry-from)
        (widget-put child :entry-to entry-to)))
-    (if ins/del (widget-put ins/del :widget child))
+    (widget-put insert :widget child)
+    (widget-put delete :widget child)
     child))
 
 ;;; The `group' Widget.
@@ -3014,7 +2988,6 @@ It will read a directory name from the minibuffer when invoked."
   "History of input to `widget-variable-prompt-value'.")
 
 (define-widget 'variable 'symbol
-  ;; Should complete on variables.
   "A Lisp variable."
   :prompt-match 'boundp
   :prompt-history 'widget-variable-prompt-value-history