procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Dave Love 2001-02-20 10:56:15 +00:00
parent 54ed3bd2f1
commit 2ff864e0b3
1 changed files with 33 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

93
lisp/wid-edit.el
View file

@ -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