我希望 emacs 将最后一个编辑位置添加到标记环,这样我就可以跳回到以前的编辑位置。
理想情况下,这只会标记每行一个编辑位置。当我编辑另一行时,该行上的最后一个编辑位置将被添加到环中,依此类推。
我不熟悉 Lisp 自己来实现这个。如果有人知道插件或可以提供一个很棒的解决方案!:)
您可以安装一个包goto-last-change,它允许您按顺序跳转到缓冲区撤消位置(最后编辑位置)。
Session.el提供绑定到“Cx C-/”或session-jump-to-last-change
.
会话按缓冲区执行。我不知道有什么在全球范围内进行的。
我实现了一个类似的功能,通过记录 2 个文件的最后编辑位置(不是每个缓冲区),并在请求时循环它们。有点像 eclipse 的做法(但功能较弱,只记录了 2 个文件)
编码:
;;; record two different file's last change. cycle them
(defvar feng-last-change-pos1 nil)
(defvar feng-last-change-pos2 nil)
(defun feng-swap-last-changes ()
(when feng-last-change-pos2
(let ((tmp feng-last-change-pos2))
(setf feng-last-change-pos2 feng-last-change-pos1
feng-last-change-pos1 tmp))))
(defun feng-goto-last-change ()
(interactive)
(when feng-last-change-pos1
(let* ((buffer (find-file-noselect (car feng-last-change-pos1)))
(win (get-buffer-window buffer)))
(if win
(select-window win)
(switch-to-buffer-other-window buffer))
(goto-char (cdr feng-last-change-pos1))
(feng-swap-last-changes))))
(defun feng-buffer-change-hook (beg end len)
(let ((bfn (buffer-file-name))
(file (car feng-last-change-pos1)))
(when bfn
(if (or (not file) (equal bfn file)) ;; change the same file
(setq feng-last-change-pos1 (cons bfn end))
(progn (setq feng-last-change-pos2 (cons bfn end))
(feng-swap-last-changes))))))
(add-hook 'after-change-functions 'feng-buffer-change-hook)
;;; just quick to reach
(global-set-key (kbd "M-`") 'feng-goto-last-change)