;;; -*- lexical-binding: t -*-
(defun foo ()
  (save-excursion
    (set-buffer (current-buffer))
    nil))