emacs/test/lisp/emacs-lisp/bytecomp-resources/warn-save-excursion.el

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