Remove another purecopy call in files.el

* lisp/files.el (save-some-buffers-action-alist): Don't call purecopy.

(cherry picked from commit 526ef8950a98f2d040b9e4f143aa62538904a39f)

diff --git a/lisp/files.el b/lisp/files.el
index 4980b3c19f6be5fc7532cd21951381ac9ce98cc0..1a1898332b66be95f1b95dd2db2e7ac809ef7e2b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6315,7 +6315,7 @@ Before and after saving the buffer, this function runs
                 (set-buffer-modified-p nil))
               ;; Return t so we don't ask about BUF again.
               t)
-           ,(purecopy "skip this buffer and mark it unmodified"))
+           "skip this buffer and mark it unmodified")
     (?\C-r
      ,(lambda (buf)
         (view-buffer buf (lambda (_) (exit-recursive-edit)))