-;; -------------------------------------------------------------------------
-;; Section: Key maps
-
-(if archive-mode-map nil
- (setq archive-mode-map (make-keymap))
- (suppress-keymap archive-mode-map)
- (define-key archive-mode-map " " 'archive-next-line)
- (define-key archive-mode-map "a" 'archive-alternate-display)
- ;;(define-key archive-mode-map "c" 'archive-copy)
- (define-key archive-mode-map "d" 'archive-flag-deleted)
- (define-key archive-mode-map "\C-d" 'archive-flag-deleted)
- (define-key archive-mode-map "e" 'archive-extract)
- (define-key archive-mode-map "f" 'archive-extract)
- (define-key archive-mode-map "\C-m" 'archive-extract)
- (define-key archive-mode-map "g" 'revert-buffer)
- (define-key archive-mode-map "h" 'describe-mode)
- (define-key archive-mode-map "m" 'archive-mark)
- (define-key archive-mode-map "n" 'archive-next-line)
- (define-key archive-mode-map "\C-n" 'archive-next-line)
- (define-key archive-mode-map [down] 'archive-next-line)
- (define-key archive-mode-map "o" 'archive-extract-other-window)
- (define-key archive-mode-map "p" 'archive-previous-line)
- (define-key archive-mode-map "q" 'quit-window)
- (define-key archive-mode-map "\C-p" 'archive-previous-line)
- (define-key archive-mode-map [up] 'archive-previous-line)
- (define-key archive-mode-map "r" 'archive-rename-entry)
- (define-key archive-mode-map "u" 'archive-unflag)
- (define-key archive-mode-map "\M-\C-?" 'archive-unmark-all-files)
- (define-key archive-mode-map "v" 'archive-view)
- (define-key archive-mode-map "x" 'archive-expunge)
- (define-key archive-mode-map "\177" 'archive-unflag-backwards)
- (define-key archive-mode-map "E" 'archive-extract-other-window)
- (define-key archive-mode-map "M" 'archive-chmod-entry)
- (define-key archive-mode-map "G" 'archive-chgrp-entry)
- (define-key archive-mode-map "O" 'archive-chown-entry)
-
- (if archive-lemacs
- (progn
- ;; Not a nice "solution" but it'll have to do
- (define-key archive-mode-map "\C-xu" 'archive-undo)
- (define-key archive-mode-map "\C-_" 'archive-undo))
- (define-key archive-mode-map [remap advertised-undo] 'archive-undo)
- (define-key archive-mode-map [remap undo] 'archive-undo))
-
- (define-key archive-mode-map
- (if archive-lemacs 'button2 [mouse-2]) 'archive-mouse-extract)
-
- (if archive-lemacs
- () ; out of luck
-
- (define-key archive-mode-map [menu-bar immediate]
- (cons "Immediate" (make-sparse-keymap "Immediate")))
- (define-key archive-mode-map [menu-bar immediate alternate]
- '(menu-item "Alternate Display" archive-alternate-display
- :enable (boundp (archive-name "alternate-display"))
- :help "Toggle alternate file info display"))
- (define-key archive-mode-map [menu-bar immediate view]
- '(menu-item "View This File" archive-view
- :help "Display file at cursor in View Mode"))
- (define-key archive-mode-map [menu-bar immediate display]
- '(menu-item "Display in Other Window" archive-display-other-window
- :help "Display file at cursor in another window"))
- (define-key archive-mode-map [menu-bar immediate find-file-other-window]
- '(menu-item "Find in Other Window" archive-extract-other-window
- :help "Edit file at cursor in another window"))
- (define-key archive-mode-map [menu-bar immediate find-file]
- '(menu-item "Find This File" archive-extract
- :help "Extract file at cursor and edit it"))
-
- (define-key archive-mode-map [menu-bar mark]
- (cons "Mark" (make-sparse-keymap "Mark")))
- (define-key archive-mode-map [menu-bar mark unmark-all]
- '(menu-item "Unmark All" archive-unmark-all-files
- :help "Unmark all marked files"))
- (define-key archive-mode-map [menu-bar mark deletion]
- '(menu-item "Flag" archive-flag-deleted
- :help "Flag file at cursor for deletion"))
- (define-key archive-mode-map [menu-bar mark unmark]
- '(menu-item "Unflag" archive-unflag
- :help "Unmark file at cursor"))
- (define-key archive-mode-map [menu-bar mark mark]
- '(menu-item "Mark" archive-mark
- :help "Mark file at cursor"))
-
- (define-key archive-mode-map [menu-bar operate]
- (cons "Operate" (make-sparse-keymap "Operate")))
- (define-key archive-mode-map [menu-bar operate chown]
- '(menu-item "Change Owner..." archive-chown-entry
- :enable (fboundp (archive-name "chown-entry"))
- :help "Change owner of marked files"))
- (define-key archive-mode-map [menu-bar operate chgrp]
- '(menu-item "Change Group..." archive-chgrp-entry
- :enable (fboundp (archive-name "chgrp-entry"))
- :help "Change group ownership of marked files"))
- (define-key archive-mode-map [menu-bar operate chmod]
- '(menu-item "Change Mode..." archive-chmod-entry
- :enable (fboundp (archive-name "chmod-entry"))
- :help "Change mode (permissions) of marked files"))
- (define-key archive-mode-map [menu-bar operate rename]
- '(menu-item "Rename to..." archive-rename-entry
- :enable (fboundp (archive-name "rename-entry"))
- :help "Rename marked files"))
- ;;(define-key archive-mode-map [menu-bar operate copy]
- ;; '(menu-item "Copy to..." archive-copy))
- (define-key archive-mode-map [menu-bar operate expunge]
- '(menu-item "Expunge Marked Files" archive-expunge
- :help "Delete all flagged files from archive"))
- ))
-
-(let* ((item1 '(archive-subfile-mode " Archive"))
- (items (list item1)))