Mercurial > emacs
comparison lisp/buff-menu.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 22 Jul 2005 08:27:27 +0000 |
| parents | f9a65d7ebd29 8b0db2e8ccd3 |
| children | 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 90202:7597b4a23c3b | 90203:187d6a1f84f7 |
|---|---|
| 303 (insert ?>) | 303 (insert ?>) |
| 304 (forward-line 1)))) | 304 (forward-line 1)))) |
| 305 | 305 |
| 306 (defun Buffer-menu-unmark (&optional backup) | 306 (defun Buffer-menu-unmark (&optional backup) |
| 307 "Cancel all requested operations on buffer on this line and move down. | 307 "Cancel all requested operations on buffer on this line and move down. |
| 308 Optional ARG means move up." | 308 Optional prefix arg means move up." |
| 309 (interactive "P") | 309 (interactive "P") |
| 310 (when (Buffer-menu-no-header) | 310 (when (Buffer-menu-no-header) |
| 311 (let* ((buf (Buffer-menu-buffer t)) | 311 (let* ((buf (Buffer-menu-buffer t)) |
| 312 (mod (buffer-modified-p buf)) | 312 (mod (buffer-modified-p buf)) |
| 313 (readonly (save-excursion (set-buffer buf) buffer-read-only)) | 313 (readonly (save-excursion (set-buffer buf) buffer-read-only)) |
| 367 (set-buffer (Buffer-menu-buffer t)) | 367 (set-buffer (Buffer-menu-buffer t)) |
| 368 (set-buffer-modified-p arg)) | 368 (set-buffer-modified-p arg)) |
| 369 (save-excursion | 369 (save-excursion |
| 370 (beginning-of-line) | 370 (beginning-of-line) |
| 371 (forward-char 2) | 371 (forward-char 2) |
| 372 (if (= (char-after) (if arg ? ?*)) | 372 (if (= (char-after) (if arg ?\s ?*)) |
| 373 (let ((buffer-read-only nil)) | 373 (let ((buffer-read-only nil)) |
| 374 (delete-char 1) | 374 (delete-char 1) |
| 375 (insert (if arg ?* ? )))))) | 375 (insert (if arg ?* ?\s)))))) |
| 376 | 376 |
| 377 (defun Buffer-menu-beginning () | 377 (defun Buffer-menu-beginning () |
| 378 (goto-char (point-min)) | 378 (goto-char (point-min)) |
| 379 (unless Buffer-menu-use-header-line | 379 (unless Buffer-menu-use-header-line |
| 380 (forward-line))) | 380 (forward-line))) |
| 390 (set-buffer (Buffer-menu-buffer t)) | 390 (set-buffer (Buffer-menu-buffer t)) |
| 391 (save-buffer) | 391 (save-buffer) |
| 392 (setq modp (buffer-modified-p))) | 392 (setq modp (buffer-modified-p))) |
| 393 (let ((buffer-read-only nil)) | 393 (let ((buffer-read-only nil)) |
| 394 (delete-char -1) | 394 (delete-char -1) |
| 395 (insert (if modp ?* ? )))))) | 395 (insert (if modp ?* ?\s)))))) |
| 396 (save-excursion | 396 (save-excursion |
| 397 (Buffer-menu-beginning) | 397 (Buffer-menu-beginning) |
| 398 (let ((buff-menu-buffer (current-buffer)) | 398 (let ((buff-menu-buffer (current-buffer)) |
| 399 (buffer-read-only nil)) | 399 (buffer-read-only nil)) |
| 400 (while (re-search-forward "^D" nil t) | 400 (while (re-search-forward "^D" nil t) |
| 403 (or (eq buf nil) | 403 (or (eq buf nil) |
| 404 (eq buf buff-menu-buffer) | 404 (eq buf buff-menu-buffer) |
| 405 (save-excursion (kill-buffer buf))) | 405 (save-excursion (kill-buffer buf))) |
| 406 (if (and buf (buffer-name buf)) | 406 (if (and buf (buffer-name buf)) |
| 407 (progn (delete-char 1) | 407 (progn (delete-char 1) |
| 408 (insert ? )) | 408 (insert ?\s)) |
| 409 (delete-region (point) (progn (forward-line 1) (point))) | 409 (delete-region (point) (progn (forward-line 1) (point))) |
| 410 (unless (bobp) | 410 (unless (bobp) |
| 411 (forward-char -1)))))))) | 411 (forward-char -1)))))))) |
| 412 | 412 |
| 413 (defun Buffer-menu-select () | 413 (defun Buffer-menu-select () |
| 423 (Buffer-menu-beginning) | 423 (Buffer-menu-beginning) |
| 424 (while (re-search-forward "^>" nil t) | 424 (while (re-search-forward "^>" nil t) |
| 425 (setq tem (Buffer-menu-buffer t)) | 425 (setq tem (Buffer-menu-buffer t)) |
| 426 (let ((buffer-read-only nil)) | 426 (let ((buffer-read-only nil)) |
| 427 (delete-char -1) | 427 (delete-char -1) |
| 428 (insert ?\ )) | 428 (insert ?\s)) |
| 429 (or (eq tem buff) (memq tem others) (setq others (cons tem others)))) | 429 (or (eq tem buff) (memq tem others) (setq others (cons tem others)))) |
| 430 (setq others (nreverse others) | 430 (setq others (nreverse others) |
| 431 tem (/ (1- (frame-height)) (1+ (length others)))) | 431 tem (/ (1- (frame-height)) (1+ (length others)))) |
| 432 (delete-other-windows) | 432 (delete-other-windows) |
| 433 (switch-to-buffer buff) | 433 (switch-to-buffer buff) |
| 519 (interactive) | 519 (interactive) |
| 520 (let (char) | 520 (let (char) |
| 521 (save-excursion | 521 (save-excursion |
| 522 (set-buffer (Buffer-menu-buffer t)) | 522 (set-buffer (Buffer-menu-buffer t)) |
| 523 (vc-toggle-read-only) | 523 (vc-toggle-read-only) |
| 524 (setq char (if buffer-read-only ?% ? ))) | 524 (setq char (if buffer-read-only ?% ?\s))) |
| 525 (save-excursion | 525 (save-excursion |
| 526 (beginning-of-line) | 526 (beginning-of-line) |
| 527 (forward-char 1) | 527 (forward-char 1) |
| 528 (if (/= (following-char) char) | 528 (if (/= (following-char) char) |
| 529 (let (buffer-read-only) | 529 (let (buffer-read-only) |
| 592 (add-text-properties 0 (length size) size-props size) | 592 (add-text-properties 0 (length size) size-props size) |
| 593 (concat name | 593 (concat name |
| 594 (make-string (- Buffer-menu-buffer+size-width | 594 (make-string (- Buffer-menu-buffer+size-width |
| 595 (length name) | 595 (length name) |
| 596 (length size)) | 596 (length size)) |
| 597 ? ) | 597 ?\s) |
| 598 size)) | 598 size)) |
| 599 | 599 |
| 600 (defun Buffer-menu-sort (column) | 600 (defun Buffer-menu-sort (column) |
| 601 "Sort the buffer menu by COLUMN." | 601 "Sort the buffer menu by COLUMN." |
| 602 (interactive "P") | 602 (interactive "P") |
| 675 it means list those buffers and no others. | 675 it means list those buffers and no others. |
| 676 | 676 |
| 677 For more information, see the function `buffer-menu'." | 677 For more information, see the function `buffer-menu'." |
| 678 (let* ((old-buffer (current-buffer)) | 678 (let* ((old-buffer (current-buffer)) |
| 679 (standard-output standard-output) | 679 (standard-output standard-output) |
| 680 (mode-end (make-string (- Buffer-menu-mode-width 2) ? )) | 680 (mode-end (make-string (- Buffer-menu-mode-width 2) ?\s)) |
| 681 (header (concat "CRM " | 681 (header (concat "CRM " |
| 682 (Buffer-menu-buffer+size | 682 (Buffer-menu-buffer+size |
| 683 (Buffer-menu-make-sort-button "Buffer" 2) | 683 (Buffer-menu-make-sort-button "Buffer" 2) |
| 684 (Buffer-menu-make-sort-button "Size" 3)) | 684 (Buffer-menu-make-sort-button "Size" 3)) |
| 685 " " | 685 " " |
| 710 (unless Buffer-menu-use-header-line | 710 (unless Buffer-menu-use-header-line |
| 711 (let ((underline (if (char-displayable-p ?—) ?— ?-))) | 711 (let ((underline (if (char-displayable-p ?—) ?— ?-))) |
| 712 (insert header | 712 (insert header |
| 713 (apply 'string | 713 (apply 'string |
| 714 (mapcar (lambda (c) | 714 (mapcar (lambda (c) |
| 715 (if (memq c '(?\n ?\ )) c underline)) | 715 (if (memq c '(?\n ?\s)) c underline)) |
| 716 header))))) | 716 header))))) |
| 717 ;; Collect info for every buffer we're interested in. | 717 ;; Collect info for every buffer we're interested in. |
| 718 (dolist (buffer (or buffer-list (buffer-list))) | 718 (dolist (buffer (or buffer-list (buffer-list))) |
| 719 (with-current-buffer buffer | 719 (with-current-buffer buffer |
| 720 (let ((name (buffer-name)) | 720 (let ((name (buffer-name)) |
| 730 (let ((mode (concat (format-mode-line mode-name nil nil buffer) | 730 (let ((mode (concat (format-mode-line mode-name nil nil buffer) |
| 731 (if mode-line-process | 731 (if mode-line-process |
| 732 (format-mode-line mode-line-process | 732 (format-mode-line mode-line-process |
| 733 nil nil buffer)))) | 733 nil nil buffer)))) |
| 734 (bits (string | 734 (bits (string |
| 735 (if (eq buffer old-buffer) ?. ?\ ) | 735 (if (eq buffer old-buffer) ?. ?\s) |
| 736 ;; Handle readonly status. The output buffer | 736 ;; Handle readonly status. The output buffer |
| 737 ;; is special cased to appear readonly; it is | 737 ;; is special cased to appear readonly; it is |
| 738 ;; actually made so at a later date. | 738 ;; actually made so at a later date. |
| 739 (if (or (eq buffer standard-output) | 739 (if (or (eq buffer standard-output) |
| 740 buffer-read-only) | 740 buffer-read-only) |
| 741 ?% ?\ ) | 741 ?% ?\s) |
| 742 ;; Identify modified buffers. | 742 ;; Identify modified buffers. |
| 743 (if (buffer-modified-p) ?* ?\ ) | 743 (if (buffer-modified-p) ?* ?\s) |
| 744 ;; Space separator. | 744 ;; Space separator. |
| 745 ?\ ))) | 745 ?\s))) |
| 746 (unless file | 746 (unless file |
| 747 ;; No visited file. Check local value of | 747 ;; No visited file. Check local value of |
| 748 ;; list-buffers-directory. | 748 ;; list-buffers-directory. |
| 749 (when (and (boundp 'list-buffers-directory) | 749 (when (and (boundp 'list-buffers-directory) |
| 750 list-buffers-directory) | 750 list-buffers-directory) |