Re: [Emacs-diffs] master 255a011: Add `save-mark-and-excursion', which has the old `save-excursion' behavior

[Stefan Monnier <monnier@iro.umontreal.ca>]

> +   (let ((mark (mark-marker)))
> +     (and mark (marker-position mark) (copy-marker mark)))

Here you consider that (mark-marker) can return nil.

> +(defun save-mark-and-excursion--restore (saved-mark-info)
> +  (let ((saved-mark (car saved-mark-info))
> +        (omark (marker-position (mark-marker)))

But here you assume it's always a marker.

> +      (setf nmark (marker-position saved-mark))
          ^^^^
Old habits die hard.

> +    (let ((cur-mark-active mark-active))
> +      (setf mark-active saved-mark-active)
> +      ;; If mark is active now, and either was not active or was at a
> +      ;; different place, run the activate hook.
> +      (if saved-mark-active
> +          (unless (eq omark nmark)
> +            (run-hooks 'activate-mark-hook))

IIUC activate-mark-hook should also be run when (eq omark nmark) but
cur-mark-active was nil.


        Stefan