457 |
(defvar bs--marked-buffers nil |
(defvar bs--marked-buffers nil |
458 |
"Currently marked buffers in Buffer Selection Menu.") |
"Currently marked buffers in Buffer Selection Menu.") |
459 |
|
|
460 |
(defvar bs-mode-map () |
(defvar bs-mode-map |
461 |
|
(let ((map (make-sparse-keymap))) |
462 |
|
(define-key map " " 'bs-select) |
463 |
|
(define-key map "f" 'bs-select) |
464 |
|
(define-key map "v" 'bs-view) |
465 |
|
(define-key map "!" 'bs-select-in-one-window) |
466 |
|
(define-key map [mouse-2] 'bs-mouse-select) ;; for GNU EMACS |
467 |
|
(define-key map [button2] 'bs-mouse-select) ;; for XEmacs |
468 |
|
(define-key map "F" 'bs-select-other-frame) |
469 |
|
(let ((key ?1)) |
470 |
|
(while (<= key ?9) |
471 |
|
(define-key map (char-to-string key) 'digit-argument) |
472 |
|
(setq key (1+ key)))) |
473 |
|
(define-key map "-" 'negative-argument) |
474 |
|
(define-key map "\e-" 'negative-argument) |
475 |
|
(define-key map "o" 'bs-select-other-window) |
476 |
|
(define-key map "\C-o" 'bs-tmp-select-other-window) |
477 |
|
;; for GNU EMACS |
478 |
|
(define-key map [mouse-3] 'bs-mouse-select-other-frame) |
479 |
|
;; for XEmacs |
480 |
|
(define-key map [button3] 'bs-mouse-select-other-frame) |
481 |
|
(define-key map [up] 'bs-up) |
482 |
|
(define-key map "n" 'bs-down) |
483 |
|
(define-key map "p" 'bs-up) |
484 |
|
(define-key map [down] 'bs-down) |
485 |
|
(define-key map "\C-m" 'bs-select) |
486 |
|
(define-key map "b" 'bs-bury-buffer) |
487 |
|
(define-key map "s" 'bs-save) |
488 |
|
(define-key map "S" 'bs-show-sorted) |
489 |
|
(define-key map "a" 'bs-toggle-show-all) |
490 |
|
(define-key map "d" 'bs-delete) |
491 |
|
(define-key map "\C-d" 'bs-delete-backward) |
492 |
|
(define-key map "k" 'bs-delete) |
493 |
|
(define-key map "g" 'bs-refresh) |
494 |
|
(define-key map "C" 'bs-set-configuration-and-refresh) |
495 |
|
(define-key map "c" 'bs-select-next-configuration) |
496 |
|
(define-key map "q" 'bs-kill) |
497 |
|
;; (define-key map "z" 'bs-kill) |
498 |
|
(define-key map "\C-c\C-c" 'bs-kill) |
499 |
|
(define-key map "\C-g" 'bs-abort) |
500 |
|
(define-key map "\C-]" 'bs-abort) |
501 |
|
(define-key map "%" 'bs-toggle-readonly) |
502 |
|
(define-key map "~" 'bs-clear-modified) |
503 |
|
(define-key map "M" 'bs-toggle-current-to-show) |
504 |
|
(define-key map "+" 'bs-set-current-buffer-to-show-always) |
505 |
|
;;(define-key map "-" 'bs-set-current-buffer-to-show-never) |
506 |
|
(define-key map "t" 'bs-visit-tags-table) |
507 |
|
(define-key map "m" 'bs-mark-current) |
508 |
|
(define-key map "u" 'bs-unmark-current) |
509 |
|
(define-key map ">" 'scroll-right) |
510 |
|
(define-key map "<" 'scroll-left) |
511 |
|
(define-key map "?" 'bs-help) |
512 |
|
map) |
513 |
"Keymap of `bs-mode'.") |
"Keymap of `bs-mode'.") |
514 |
|
|
|
(if bs-mode-map |
|
|
() |
|
|
(setq bs-mode-map (make-sparse-keymap)) |
|
|
(define-key bs-mode-map " " 'bs-select) |
|
|
(define-key bs-mode-map "f" 'bs-select) |
|
|
(define-key bs-mode-map "v" 'bs-view) |
|
|
(define-key bs-mode-map "!" 'bs-select-in-one-window) |
|
|
(define-key bs-mode-map [mouse-2] 'bs-mouse-select) ;; for GNU EMACS |
|
|
(define-key bs-mode-map [button2] 'bs-mouse-select) ;; for XEmacs |
|
|
(define-key bs-mode-map "F" 'bs-select-other-frame) |
|
|
|
|
|
(let ((key ?1)) |
|
|
(while (<= key ?9) |
|
|
(define-key bs-mode-map (char-to-string key) 'digit-argument) |
|
|
(setq key (1+ key)))) |
|
|
|
|
|
(define-key bs-mode-map "-" 'negative-argument) |
|
|
(define-key bs-mode-map "\e-" 'negative-argument) |
|
|
|
|
|
(define-key bs-mode-map "o" 'bs-select-other-window) |
|
|
(define-key bs-mode-map "\C-o" 'bs-tmp-select-other-window) |
|
|
;; for GNU EMACS |
|
|
(define-key bs-mode-map [mouse-3] 'bs-mouse-select-other-frame) |
|
|
;; for XEmacs |
|
|
(define-key bs-mode-map [button3] 'bs-mouse-select-other-frame) |
|
|
(define-key bs-mode-map [up] 'bs-up) |
|
|
(define-key bs-mode-map "n" 'bs-down) |
|
|
(define-key bs-mode-map "p" 'bs-up) |
|
|
(define-key bs-mode-map [down] 'bs-down) |
|
|
(define-key bs-mode-map "\C-m" 'bs-select) |
|
|
(define-key bs-mode-map "b" 'bs-bury-buffer) |
|
|
(define-key bs-mode-map "s" 'bs-save) |
|
|
(define-key bs-mode-map "S" 'bs-show-sorted) |
|
|
(define-key bs-mode-map "a" 'bs-toggle-show-all) |
|
|
(define-key bs-mode-map "d" 'bs-delete) |
|
|
(define-key bs-mode-map "\C-d" 'bs-delete-backward) |
|
|
(define-key bs-mode-map "k" 'bs-delete) |
|
|
(define-key bs-mode-map "g" 'bs-refresh) |
|
|
(define-key bs-mode-map "C" 'bs-set-configuration-and-refresh) |
|
|
(define-key bs-mode-map "c" 'bs-select-next-configuration) |
|
|
(define-key bs-mode-map "q" 'bs-kill) |
|
|
;; (define-key bs-mode-map "z" 'bs-kill) |
|
|
(define-key bs-mode-map "\C-c\C-c" 'bs-kill) |
|
|
(define-key bs-mode-map "\C-g" 'bs-abort) |
|
|
(define-key bs-mode-map "\C-]" 'bs-abort) |
|
|
(define-key bs-mode-map "%" 'bs-toggle-readonly) |
|
|
(define-key bs-mode-map "~" 'bs-clear-modified) |
|
|
(define-key bs-mode-map "M" 'bs-toggle-current-to-show) |
|
|
(define-key bs-mode-map "+" 'bs-set-current-buffer-to-show-always) |
|
|
;;(define-key bs-mode-map "-" 'bs-set-current-buffer-to-show-never) |
|
|
(define-key bs-mode-map "t" 'bs-visit-tags-table) |
|
|
(define-key bs-mode-map "m" 'bs-mark-current) |
|
|
(define-key bs-mode-map "u" 'bs-unmark-current) |
|
|
(define-key bs-mode-map ">" 'scroll-right) |
|
|
(define-key bs-mode-map "<" 'scroll-left) |
|
|
(define-key bs-mode-map "\e\e" nil) |
|
|
(define-key bs-mode-map "\e\e\e" 'bs-kill) |
|
|
(define-key bs-mode-map [escape escape escape] 'bs-kill) |
|
|
(define-key bs-mode-map "?" 'bs-help)) |
|
|
|
|
515 |
;; ---------------------------------------------------------------------- |
;; ---------------------------------------------------------------------- |
516 |
;; Functions |
;; Functions |
517 |
;; ---------------------------------------------------------------------- |
;; ---------------------------------------------------------------------- |