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
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
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.")
(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."
"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)
(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."
- (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
'amalgamate
'command))))
-(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
CHECK_NUMBER (n);
if (eabs (XINT (n)) < 2)
- call0 (Qundo_auto__amalgamate);
+ call0 (Qundo_auto_amalgamate);
pos = PT + XINT (n);
if (NILP (killflag))
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))
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");