Mercurial > emacs
comparison lisp/buff-menu.el @ 64529:8b0db2e8ccd3
(Buffer-menu-unmark): Doc fix.
(Buffer-menu-not-modified, Buffer-menu-execute, Buffer-menu-toggle-read-only,
Buffer-menu-buffer+size, list-buffers-noselect, Buffer-menu-select):
"?\ " -> "?\s".
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 20 Jul 2005 11:32:17 +0000 |
parents | 6fb026ad601f |
children | 41bb365f41c4 187d6a1f84f7 |
comparison
equal
deleted
inserted
replaced
64528:54d2ccd509bc | 64529:8b0db2e8ccd3 |
---|---|
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) |