heckyel/emacs-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix visualizer popup undo-tree

Browse Source
This commit is contained in:
Jesús 2019-02-03 14:58:10 -05:00
parent 3378a9e25e
commit 1ec4b7b39d
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
modules/init-editing-utils.el
View File

@ -51,14 +51,29 @@
;; Undo-tree
;;----------------------------------------------------------------------------
(use-package undo-tree
:demand t
:diminish undo-tree-mode
:bind (("C-x u" . undo-tree-visualizer)
(:map
undo-tree-visualizer-mode-map ("RET" . undo-tree-visualizer-quit)))
:init
(defadvice undo-tree-make-history-save-file-name
(after undo-tree activate)
(setq ad-return-value (concat ad-return-value ".7z")))
(defadvice undo-tree-visualize (around undo-tree-split-side-by-side activate)
"Divide la ventana de lado a lado al visualizar undo-tree-visualize"
(let ((split-height-threshold nil)
(split-width-threshold 0))
ad-do-it))
(setf undo-tree-visualizer-timestamps t)
(setf undo-tree-visualizer-diff t)
(setf undo-tree-auto-save-history nil) ;; no salva el historial de cambios
:config
(progn
(global-undo-tree-mode)
(setq undo-tree-visualizer-timestamps nil)
(setq undo-tree-visualizer-diff nil)
(setq undo-tree-visualizer-quit t)
(setq pop-up-frames t)))
(defalias 'redo 'undo-tree-redo)
(global-undo-tree-mode 1))
;;----------------------------------------------------------------------------
(load-file "~/.emacs.d/modules/lib/myemacs.el")