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

1 files changed, 33 insertions, 60 deletions

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index dc7e28b4ed1..b28b52688c5 100644
--- 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