* doc/lispref/text.texi: Update symbols.
* lisp/simple.el (undo-auto--amalgamate,
undo-auto--current-boundary-timer): Make symbols public.
* src/cmds.c (Fself_insert_command,Fdelete_char): Call
updated symbol.
appropriate time.
@end defun
appropriate time.
@end defun
-@defun undo-auto--amalgamate
+@defun undo-auto-amalgamate
The editor command loop automatically calls @code{undo-boundary} just
before executing each key sequence, so that each undo normally undoes
the effects of one command. A few exceptional commands are
The editor command loop automatically calls @code{undo-boundary} just
before executing each key sequence, so that each undo normally undoes
the effects of one command. A few exceptional commands are
will be called in each of them.
@end defun
will be called in each of them.
@end defun
-@defvar undo-auto--boundary-timer
+@defvar undo-auto-current-boundary-timer
Some buffers, such as process buffers, can change even when no
commands are executing. In these cases, @code{undo-boundary} is
normally called periodically by the timer in this variable. Setting
Some buffers, such as process buffers, can change even when no
commands are executing. In these cases, @code{undo-boundary} is
normally called periodically by the timer in this variable. Setting
times an amalgamating command has been called, and the cdr are the
buffers that were changed during the last command.")
times an amalgamating command has been called, and the cdr are the
buffers that were changed during the last command.")
-(defvar undo-auto--current-boundary-timer nil
+(defvar undo-auto-current-boundary-timer nil
"Current timer which will run `undo-auto--boundary-timer' or nil.
If set to non-nil, this will effectively disable the timer.")
"Current timer which will run `undo-auto--boundary-timer' or nil.
If set to non-nil, this will effectively disable the timer.")
(defvar undo-auto--this-command-amalgamating nil
"Non-nil if `this-command' should be amalgamated.
This variable is set to nil by `undo-auto--boundaries' and is set
(defvar undo-auto--this-command-amalgamating nil
"Non-nil if `this-command' should be amalgamated.
This variable is set to nil by `undo-auto--boundaries' and is set
-by `undo-auto--amalgamate'." )
+by `undo-auto-amalgamate'." )
(defun undo-auto--needs-boundary-p ()
"Return non-nil if `buffer-undo-list' needs a boundary at the start."
(defun undo-auto--needs-boundary-p ()
"Return non-nil if `buffer-undo-list' needs a boundary at the start."
"Return the number of amalgamating last commands or nil.
Amalgamating commands are, by default, either
`self-insert-command' and `delete-char', but can be any command
"Return the number of amalgamating last commands or nil.
Amalgamating commands are, by default, either
`self-insert-command' and `delete-char', but can be any command
-that calls `undo-auto--amalgamate'."
+that calls `undo-auto-amalgamate'."
(car-safe undo-auto--last-boundary-cause))
(defun undo-auto--ensure-boundary (cause)
(car-safe undo-auto--last-boundary-cause))
(defun undo-auto--ensure-boundary (cause)
(defun undo-auto--boundary-timer ()
"Timer which will run `undo--auto-boundary-timer'."
(defun undo-auto--boundary-timer ()
"Timer which will run `undo--auto-boundary-timer'."
- (setq undo-auto--current-boundary-timer nil)
+ (setq undo-auto-current-boundary-timer nil)
(undo-auto--boundaries 'timer))
(defun undo-auto--boundary-ensure-timer ()
"Ensure that the `undo-auto-boundary-timer' is set."
(undo-auto--boundaries 'timer))
(defun undo-auto--boundary-ensure-timer ()
"Ensure that the `undo-auto-boundary-timer' is set."
- (unless undo-auto--current-boundary-timer
- (setq undo-auto--current-boundary-timer
+ (unless undo-auto-current-boundary-timer
+ (setq undo-auto-current-boundary-timer
(run-at-time 10 nil #'undo-auto--boundary-timer))))
(defvar undo-auto--undoably-changed-buffers nil
(run-at-time 10 nil #'undo-auto--boundary-timer))))
(defvar undo-auto--undoably-changed-buffers nil
-(defun undo-auto--amalgamate ()
+(defun undo-auto-amalgamate ()
"Amalgamate undo if necessary.
This function can be called before an amalgamating command. It
removes the previous `undo-boundary' if a series of such calls
"Amalgamate undo if necessary.
This function can be called before an amalgamating command. It
removes the previous `undo-boundary' if a series of such calls
CHECK_NUMBER (n);
if (eabs (XINT (n)) < 2)
CHECK_NUMBER (n);
if (eabs (XINT (n)) < 2)
- call0 (Qundo_auto__amalgamate);
+ call0 (Qundo_auto_amalgamate);
pos = PT + XINT (n);
if (NILP (killflag))
pos = PT + XINT (n);
if (NILP (killflag))
error ("Negative repetition argument %"pI"d", XINT (n));
if (XFASTINT (n) < 2)
error ("Negative repetition argument %"pI"d", XINT (n));
if (XFASTINT (n) < 2)
- call0 (Qundo_auto__amalgamate);
+ call0 (Qundo_auto_amalgamate);
/* Barf if the key that invoked this was not a character. */
if (!CHARACTERP (last_command_event))
/* Barf if the key that invoked this was not a character. */
if (!CHARACTERP (last_command_event))
void
syms_of_cmds (void)
{
void
syms_of_cmds (void)
{
- DEFSYM (Qundo_auto__amalgamate, "undo-auto--amalgamate");
+ DEFSYM (Qundo_auto_amalgamate, "undo-auto-amalgamate");
DEFSYM (Qundo_auto__this_command_amalgamating,
"undo-auto--this-command-amalgamating");
DEFSYM (Qundo_auto__this_command_amalgamating,
"undo-auto--this-command-amalgamating");