/[emacs]/emacs/lisp/bs.el
ViewVC logotype

Diff of /emacs/lisp/bs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by lektu, Fri Aug 30 11:00:27 2002 UTC revision 1.15 by as, Mon Aug 18 18:07:27 2003 UTC
# Line 457  Used internally, only.") Line 457  Used internally, only.")
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  ;; ----------------------------------------------------------------------  ;; ----------------------------------------------------------------------

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26