branch: externals/undo-tree
commit 1f8d005409ceaa9ff27be04dabc155dcfd90fd03
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* undo-tree.el: Various cosmetic changes
Prefer #' to quote function names.
Remove redundant `:group` arguments.
Remove the compatibility definitions since we're already using `gv` and
`cl-lib` so the code already didn't work with Emacs<24.3.
(undo-tree-map): Rename to `undo-tree-mode-map` to follow the convention.
(undo-tree-mode-map, undo-tree-visualizer-mode-map)
(undo-tree-visualizer-selection-mode-map): Move definition into declaration.
(undo-tree-mapc): No need to use funny names thanks to lexical scoping.
(undo-tree-node-unmodified-p): Fix accidental use of a global
`changeset` variable.
(undo-tree-adjust-elements-to-elt): Merge common tail of an `if`.
(undo-tree-mode): Use keyword args.
* .gitignore: Also ignore ELPA files.
---
.gitignore | 2 +
undo-tree.el | 342 ++++++++++++++++++-----------------------------------------
2 files changed, 107 insertions(+), 237 deletions(-)
diff --git a/.gitignore b/.gitignore
index c531d9867f..fdab87adff 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,3 @@
*.elc
+undo-tree-autoloads.el
+undo-tree-pkg.el
diff --git a/undo-tree.el b/undo-tree.el
index 1b8eb2f8d4..6e4080d984 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -6,7 +6,7 @@
;; Maintainer: Toby Cubitt <toby-undo-t...@dr-qubit.org>
;; Version: 0.8.2
;; Keywords: convenience, files, undo, redo, history, tree
-;; Package-Requires: ((queue "0.2"))
+;; Package-Requires: ((queue "0.2") (emacs "24.3"))
;; URL: https://www.dr-qubit.org/undo-tree.html
;; Repository: https://gitlab.com/tsc25/undo-tree
@@ -762,108 +762,6 @@
-;;; =====================================================================
-;;; Compatibility hacks for older Emacsen
-
-;; `characterp' isn't defined in Emacs versions < 23
-(unless (fboundp 'characterp)
- (defalias 'characterp 'char-valid-p))
-
-;; `region-active-p' isn't defined in Emacs versions < 23
-(unless (fboundp 'region-active-p)
- (defun region-active-p () (and transient-mark-mode mark-active)))
-
-
-;; `registerv' defstruct isn't defined in Emacs versions < 24
-(unless (fboundp 'registerv-make)
- (defmacro registerv-make (data &rest _dummy) data))
-
-(unless (fboundp 'registerv-data)
- (defmacro registerv-data (data) data))
-
-
-;; `diff-no-select' and `diff-file-local-copy' aren't defined in Emacs
-;; versions < 24 (copied and adapted from Emacs 24)
-(unless (fboundp 'diff-no-select)
- (defun diff-no-select (old new &optional switches no-async buf)
- ;; Noninteractive helper for creating and reverting diff buffers
- (unless (bufferp new) (setq new (expand-file-name new)))
- (unless (bufferp old) (setq old (expand-file-name old)))
- (or switches (setq switches diff-switches)) ; If not specified, use
default.
- (unless (listp switches) (setq switches (list switches)))
- (or buf (setq buf (get-buffer-create "*Diff*")))
- (let* ((old-alt (diff-file-local-copy old))
- (new-alt (diff-file-local-copy new))
- (command
- (mapconcat 'identity
- `(,diff-command
- ;; Use explicitly specified switches
- ,@switches
- ,@(mapcar #'shell-quote-argument
- (nconc
- (when (or old-alt new-alt)
- (list "-L" (if (stringp old)
- old (prin1-to-string old))
- "-L" (if (stringp new)
- new (prin1-to-string
new))))
- (list (or old-alt old)
- (or new-alt new)))))
- " "))
- (thisdir default-directory))
- (with-current-buffer buf
- (setq buffer-read-only t)
- (buffer-disable-undo (current-buffer))
- (let ((inhibit-read-only t))
- (erase-buffer))
- (buffer-enable-undo (current-buffer))
- (diff-mode)
- (set (make-local-variable 'revert-buffer-function)
- (lambda (_ignore-auto _noconfirm)
- (diff-no-select old new switches no-async (current-buffer))))
- (setq default-directory thisdir)
- (let ((inhibit-read-only t))
- (insert command "\n"))
- (if (and (not no-async) (fboundp 'start-process))
- (let ((proc (start-process "Diff" buf shell-file-name
- shell-command-switch command)))
- (set-process-filter proc 'diff-process-filter)
- (set-process-sentinel
- proc (lambda (proc _msg)
- (with-current-buffer (process-buffer proc)
- (diff-sentinel (process-exit-status proc))
- (if old-alt (delete-file old-alt))
- (if new-alt (delete-file new-alt))))))
- ;; Async processes aren't available.
- (let ((inhibit-read-only t))
- (diff-sentinel
- (call-process shell-file-name nil buf nil
- shell-command-switch command))
- (if old-alt (delete-file old-alt))
- (if new-alt (delete-file new-alt)))))
- buf)))
-
-(unless (fboundp 'diff-file-local-copy)
- (defun diff-file-local-copy (file-or-buf)
- (if (bufferp file-or-buf)
- (with-current-buffer file-or-buf
- (let ((tempfile (make-temp-file "buffer-content-")))
- (write-region nil nil tempfile nil 'nomessage)
- tempfile))
- (file-local-copy file-or-buf))))
-
-
-;; `user-error' isn't defined in Emacs < 24.3
-(unless (fboundp 'user-error)
- (defalias 'user-error 'error)
- ;; prevent debugger being called on user errors
- (add-to-list 'debug-ignored-errors "^No further undo information")
- (add-to-list 'debug-ignored-errors "^No further redo information")
- (add-to-list 'debug-ignored-errors "^No further redo information for
region"))
-
-
-
-
-
;;; =====================================================================
;;; Global variables and customization options
@@ -894,7 +792,6 @@ may crash if undo history exceeds Emacs' available memory.
This
is particularly risky if `undo-tree-auto-save-history' is
enabled, as in that case undo history is preserved even between
Emacs sessions."
- :group 'undo-tree
:type '(choice integer (const nil)))
@@ -903,7 +800,6 @@ Emacs sessions."
If `undo-strong-limit' is larger than `undo-tree-strong-limit'
the larger of the two values will be used."
- :group 'undo-tree
:type 'integer)
@@ -912,21 +808,18 @@ the larger of the two values will be used."
If `undo-outer-limit' is larger than `undo-tree-outer-limit' the
larger of the two values will be used."
- :group 'undo-tree
:type 'integer)
(defcustom undo-tree-mode-lighter " Undo-Tree"
"Lighter displayed in mode line
when `undo-tree-mode' is enabled."
- :group 'undo-tree
:type 'string)
(defcustom undo-tree-incompatible-major-modes '(term-mode)
"List of major-modes in which `undo-tree-mode' should not be enabled.
\(See `turn-on-undo-tree-mode'.\)"
- :group 'undo-tree
:type '(repeat symbol))
@@ -937,7 +830,6 @@ When undo-in-region is enabled, undoing or redoing when the
region is active (in `transient-mark-mode') or with a prefix
argument (not in `transient-mark-mode') only undoes changes
within the current region."
- :group 'undo-tree
:type 'boolean)
@@ -960,7 +852,6 @@ the customization interface in versions earlier than that
one. To
ignore this warning and enable it regardless, set
`undo-tree-auto-save-history' to a non-nil value outside of
customize."
- :group 'undo-tree
:type (if (version-list-< (version-to-list emacs-version) '(24 3))
'(choice (const :tag "<disabled>" nil))
'boolean))
@@ -986,7 +877,6 @@ backup is made in the original file's directory.
On MS-DOS filesystems without long names this variable is always
ignored."
- :group 'undo-tree
:type '(repeat (cons (regexp :tag "Regexp matching filename")
(directory :tag "Undo history directory name"))))
@@ -997,7 +887,6 @@ ignored."
when displaying time stamps in visualizer.
Otherwise, display absolute times."
- :group 'undo-tree
:type 'boolean)
@@ -1008,7 +897,6 @@ in undo-tree visualizer.
\\<undo-tree-visualizer-mode-map>You can always toggle time-stamps on and off \
using \\[undo-tree-visualizer-toggle-timestamps], regardless of the
setting of this variable."
- :group 'undo-tree
:type 'boolean)
@@ -1018,7 +906,6 @@ setting of this variable."
\\<undo-tree-visualizer-mode-map>You can always toggle the diff display \
using \\[undo-tree-visualizer-toggle-diff], regardless of the
setting of this variable."
- :group 'undo-tree
:type 'boolean)
@@ -1041,7 +928,6 @@ they branch off becomes visible. So it can happen that
certain
portions of the tree that would be shown with lazy drawing
disabled, will not be drawn immediately when it is
enabled. However, this effect is quite rare in practice."
- :group 'undo-tree
:type '(choice (const :tag "never" nil)
(const :tag "always" t)
(integer :tag "> size")))
@@ -1069,33 +955,28 @@ that element should be loaded unchanged).")
(defface undo-tree-visualizer-default-face
'((((class color)) :foreground "gray"))
- "Face used to draw undo-tree in visualizer."
- :group 'undo-tree)
+ "Face used to draw undo-tree in visualizer.")
(defface undo-tree-visualizer-current-face
'((((class color)) :foreground "red"))
- "Face used to highlight current undo-tree node in visualizer."
- :group 'undo-tree)
+ "Face used to highlight current undo-tree node in visualizer.")
(defface undo-tree-visualizer-active-branch-face
'((((class color) (background dark))
(:foreground "white" :weight bold))
(((class color) (background light))
(:foreground "black" :weight bold)))
- "Face used to highlight active undo-tree branch in visualizer."
- :group 'undo-tree)
+ "Face used to highlight active undo-tree branch in visualizer.")
(defface undo-tree-visualizer-register-face
'((((class color)) :foreground "yellow"))
"Face used to highlight undo-tree nodes saved to a register
-in visualizer."
- :group 'undo-tree)
+in visualizer.")
(defface undo-tree-visualizer-unmodified-face
'((((class color)) :foreground "cyan"))
"Face used to highlight nodes corresponding to unmodified buffers
-in visualizer."
- :group 'undo-tree)
+in visualizer.")
(defvar undo-tree-visualizer-parent-buffer nil
@@ -1155,116 +1036,107 @@ in visualizer."
;;; =================================================================
;;; Default keymaps
-(defvar undo-tree-map nil
- "Keymap used in undo-tree-mode.")
-
-(unless undo-tree-map
+(define-obsolete-variable-alias 'undo-tree-map 'undo-tree-mode-map "undo-tree
0.8.3")
+(defvar undo-tree-mode-map
(let ((map (make-sparse-keymap)))
;; remap `undo' and `undo-only' to `undo-tree-undo'
- (define-key map [remap undo] 'undo-tree-undo)
- (define-key map [remap undo-only] 'undo-tree-undo)
+ (define-key map [remap undo] #'undo-tree-undo)
+ (define-key map [remap undo-only] #'undo-tree-undo)
;; bind standard undo bindings (since these match redo counterparts)
- (define-key map (kbd "C-/") 'undo-tree-undo)
- (define-key map "\C-_" 'undo-tree-undo)
+ (define-key map (kbd "C-/") #'undo-tree-undo)
+ (define-key map "\C-_" #'undo-tree-undo)
;; redo doesn't exist normally, so define our own keybindings
- (define-key map (kbd "C-?") 'undo-tree-redo)
- (define-key map (kbd "M-_") 'undo-tree-redo)
+ (define-key map (kbd "C-?") #'undo-tree-redo)
+ (define-key map (kbd "M-_") #'undo-tree-redo)
;; just in case something has defined `redo'...
- (define-key map [remap redo] 'undo-tree-redo)
+ (define-key map [remap redo] #'undo-tree-redo)
;; we use "C-x u" for the undo-tree visualizer
- (define-key map (kbd "\C-x u") 'undo-tree-visualize)
+ (define-key map (kbd "\C-x u") #'undo-tree-visualize)
;; bind register commands
- (define-key map (kbd "C-x r u") 'undo-tree-save-state-to-register)
- (define-key map (kbd "C-x r U") 'undo-tree-restore-state-from-register)
- ;; set keymap
- (setq undo-tree-map map)))
-
+ (define-key map (kbd "C-x r u") #'undo-tree-save-state-to-register)
+ (define-key map (kbd "C-x r U") #'undo-tree-restore-state-from-register)
+ map)
+ "Keymap used in undo-tree-mode.")
-(defvar undo-tree-visualizer-mode-map nil
- "Keymap used in undo-tree visualizer.")
-(unless undo-tree-visualizer-mode-map
+(defvar undo-tree-visualizer-mode-map
(let ((map (make-sparse-keymap)))
;; vertical motion keys undo/redo
- (define-key map [remap previous-line] 'undo-tree-visualize-undo)
- (define-key map [remap next-line] 'undo-tree-visualize-redo)
- (define-key map [up] 'undo-tree-visualize-undo)
- (define-key map "p" 'undo-tree-visualize-undo)
- (define-key map "\C-p" 'undo-tree-visualize-undo)
- (define-key map [down] 'undo-tree-visualize-redo)
- (define-key map "n" 'undo-tree-visualize-redo)
- (define-key map "\C-n" 'undo-tree-visualize-redo)
+ (define-key map [remap previous-line] #'undo-tree-visualize-undo)
+ (define-key map [remap next-line] #'undo-tree-visualize-redo)
+ (define-key map [up] #'undo-tree-visualize-undo)
+ (define-key map "p" #'undo-tree-visualize-undo)
+ (define-key map "\C-p" #'undo-tree-visualize-undo)
+ (define-key map [down] #'undo-tree-visualize-redo)
+ (define-key map "n" #'undo-tree-visualize-redo)
+ (define-key map "\C-n" #'undo-tree-visualize-redo)
;; horizontal motion keys switch branch
(define-key map [remap forward-char]
- 'undo-tree-visualize-switch-branch-right)
+ #'undo-tree-visualize-switch-branch-right)
(define-key map [remap backward-char]
- 'undo-tree-visualize-switch-branch-left)
- (define-key map [right] 'undo-tree-visualize-switch-branch-right)
- (define-key map "f" 'undo-tree-visualize-switch-branch-right)
- (define-key map "\C-f" 'undo-tree-visualize-switch-branch-right)
- (define-key map [left] 'undo-tree-visualize-switch-branch-left)
- (define-key map "b" 'undo-tree-visualize-switch-branch-left)
- (define-key map "\C-b" 'undo-tree-visualize-switch-branch-left)
+ #'undo-tree-visualize-switch-branch-left)
+ (define-key map [right] #'undo-tree-visualize-switch-branch-right)
+ (define-key map "f" #'undo-tree-visualize-switch-branch-right)
+ (define-key map "\C-f" #'undo-tree-visualize-switch-branch-right)
+ (define-key map [left] #'undo-tree-visualize-switch-branch-left)
+ (define-key map "b" #'undo-tree-visualize-switch-branch-left)
+ (define-key map "\C-b" #'undo-tree-visualize-switch-branch-left)
;; paragraph motion keys undo/redo to significant points in tree
- (define-key map [remap backward-paragraph] 'undo-tree-visualize-undo-to-x)
- (define-key map [remap forward-paragraph] 'undo-tree-visualize-redo-to-x)
- (define-key map "\M-{" 'undo-tree-visualize-undo-to-x)
- (define-key map "\M-}" 'undo-tree-visualize-redo-to-x)
- (define-key map [C-up] 'undo-tree-visualize-undo-to-x)
- (define-key map [C-down] 'undo-tree-visualize-redo-to-x)
+ (define-key map [remap backward-paragraph] #'undo-tree-visualize-undo-to-x)
+ (define-key map [remap forward-paragraph] #'undo-tree-visualize-redo-to-x)
+ (define-key map "\M-{" #'undo-tree-visualize-undo-to-x)
+ (define-key map "\M-}" #'undo-tree-visualize-redo-to-x)
+ (define-key map [C-up] #'undo-tree-visualize-undo-to-x)
+ (define-key map [C-down] #'undo-tree-visualize-redo-to-x)
;; mouse sets buffer state to node at click
- (define-key map [mouse-1] 'undo-tree-visualizer-mouse-set)
+ (define-key map [mouse-1] #'undo-tree-visualizer-mouse-set)
;; toggle timestamps
- (define-key map "t" 'undo-tree-visualizer-toggle-timestamps)
+ (define-key map "t" #'undo-tree-visualizer-toggle-timestamps)
;; toggle diff
- (define-key map "d" 'undo-tree-visualizer-toggle-diff)
+ (define-key map "d" #'undo-tree-visualizer-toggle-diff)
;; toggle selection mode
- (define-key map "s" 'undo-tree-visualizer-selection-mode)
+ (define-key map "s" #'undo-tree-visualizer-selection-mode)
;; horizontal scrolling may be needed if the tree is very wide
- (define-key map "," 'undo-tree-visualizer-scroll-left)
- (define-key map "." 'undo-tree-visualizer-scroll-right)
- (define-key map "<" 'undo-tree-visualizer-scroll-left)
- (define-key map ">" 'undo-tree-visualizer-scroll-right)
+ (define-key map "," #'undo-tree-visualizer-scroll-left)
+ (define-key map "." #'undo-tree-visualizer-scroll-right)
+ (define-key map "<" #'undo-tree-visualizer-scroll-left)
+ (define-key map ">" #'undo-tree-visualizer-scroll-right)
;; vertical scrolling may be needed if the tree is very tall
- (define-key map [next] 'undo-tree-visualizer-scroll-up)
- (define-key map [prior] 'undo-tree-visualizer-scroll-down)
+ (define-key map [next] #'undo-tree-visualizer-scroll-up)
+ (define-key map [prior] #'undo-tree-visualizer-scroll-down)
;; quit/abort visualizer
- (define-key map "q" 'undo-tree-visualizer-quit)
- (define-key map "\C-q" 'undo-tree-visualizer-abort)
- ;; set keymap
- (setq undo-tree-visualizer-mode-map map)))
-
-
-(defvar undo-tree-visualizer-selection-mode-map nil
- "Keymap used in undo-tree visualizer selection mode.")
+ (define-key map "q" #'undo-tree-visualizer-quit)
+ (define-key map "\C-q" #'undo-tree-visualizer-abort)
+ map)
+ "Keymap used in undo-tree visualizer.")
-(unless undo-tree-visualizer-selection-mode-map
+(defvar undo-tree-visualizer-selection-mode-map
(let ((map (make-sparse-keymap)))
;; vertical motion keys move up and down tree
(define-key map [remap previous-line]
- 'undo-tree-visualizer-select-previous)
+ #'undo-tree-visualizer-select-previous)
(define-key map [remap next-line]
- 'undo-tree-visualizer-select-next)
- (define-key map [up] 'undo-tree-visualizer-select-previous)
- (define-key map "p" 'undo-tree-visualizer-select-previous)
- (define-key map "\C-p" 'undo-tree-visualizer-select-previous)
- (define-key map [down] 'undo-tree-visualizer-select-next)
- (define-key map "n" 'undo-tree-visualizer-select-next)
- (define-key map "\C-n" 'undo-tree-visualizer-select-next)
+ #'undo-tree-visualizer-select-next)
+ (define-key map [up] #'undo-tree-visualizer-select-previous)
+ (define-key map "p" #'undo-tree-visualizer-select-previous)
+ (define-key map "\C-p" #'undo-tree-visualizer-select-previous)
+ (define-key map [down] #'undo-tree-visualizer-select-next)
+ (define-key map "n" #'undo-tree-visualizer-select-next)
+ (define-key map "\C-n" #'undo-tree-visualizer-select-next)
;; vertical scroll keys move up and down quickly
(define-key map [next]
(lambda () (interactive) (undo-tree-visualizer-select-next 10)))
(define-key map [prior]
(lambda () (interactive) (undo-tree-visualizer-select-previous 10)))
;; horizontal motion keys move to left and right siblings
- (define-key map [remap forward-char] 'undo-tree-visualizer-select-right)
- (define-key map [remap backward-char] 'undo-tree-visualizer-select-left)
- (define-key map [right] 'undo-tree-visualizer-select-right)
- (define-key map "f" 'undo-tree-visualizer-select-right)
- (define-key map "\C-f" 'undo-tree-visualizer-select-right)
- (define-key map [left] 'undo-tree-visualizer-select-left)
- (define-key map "b" 'undo-tree-visualizer-select-left)
- (define-key map "\C-b" 'undo-tree-visualizer-select-left)
+ (define-key map [remap forward-char] #'undo-tree-visualizer-select-right)
+ (define-key map [remap backward-char] #'undo-tree-visualizer-select-left)
+ (define-key map [right] #'undo-tree-visualizer-select-right)
+ (define-key map "f" #'undo-tree-visualizer-select-right)
+ (define-key map "\C-f" #'undo-tree-visualizer-select-right)
+ (define-key map [left] #'undo-tree-visualizer-select-left)
+ (define-key map "b" #'undo-tree-visualizer-select-left)
+ (define-key map "\C-b" #'undo-tree-visualizer-select-left)
;; horizontal scroll keys move left or right quickly
(define-key map ","
(lambda () (interactive) (undo-tree-visualizer-select-left 10)))
@@ -1275,15 +1147,13 @@ in visualizer."
(define-key map ">"
(lambda () (interactive) (undo-tree-visualizer-select-right 10)))
;; <enter> sets buffer state to node at point
- (define-key map "\r" 'undo-tree-visualizer-set)
+ (define-key map "\r" #'undo-tree-visualizer-set)
;; mouse selects node at click
- (define-key map [mouse-1] 'undo-tree-visualizer-mouse-select)
+ (define-key map [mouse-1] #'undo-tree-visualizer-mouse-select)
;; toggle diff
- (define-key map "d" 'undo-tree-visualizer-selection-toggle-diff)
- ;; set keymap
- (setq undo-tree-visualizer-selection-mode-map map)))
-
-
+ (define-key map "d" #'undo-tree-visualizer-selection-toggle-diff)
+ map)
+ "Keymap used in undo-tree visualizer selection mode.")
;;; =====================================================================
@@ -1653,12 +1523,12 @@ that are already part of `buffer-undo-tree'."
(setf (undo-tree-node-previous n) parent))))
-(defun undo-tree-mapc (--undo-tree-mapc-function-- node)
+(defun undo-tree-mapc (f node)
;; Apply FUNCTION to NODE and to each node below it.
(let ((stack (list node))
n)
(while (setq n (pop stack))
- (funcall --undo-tree-mapc-function-- n)
+ (funcall f n)
(setq stack (append (undo-tree-node-next n) stack)))))
@@ -1905,7 +1775,7 @@ Comparison is done with `eq'."
(setq buffer-undo-list nil)
(when buffer-undo-tree
(let ((stack (list (list (undo-tree-root buffer-undo-tree)))))
- (push (sort (mapcar 'identity (undo-tree-node-next (caar stack)))
+ (push (sort (mapcar #'identity (undo-tree-node-next (caar stack)))
(lambda (a b)
(time-less-p (undo-tree-node-timestamp a)
(undo-tree-node-timestamp b))))
@@ -1921,7 +1791,7 @@ Comparison is done with `eq'."
(append (undo-tree-node-undo (caar stack))
buffer-undo-list))
(undo-boundary)
- (push (sort (mapcar 'identity
+ (push (sort (mapcar #'identity
(undo-tree-node-next (caar stack)))
(lambda (a b)
(time-less-p (undo-tree-node-timestamp a)
@@ -1944,7 +1814,7 @@ Comparison is done with `eq'."
;; Return oldest leaf node below NODE.
(while (undo-tree-node-next node)
(setq node
- (car (sort (mapcar 'identity (undo-tree-node-next node))
+ (car (sort (mapcar #'identity (undo-tree-node-next node))
(lambda (a b)
(time-less-p (undo-tree-node-timestamp a)
(undo-tree-node-timestamp b)))))))
@@ -2032,7 +1902,8 @@ set by `undo-limit', `undo-strong-limit' and
`undo-outer-limit'."
;; if there are no branches off root, first node to discard is root;
;; otherwise it's leaf node at botom of oldest branch
(let ((node (if (> (length (undo-tree-node-next
- (undo-tree-root buffer-undo-tree))) 1)
+ (undo-tree-root buffer-undo-tree)))
+ 1)
(undo-tree-oldest-leaf (undo-tree-root buffer-undo-tree))
(undo-tree-root buffer-undo-tree)))
discarded)
@@ -2228,8 +2099,9 @@ which is defined in the `warnings' library.\n")
;; return non-nil if the corresponding buffer state really is unmodified.
(let* ((changeset
(or (undo-tree-node-redo node)
- (and (setq changeset (car (undo-tree-node-next node)))
- (undo-tree-node-undo changeset))))
+ (let ((changeset (car (undo-tree-node-next node))))
+ (and changeset
+ (undo-tree-node-undo changeset)))))
(ntime
(let ((elt (car (last changeset))))
(and (consp elt) (eq (car elt) t) (consp (cdr elt))
@@ -2518,7 +2390,7 @@ which is defined in the `warnings' library.\n")
undo-adjusted-markers ; `undo-elt-in-region' expects this
fragment splice got-visible-elt redo-list elt)
- ;; --- inisitalisation ---
+ ;; --- initialization ---
(cond
;; if this is a repeated redo-in-region, detach fragment below current
;; node
@@ -2665,10 +2537,10 @@ of either NODE itself or some node above it in the
tree."
;; move to next undo element in list, or to next node if we've run out
;; of elements
(unless (car (setq undo-list (cdr undo-list)))
- (if below
- (setq node (nth (undo-tree-node-branch node)
- (undo-tree-node-next node)))
- (setq node (undo-tree-node-previous node)))
+ (setq node (if below
+ (nth (undo-tree-node-branch node)
+ (undo-tree-node-next node))
+ (undo-tree-node-previous node)))
(setq undo-list (undo-tree-node-undo node))))))
@@ -2731,13 +2603,13 @@ of either NODE itself or some node above it in the
tree."
;; Return non-nil if undo-in-region between START and END is simply
;; reverting the last redo-in-region
(defalias 'undo-tree-reverting-undo-in-region-p
- 'undo-tree-repeated-undo-in-region-p)
+ #'undo-tree-repeated-undo-in-region-p)
;; Return non-nil if redo-in-region between START and END is simply
;; reverting the last undo-in-region
(defalias 'undo-tree-reverting-redo-in-region-p
- 'undo-tree-repeated-redo-in-region-p)
+ #'undo-tree-repeated-redo-in-region-p)
@@ -2760,16 +2632,12 @@ as what it is: a tree.
The following keys are available in `undo-tree-mode':
- \\{undo-tree-map}
+ \\{undo-tree-mode-map}
Within the undo-tree visualizer, the following keys are available:
\\{undo-tree-visualizer-mode-map}"
-
- nil ; init value
- undo-tree-mode-lighter ; lighter
- undo-tree-map ; keymap
-
+ :lighter undo-tree-mode-lighter
(cond
(undo-tree-mode ; enabling `undo-tree-mode'
(set (make-local-variable 'undo-limit)
@@ -2832,8 +2700,8 @@ than the global one. (So global redefinitions of the
default undo
key bindings do not count.)"
(let ((binding1 (lookup-key (current-global-map) [?\C-/]))
(binding2 (lookup-key (current-global-map) [?\C-_])))
- (global-set-key [?\C-/] 'undo)
- (global-set-key [?\C-_] 'undo)
+ (global-set-key [?\C-/] #'undo)
+ (global-set-key [?\C-_] #'undo)
(unwind-protect
(or (and (key-binding [?\C-/])
(not (eq (key-binding [?\C-/]) 'undo)))
@@ -3228,7 +3096,7 @@ Argument is a character, naming the register."
(define-key (lookup-key global-map [menu-bar edit])
[redo] nil)))
-(add-hook 'menu-bar-update-hook 'undo-tree-update-menu-bar)
+(add-hook 'menu-bar-update-hook #'undo-tree-update-menu-bar)
@@ -3507,7 +3375,7 @@ Note this will overwrite any existing undo history."
(undo-tree-save-history nil 'overwrite) nil))
(define-obsolete-function-alias
- 'undo-tree-save-history-hook 'undo-tree-save-history-from-hook
+ 'undo-tree-save-history-hook #'undo-tree-save-history-from-hook
"`undo-tree-save-history-hook' is obsolete since undo-tree
version 0.6.6. Use `undo-tree-save-history-from-hook' instead.")
@@ -3519,7 +3387,7 @@ Note this will overwrite any existing undo history."
(undo-tree-load-history nil 'noerror)))
(define-obsolete-function-alias
- 'undo-tree-load-history-hook 'undo-tree-load-history-from-hook
+ 'undo-tree-load-history-hook #'undo-tree-load-history-from-hook
"`undo-tree-load-history-hook' is obsolete since undo-tree
version 0.6.6. Use `undo-tree-load-history-from-hook' instead.")
@@ -3547,7 +3415,7 @@ Note this will overwrite any existing undo history."
;; transfer entries accumulated in `buffer-undo-list' to `buffer-undo-tree'
(undo-list-transfer-to-tree)
;; add hook to kill visualizer buffer if original buffer is changed
- (add-hook 'before-change-functions 'undo-tree-kill-visualizer nil t)
+ (add-hook 'before-change-functions #'undo-tree-kill-visualizer nil t)
;; prepare *undo-tree* buffer, then draw tree in it
(let ((undo-tree buffer-undo-tree)
(buff (current-buffer))
@@ -4329,7 +4197,7 @@ using `undo-tree-redo' or `undo-tree-visualizer-redo'."
;; remove kill visualizer hook from parent buffer
(unwind-protect
(with-current-buffer undo-tree-visualizer-parent-buffer
- (remove-hook 'before-change-functions 'undo-tree-kill-visualizer t))
+ (remove-hook 'before-change-functions #'undo-tree-kill-visualizer t))
;; kill diff buffer, if any
(when undo-tree-visualizer-diff (undo-tree-visualizer-hide-diff))
(let ((parent undo-tree-visualizer-parent-buffer)
