Commit graph

81 commits

Author SHA1 Message Date
Miles Bader
0697c66283 (widget-end-of-line): Reinstate, with a new definition, so that trailing
spaces are handled properly.
(widget-field-keymap, widget-text-keymap): Likewise C-e binding.
2000-11-03 12:54:52 +00:00
Stefan Monnier
093849f9ca (widget-add-change): Don't bother with make-local-hook. 2000-10-27 00:54:52 +00:00
Dave Love
5701edda1e (widget-specify-field): Revert to using local-map
property, not keymap.
2000-10-26 09:21:21 +00:00
Miles Bader
c1545d885d (widget-field-end):
When checking for a `boundary' field, do so in the correct buffer.
2000-10-26 08:22:40 +00:00
Dave Love
f4b020f69a Don't
inherit from global-map and don't nullify menu-bar and tool-bar
bindings since keymap properties DTRT.
2000-10-25 09:55:35 +00:00
Miles Bader
a850ac03f0 (widget-field-at): New function.
(widget-at, widget-field-activate): Use it.
(widget-tabable-at): Use `widget-at'.
(widget-specify-field): If the terminating character of the widget
  field (which is read-only) is a newline, put it into a special
  `boundary' field so that C-n/C-p act more naturally.
(widget-field-end): Also don't subtract one if a special
  `boundary' field has been added after the widget field.
2000-10-25 07:16:44 +00:00
Miles Bader
8b9a0f4516 (widget-beginning-of-line, widget-end-of-line):
Replace with aliases of the normal emacs b-o-l/e-o-l functions.
(widget-field-keymap, widget-text-keymap):
  Don't bind C-a/C-e.
2000-10-25 05:37:15 +00:00
Gerd Moellmann
7f779379f6 (widget-field-keymap, widget-text-keymap): Define
the tool-bar map as nil, as for the menu-bar.  Otherwise, we'll
get duplicate tool-bar entries because we'll see the global ones
on more than one path through keymaps.
2000-10-24 12:27:45 +00:00
Dave Love
820d41817c (widget-default-format-handler): DTRT when
doc-property is a function.
2000-09-13 10:34:52 +00:00
Dave Love
1d86963473 (widget-sexp-validate): Fix garbled code. 2000-09-04 09:40:27 +00:00
Dave Love
7fdbdbeadb (widget-choose, widget-choice-mouse-down-action):
Don't test x-popup-menu.
(function) <complete-function>: Complete only fbound symbols.
<validate, value>: New.
(variable) <complete-function>: Complete only bound symbols.
(coding-system): Add :base-only, :complete-function, :validate,
:value, :prompt-match.
(widget-coding-system-prompt-value): Use read-coding-system and
act on :base-only.
(editable-field): Add :help-echo.
(widget-push-button-gui, widget-push-button-cache)
(widget-gui-action, widget-editable-list-gui): COmment out, along
with uses.
(widget-at): Make arg optional.
(widget-echo-help): Adjust for current help-echo calling sequence.
(widget-specify-field, widget-specify-button)
(widget-specify-insert, widget-get-sibling, widget-image-find)
(widget-convert, widget-insert, widget-leave-text)
(widget-beginning-of-line, widget-end-of-line, widget-kill-line)
(widget-setup, widget-field-find, widget-before-change)
(widget-after-change, widget-default-complete)
(widget-default-create, widget-default-delete)
(widget-push-button-value-create, editable-field)
(widget-field-prompt-value, widget-field-validate)
(widget-choice-value-create, widget-choice-action)
(widget-choice-validate, widget-checklist-add-item)
(widget-radio-add-item, widget-radio-chosen)
(widget-radio-value-inline, widget-editable-list-value-create)
(widget-editable-list-entry-create)
(widget-documentation-link-add)
(widget-documentation-string-value-create)
(widget-regexp-validate, widget-file-complete)
(widget-sexp-validate, widget-plist-convert-widget)
(widget-plist-convert-widget, widget-alist-convert-widget)
(widget-alist-convert-widget, widget-color-complete): Simplify,
particularly to avoid bindings which aren't optimized out.
2000-08-20 18:34:24 +00:00
Eli Zaretskii
e2c00a4719 (widget-choose): Use display-mouse-p instead of window-system.
(widget-choice-mouse-down-action): Use display-popup-menus-p
instead of window-system.
2000-07-31 15:35:08 +00:00
Dave Love
aeba6f9ad3 (widget-specify-field, widget-specify-button): Allow
non-string help-echo.
(widget-types-convert-widget): Defsubst it.
(widget-echo-help): Try to cope with a help-echo function of two
possible sorts.
2000-07-16 15:27:43 +00:00
Stefan Monnier
ff83e96868 (widget-member): Use the new plist-member. 2000-06-26 21:56:10 +00:00
Dave Love
35a7ac8446 (widget-specify-button): Really suppress the face if required. 2000-06-11 23:02:14 +00:00
Dave Love
bfa6c26084 byte-compile-dynamic since we typically don't use
all the widgets.  Don't require cl or widget.  Remove
eval-and-compile.  Don't autoload finder-commentary.  Doc fixes.
(widget-read-event): Removed.  Callers changed to use read-event.
(widget-button-release-event-p): Renamed from
button-release-event-p.
(widget-field-add-space, widget-field-use-before-change):
Uncustomize.
(widget-specify-field): Use keymap property, not local-map.
(widget-specify-button): Obey :suppress-face.
(widget-specify-insert): Use modern backquote syntax.
(widget-image-directory): Renamed from widget-glyph-directory.
(widget-image-enable): Renamed from widget-glyph-enable.
(widget-image-find): Replaces widget-glyph-find.
(widget-button-pressed-face): Move defvar.
(widget-image-insert): Replaces widget-glyph-insert.
(widget-convert): Use keywordp.
(widget-leave-text, widget-children-value-delete): Use mapc.
(widget-keymap): Remove XEmacs stuff.
(widget-field-keymap, widget-text-keymap): Define all inside
defvar.
(widget-button-click): Don't set point at the click, but re-centre
if we scroll out of window.  Rewritten for images v. glyphs &c.
(widget-tabable-at): Use POS arg, not point.
(widget-beginning-of-line, widget-end-of-line)
(widget-item-value-create, widget-sublist, widget-princ-to-string)
(widget-sexp-prompt-value, widget-echo-help): Simplify.
(widget-default-create): Use widget-image-insert; some rewriting.
(widget-visibility-value-create)
(widget-push-button-value-create, widget-toggle-value-create): Use
widget-image-insert.
(checkbox): Create on and off images dynamically.
(documentation-link): Change :help-echo.
(widget-documentation-link-echo-help): Remove.
2000-06-03 16:43:02 +00:00
Gerd Moellmann
0640c6478b (widget-default-active): Obey `:always-active'.
(widget-documentation-string-value-create): Set `:always-active'.
2000-05-02 13:42:46 +00:00
Dave Love
b2aeee30bf 2000-02-02 Per Abrahamsen <abraham@dina.kvl.dk>
* wid-edit.el (widget-match-inline): An atom never matches a
          list.
2000-02-16 13:28:33 +00:00
Dave Love
99f016129e (widgets) [defgroup]: Remove url link.
(widget-color-choice-list, widget-color-history, widget-mouse-help):
Deleted.
(widget-specify-field, widget-specify-button): Don't use
widget-mouse-help as help-echo property.
(default): Use #'ignore for :validate and :mouse-down-action.
(checkbox): Add help-echo.
(widget-sexp-validate): Rewritten to clarify error messages.
(character): Use char-valid-p in :match function.
(widget-color-complete): Use facemenu-color-alist.
(widget-color-action): Use facemenu-read-color.
2000-02-10 17:47:48 +00:00
Gerd Moellmann
e006fe5ab6 (widget-button-click): Wrap with save-excursion
to restore track-mouse in the correct buffer.
1999-11-09 13:43:40 +00:00
Dave Love
a89a9d34dc Remove some compatibility code and checks.
(widget-specify-field, widget-specify-button): Don't use XEmacs
properties.
(widget-overlay-inactive): Change error message.
(widget-button-pressed-face): New variable.
(widget-button-click): Use it.
(widget-documentation-link-add): Specify mouse and button faces.
(widget-echo-help-mouse, widget-stop-mouse-tracking): Functions removed
now the functionality is built in.
1999-09-13 13:54:33 +00:00
Dave Love
35194e3f1a (widget-use-overlay-change): Uncustomize and make it unconditionally t. 1999-07-20 22:53:17 +00:00
Karl Heuer
808bcfd2c7 (widget-before-change): Signal text-read-only rather
than an ordinary error.
1999-03-30 18:09:57 +00:00
Richard M. Stallman
1468535ed1 (widget-choice-value-create): Use equal' instead of eq'. 1999-02-15 12:07:01 +00:00
Richard M. Stallman
31d5543d2c (widget-alist-convert-option): Delete spurious comma.
(widget-plist-convert-option): Delete spurious comma.
1999-01-20 07:11:00 +00:00
Richard M. Stallman
a7013a02d0 (alist): Use sexp as default key-type. 1999-01-19 18:45:08 +00:00
Markus Rost
4200b742d9 Fix typo. 1999-01-18 09:44:54 +00:00
Richard M. Stallman
fc56773e1f (plist, alist): New widget types.
(coding-system): Define this unconditionally.
1999-01-18 01:02:58 +00:00
Karl Heuer
703c3a110b (widget-menu-max-shortcuts): New variable.
(widget-choose): Don't use single-char shortcuts if # items
exceeds that many.  Use minibuffer instead.
1998-09-13 03:36:27 +00:00
Richard M. Stallman
23c1c5525d (widget-beginning-of-line): Properly handle
multiline fields.  Don't use call-interactively.
(widget-end-of-line): Likewise.
1998-08-08 02:34:05 +00:00
Richard M. Stallman
416cd771be (widget-default-get): Doc fix.
(widget-editable-list-entry-create): Apply :value-to-external to
the value returned from wiget-default-get.
1998-06-15 22:07:42 +00:00
Richard M. Stallman
b720878d35 (other): Doc fix. 1998-06-13 05:04:42 +00:00
Richard M. Stallman
e9367b9c2a (widget-specify-secret): New function.
(widget-after-change): Use it.
(widget-specify-field): Use it.
1998-06-10 05:08:04 +00:00
Richard M. Stallman
cc0a25e146 (other): New widget type. 1998-06-10 04:19:36 +00:00
Richard M. Stallman
be96282a73 (widgets: sexp, variable, list, vector): Doc fixes. 1998-05-09 07:12:14 +00:00
Richard M. Stallman
783824f57e (default, widget-default-default-get): Define it.
(group, widget-group-default-get): Define it.
(menu-choice, widget-choice-default-get): Define it.
(widget-default-get): New function.
(widget-choice-action): Call it.
(widget-editable-list-entry-create): Call it.
1998-04-08 07:26:54 +00:00
Richard M. Stallman
1703018330 (widget-beginning-of-line): Don't set zmacs-region-stays.
(widget-end-of-line): Likewise.
(widget-glyph-click): Use read-event.
(widget-color-choice-list): Delete compatibility code.
(widget-color-sample-face-get): Likewise.
(widget-choose): Likewise.
(widget-event-point): Fix paren error.
1998-04-02 06:41:37 +00:00
Richard M. Stallman
4084d12891 Delete some compatibility code.
(widget-event-point, widget-read-event): Define unconditionally.

(widget-echo-help-mouse): Don't use window-end.

(widget-choice-value-create): If there is an :explicit-choice, respect it.
(widget-choice-action): Record an explicit choice in :explicit-choice.
1998-04-02 06:33:26 +00:00
Per Abrahamsen
af0f19d71b Use browse-url directly. 1998-03-04 10:48:19 +00:00
Karl Heuer
4d52438ece (widget-choose): Allow scrolling of large lists. 1997-12-19 14:46:20 +00:00
Karl Heuer
a59b702540 (variable-link): New widget.
(widget-variable-link-action): New function.
(function-link): New widget.
(widget-function-link-action): New function.
1997-10-16 18:22:36 +00:00
Karl Heuer
d6bc306b43 (widget-button-click): Move point to where clicked. 1997-10-15 23:57:19 +00:00
Karl Heuer
ba7fbe9273 (widget-plist-member): Move from here to src/fns.c;
translated into C for efficiency.
(widget-put, widget-get, widget-apply): Likewise.
1997-09-30 07:20:58 +00:00
Richard M. Stallman
540a8bd25e (widget-before-change): Obey `inhibit-read-only'. 1997-08-15 19:26:07 +00:00
Richard M. Stallman
33eae9c01b (widget-single-line-display-table): Variable
commented out; don't use it either.
1997-08-09 19:11:15 +00:00
Per Abrahamsen
4ee1cf9f78 Synched with 1.9951. 1997-07-28 15:46:57 +00:00
Richard M. Stallman
cfc198e540 (widget-field-use-before-change): Reenable for Emacs 20.
(widget-choose): Using keyboard, if all choices are
diabled, just report an error.
1997-07-06 23:12:14 +00:00
Per Abrahamsen
0f648ca2b9 Synched with 1.9945. 1997-07-04 12:52:14 +00:00
Per Abrahamsen
62f4466253 Synched with 1.9944. 1997-07-04 09:44:36 +00:00
Richard M. Stallman
2f47738170 (color-sample, editable-color): New widget types.
(widget-button-face): Default value widget-button-face.
(widget-default-button-face-get): Use variable widget-button-face.
1997-07-03 07:11:10 +00:00