[Emacs-diffs] Changes to emacs/lisp/bs.el [lexbind]

[Miles Bader]

Index: emacs/lisp/bs.el
diff -c emacs/lisp/bs.el:1.13.4.1 emacs/lisp/bs.el:1.13.4.2
*** emacs/lisp/bs.el:1.13.4.1   Fri Apr  4 01:20:00 2003
--- emacs/lisp/bs.el    Tue Oct 14 19:50:49 2003
***************
*** 457,525 ****
  (defvar bs--marked-buffers nil
    "Currently marked buffers in Buffer Selection Menu.")
  
! (defvar bs-mode-map ()
    "Keymap of `bs-mode'.")
  
- (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))
- 
  ;; ----------------------------------------------------------------------
  ;; Functions
  ;; ----------------------------------------------------------------------
--- 457,517 ----
  (defvar bs--marked-buffers nil
    "Currently marked buffers in Buffer Selection Menu.")
  
! (defvar bs-mode-map
!   (let ((map (make-sparse-keymap)))
!     (define-key map " "       'bs-select)
!     (define-key map "f"       'bs-select)
!     (define-key map "v"       'bs-view)
!     (define-key map "!"       'bs-select-in-one-window)
!     (define-key map [mouse-2] 'bs-mouse-select)       ;; for GNU EMACS
!     (define-key map [button2] 'bs-mouse-select) ;; for XEmacs
!     (define-key map "F"       'bs-select-other-frame)
!     (let ((key ?1))
!       (while (<= key ?9)
!       (define-key map (char-to-string key) 'digit-argument)
!       (setq key (1+ key))))
!     (define-key map "-"       'negative-argument)
!     (define-key map "\e-"     'negative-argument)
!     (define-key map "o"       'bs-select-other-window)
!     (define-key map "\C-o"    'bs-tmp-select-other-window)
!     ;; for GNU EMACS
!     (define-key map [mouse-3] 'bs-mouse-select-other-frame)
!     ;; for XEmacs
!     (define-key map [button3] 'bs-mouse-select-other-frame)
!     (define-key map [up]      'bs-up)
!     (define-key map "n"       'bs-down)
!     (define-key map "p"       'bs-up)
!     (define-key map [down]    'bs-down)
!     (define-key map "\C-m"    'bs-select)
!     (define-key map "b"       'bs-bury-buffer)
!     (define-key map "s"       'bs-save)
!     (define-key map "S"       'bs-show-sorted)
!     (define-key map "a"       'bs-toggle-show-all)
!     (define-key map "d"       'bs-delete)
!     (define-key map "\C-d"    'bs-delete-backward)
!     (define-key map "k"       'bs-delete)
!     (define-key map "g"       'bs-refresh)
!     (define-key map "C"       'bs-set-configuration-and-refresh)
!     (define-key map "c"       'bs-select-next-configuration)
!     (define-key map "q"       'bs-kill)
!     ;; (define-key map "z"       'bs-kill)
!     (define-key map "\C-c\C-c" 'bs-kill)
!     (define-key map "\C-g"    'bs-abort)
!     (define-key map "\C-]"    'bs-abort)
!     (define-key map "%"       'bs-toggle-readonly)
!     (define-key map "~"       'bs-clear-modified)
!     (define-key map "M"       'bs-toggle-current-to-show)
!     (define-key map "+"       'bs-set-current-buffer-to-show-always)
!     ;;(define-key map "-"       'bs-set-current-buffer-to-show-never)
!     (define-key map "t"       'bs-visit-tags-table)
!     (define-key map "m"       'bs-mark-current)
!     (define-key map "u"       'bs-unmark-current)
!     (define-key map ">"       'scroll-right)
!     (define-key map "<"       'scroll-left)
!     (define-key map "?"       'bs-help)
!     map)
    "Keymap of `bs-mode'.")
  
  ;; ----------------------------------------------------------------------
  ;; Functions
  ;; ----------------------------------------------------------------------
***************
*** 1515,1518 ****
--- 1507,1511 ----
  ;; Now provide feature bs
  (provide 'bs)
  
+ ;;; arch-tag: c0d9ab34-bf06-4368-ae9d-af88878e6802
  ;;; bs.el ends here