如何标记（在函数内），做事（设置其他标记），然后返回原始标记

Question

谁能给我一个函数的例子，它会设置一个标记，然后做一些事情，在缓冲区的其他地方设置额外的标记，然后返回到函数开头标记的原始位置。

transient-mark-mode 默认启用。我尝试使用(activate-mark) 设置标记，然后使用(deactivate-mark) 将标记推入mark-ring，然后我的函数在缓冲区中移动，归档待办事项并执行一些组织工作并暂停read-event（在新的待办事项存档的位置）让我看到一切都正确完成，然后我使用(set-mark-command t)回到一切开始的地方。但是，(set-mark-command t) 并没有让我回到函数开头的原始标记。相反，(set-mark-command t) 将我带到了另一个标记，该标记是在函数运行时无意中设置的。

(defun none (&optional default-heading)
(interactive)
(beginning-of-visual-line)
(activate-mark)
(deactivate-mark)
    (let ((lawlist-item default-heading)
            result)
        (unless lawlist-item
          (condition-case nil
              (progn 
                (org-back-to-heading t)
                (setq lawlist-item (elt (org-heading-components) 4)))
            )
         )
    (when (search-forward-regexp ":event\\|event:" (line-end-position) t)
      (replace-match "")
        (when (and (looking-at ":$\\|: ") (looking-back " "))
          (delete-char 1)))
    (org-todo "None")
    (org-priority ?E)
    (org-schedule 'remove)
    (org-deadline 'remove)
    (org-set-property "ToodledoFolder" "DONE")
    (setq org-archive-save-context-info nil)
    (setq org-archive-location "/Users/HOME/.0.data/*TODO*::* DONE")
    (org-archive-subtree)
    (goto-char (point-min))
    (re-search-forward "^\* DONE" nil t)
       (condition-case err
           (progn
             (org-sort-entries t ?a)
             (lawlist-org-cleanup) )
         (error nil))
    (re-search-forward lawlist-item nil t)
    (message (format "%s -- Finished!" lawlist-item))
    (beginning-of-visual-line)
    (org-cycle-hide-drawers 'all)
    (read-event)
    (set-mark-command t)
  ))

Answer 1

这也可能有帮助：您可能确实不想在 Lisp 代码中设置标记。

这就是 Elisp 手册中关于 set-mark 的内容：

 -- Function: set-mark position

 This function sets the mark to POSITION, and activates the mark.
 The old value of the mark is _not_ pushed onto the mark ring.

 *Please note:* Use this function only if you want the user to see
 that the mark has moved, and you want the previous mark position to
 be lost.  Normally, when a new mark is set, the old one should go
 on the `mark-ring'.  For this reason, most applications should use
 `push-mark' and `pop-mark', not `set-mark'.

 Novice Emacs Lisp programmers often try to use the mark for the
 wrong purposes.  The mark saves a location for the user's
 convenience.  An editing command should not alter the mark unless
 altering the mark is part of the user-level functionality of the
 command.  (And, in that case, this effect should be documented.)
 To remember a location for internal use in the Lisp program, store
 it in a Lisp variable.  For example:

      (let ((beg (point)))
        (forward-line 1)
        (delete-region beg (point))).

这就是 set-mark-command 和 push-mark 的文档字符串所说的：

Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes.  See the documentation of `set-mark' for more information.

Answer 2

听起来save-excursion 就是您要查找的内容——它将您的位置（连同其他信息）保存在缓冲区中，执行主体，然后返回到原始位置。