diff options
| author | Stefan Monnier | 2022-01-09 21:02:31 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2022-01-09 22:17:45 -0500 |
| commit | 74223bbdaff7533709fe6e81837e09d98320c1ee (patch) | |
| tree | 94a038891c01e37ce60280db90e1815a9f0d1ea4 /test | |
| parent | 8dba3a06261ebb21cb83145505a0c6e35a123c12 (diff) | |
| download | emacs-74223bbdaff7533709fe6e81837e09d98320c1ee.tar.gz emacs-74223bbdaff7533709fe6e81837e09d98320c1ee.zip | |
(save-some-buffers): Simplify the fix for bug#46374
* lisp/files.el (save-some-buffers): Only check the
`save-some-buffers-function` property on functions from
`save-some-buffers-default-predicate` since callers which provide
a `pred` argument can arrange to compute `pred` themselves if needed.
* test/lisp/files-tests.el (files-tests-buffer-offer-save): Don't test
with `pred` set to `save-some-buffers-root` since it's not an
appropriate function for that any more.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 57597762afd..be9339a8f5b 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -1769,7 +1769,7 @@ PRED is nil." | |||
| 1769 | (files-tests-with-all-permutations | 1769 | (files-tests-with-all-permutations |
| 1770 | buffers-offer | 1770 | buffers-offer |
| 1771 | buffers-offer-init | 1771 | buffers-offer-init |
| 1772 | (dolist (pred `(nil t save-some-buffers-root)) | 1772 | (dolist (pred `(nil t)) |
| 1773 | (dolist (callers-dir `(nil save-some-buffers-root)) | 1773 | (dolist (callers-dir `(nil save-some-buffers-root)) |
| 1774 | (let* ((head-offer (cadar buffers-offer)) | 1774 | (let* ((head-offer (cadar buffers-offer)) |
| 1775 | (res (cond ((null pred) | 1775 | (res (cond ((null pred) |