Mercurial > emacs
comparison lisp/files.el @ 5398:499f25507242
(save-some-buffers): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 01 Jan 1994 06:21:59 +0000 |
parents | 09148c696fa2 |
children | 691f7961e32c |
comparison
equal
deleted
inserted
replaced
5397:1209d8bbffd3 | 5398:499f25507242 |
---|---|
1525 Optional argument (the prefix) non-nil means save all with no questions. | 1525 Optional argument (the prefix) non-nil means save all with no questions. |
1526 Optional second argument EXITING means ask about certain non-file buffers | 1526 Optional second argument EXITING means ask about certain non-file buffers |
1527 as well as about file buffers." | 1527 as well as about file buffers." |
1528 (interactive "P") | 1528 (interactive "P") |
1529 (save-window-excursion | 1529 (save-window-excursion |
1530 (or (not (zerop (map-y-or-n-p | 1530 (let ((files-done |
1531 (function | 1531 (map-y-or-n-p |
1532 (lambda (buffer) | 1532 (function |
1533 (and (buffer-modified-p buffer) | 1533 (lambda (buffer) |
1534 (or | 1534 (and (buffer-modified-p buffer) |
1535 (buffer-file-name buffer) | 1535 (or |
1536 (and exiting | 1536 (buffer-file-name buffer) |
1537 (progn | 1537 (and exiting |
1538 (set-buffer buffer) | 1538 (progn |
1539 (and buffer-offer-save (> (buffer-size) 0))))) | 1539 (set-buffer buffer) |
1540 (if arg | 1540 (and buffer-offer-save (> (buffer-size) 0))))) |
1541 t | 1541 (if arg |
1542 (if (buffer-file-name buffer) | 1542 t |
1543 (format "Save file %s? " | 1543 (if (buffer-file-name buffer) |
1544 (buffer-file-name buffer)) | 1544 (format "Save file %s? " |
1545 (format "Save buffer %s? " | 1545 (buffer-file-name buffer)) |
1546 (buffer-name buffer))))))) | 1546 (format "Save buffer %s? " |
1547 (function | 1547 (buffer-name buffer))))))) |
1548 (lambda (buffer) | 1548 (function |
1549 (set-buffer buffer) | 1549 (lambda (buffer) |
1550 (save-buffer))) | 1550 (set-buffer buffer) |
1551 (buffer-list) | 1551 (save-buffer))) |
1552 '("buffer" "buffers" "save") | 1552 (buffer-list) |
1553 (list (list ?\C-r (lambda (buf) | 1553 '("buffer" "buffers" "save") |
1554 (view-buffer buf) | 1554 (list (list ?\C-r (lambda (buf) |
1555 (setq view-exit-action | 1555 (view-buffer buf) |
1556 '(lambda (ignore) | 1556 (setq view-exit-action |
1557 (exit-recursive-edit))) | 1557 '(lambda (ignore) |
1558 (recursive-edit) | 1558 (exit-recursive-edit))) |
1559 ;; Return nil to ask about BUF again. | 1559 (recursive-edit) |
1560 nil) | 1560 ;; Return nil to ask about BUF again. |
1561 "display the current buffer")) | 1561 nil) |
1562 ))) | 1562 "display the current buffer")))) |
1563 (and save-abbrevs abbrevs-changed | 1563 (abbrevs-done |
1564 (progn | 1564 (and save-abbrevs abbrevs-changed |
1565 (if (or arg | 1565 (progn |
1566 (y-or-n-p (format "Save abbrevs in %s? " abbrev-file-name))) | 1566 (if (or arg |
1567 (write-abbrev-file nil)) | 1567 (y-or-n-p (format "Save abbrevs in %s? " abbrev-file-name))) |
1568 ;; Don't keep bothering user if he says no. | 1568 (write-abbrev-file nil)) |
1569 (setq abbrevs-changed nil) | 1569 ;; Don't keep bothering user if he says no. |
1570 t)) | 1570 (setq abbrevs-changed nil) |
1571 (message "(No files need saving)")))) | 1571 t)))) |
1572 (or (> files-done 0) abbrevs-done | |
1573 (message "(No files need saving)"))))) | |
1572 | 1574 |
1573 (defun not-modified (&optional arg) | 1575 (defun not-modified (&optional arg) |
1574 "Mark current buffer as unmodified, not needing to be saved. | 1576 "Mark current buffer as unmodified, not needing to be saved. |
1575 With prefix arg, mark buffer as modified, so \\[save-buffer] will save." | 1577 With prefix arg, mark buffer as modified, so \\[save-buffer] will save." |
1576 (interactive "P") | 1578 (interactive "P") |