(Fy_or_n_p, Fyes_or_no_p): Obey use_dialog_box.
(use_dialog_box): New variable, controls whether to use dialog boxes.
(syms_of_fns): Set up Lisp variable.
(concat): Use XCONS rather than Fcar, Fcdr--for known cons.
(Fassq, assq_no_quit, Fassoc, Frassq, Frassoc, Fdelq): Likewise.
(Fdelete, Fplist_get, mapcar1, Fmember, Fmemq): Likewise.
(GETOPTOBJS, GETOPTDEFS, MOVEMAILOBJS): Define.
(movemail.exe): Depend upon and link with getopt files.
(obj): Include new source files.
(FACE_SUPPORT, MOUSE_SUPPORT, FLOAT_SUPPORT, WINNT_SUPPORT): Define.
(lisp): Include new and reorganized elisp files.
(wait_reading_process_input): If wait_for_cell,
do check for keyboard input and swallow events, just don't exit.
(max): New macro.
(wait_reading_process_input): Pass a smaller first arg to select.
(nonincremental-repeat-search-forward)
(nonincremental-repeat-search-backward)
(nonincremental-repeat-re-search-forward)
(nonincremental-repeat-re-search-backward):
Special error check for no previous search.
(lisptagsfiles): Look at subdirs only if name
starts with a letter.
(dontcompilefiles): Don't compile latin-5.el.
(updates): Reject subdirs whose names start with =.
(custom-deps, finder-data, autoloads, update-subdirs): Likewise.
(toggle-scroll-bar): Moved from frame.el.
Use scroll-bar-mode to determine which side; if it's nil, use left.
(set-scroll-bar-mode): New subroutine, taken from scroll-bar-mode.
(scroll-bar-mode): Use the variable set-scroll-bar-mode.
(scroll-bar-mode): New variable.
(toggle-horizontal-scroll-bar): Moved from frame.el.
(file-chase-links): When handling .., make newname absolute.
Simplify several places.
(file-relative-name): Handle directory names as well as file names.
Don't get fooled by empty directory names, etc.
(widget-choice-action): Use widget-edit-functions.
(widget-toggle-action): Likewise.
(widget-choose): Use only digits, except for C-g.
Allocate digits to disabled commands too.
Don't use a keyboard menu; instead, display a buffer
listing all the alternatives. Put cursor in echo area.
(Custom-move-and-invoke): New command.
(custom-mode-map): Bind Custom-move-and-invoke to mouse-1.
(custom-buffer-create-internal): Update buffer help text.
(custom-variable-menu): Clarify menu item names.
(custom-buffer-create-internal): Clarify button names.
Changed some documentation.
(view-exits-all-viewing-windows): Nev variable
replaces view-exit-all-windows-at-exit.
(view-exit-all-windows-at-exit): Variable deleted.
(view-mode-enter): Doesn't set view-exit-action if
argument exit-action is nil.
(view-mode-exit): Only restored windows are removed
from view-return-to-alist. Follow chains of old-windows.
Do not call replace-buffer-in-windows.
Call exit-action also when a window displays buffer.
(View-exit-and-edit): Now sets read-only by binding
view-old-buffer-read-only.
(prepare_to_modify_buffer, signal_before_change):
New argument PRESERVE_PTR.
(del_range_1): Use PRESERVE_PTR to preserve FROM.
Save the length of the range separately.
(NULL): Define if not defined.
(read_minibuf): New arg allow_props.
If it is 0, discard text properties from the result. Callers changed.
(minibuffer_allow_text_properties): New variable.
(Fread_from_minibuffer): That variable controls allow_props arg.
(syms_of_minibuf): Set up Lisp var.
(isearch-search-and-update): When a reverse search
need not actually search, update isearch-case-fold-search anyway.
(isearch-mode-map): Define latin-iso8859-9 as self-searching.
(custom-documentation-face): New face.
(custom-mode): Use custom-documentation-face for doc strings.
(custom-group-link): Fix the help string.
(custom-magic-show): Doc fix.
(custom-group-value-create): In links style,
use Go to Group instead of Show.
(Custom-goto-parent): New command.
(custom-mode-map): Bind u to Custom-goto-parent.
Bind SPC and DEL.
(custom-buffer-create-internal): Improve help for buttons.
(custom-button-face): New defface.
(custom widget-type): Use custom-button-face for buttons.
(custom-group-tag-faces): Initial value is nil.
(custom-variable-tag-face): Renamed from custom-variable-sample-face.
Initialize it like custom-group-tag-face.
(custom-group-tag-faces): Initialize to nil.
(custom-state-face): New defface.
(custom-magic-value-create):
Use custom-state-face for long State descriptions.
(custom-state-buffer-message): Display the message
only if the item is modified. Take widget as arg.
(custom-mode): Use widget-edit-functions.
(Custom-set): Renamed from custom-set.
(Custom-save): Renamed from custom-save.
(custom-browse-sort-predicate): Defalias deleted.
(custom-group-value-create): Don't sort, in tree mode.
(Custom-mode-menu): Renamed from custom-mode-menu.
(Custom-reset-current): Renamed from custom-reset-current.
(Custom-reset-saved): Renamed from custom-reset-saved.
(Custom-reset-standard): Renamed from custom-reset-standard.
(Custom-menu-update): Renamed from custom-menu-update.
(customize-set-value): Renamed from custom-set-value.
(customize-set-variable): Renamed from custom-set-variable.
Paul Eggert [Tue, 24 Jun 1997 10:48:10 +0000 (10:48 +0000)]
(perform-replace): When matching regexps, if the next match is
adjacent to this one, record the next match before replacing this one.
This fixes a bug where (replace-regexp "\\ba " "c") replaced "a a a "
with "ca c" instead of "ccc".