> > I canot find tla-revision-unmark-revision.
> > Which key or function should I use to remove `*'?
> 
> I'm afraid it's not possible ;-(
Wow. This is the uncauterized development:-P.
What I am afraid is that tla-revision-unmark-revision is written by me.

> Then, the question is "Which key /should/ be used for unmark and update"
> 
> I suggest
> 
> U => update (Should apply to several other places too)
> u => unmark

?u => unmark is ok.
I'd like to reserve ?U for undo.

In pcl-cvs ?O is used for update.
How about ?G ?
In xtla ?g is for refresh, as you know.

Masatake YAMATO

(easy-mmode-defmap cvs-mode-map
  ;;(define-prefix-command 'cvs-mode-map-diff-prefix)
  ;;(define-prefix-command 'cvs-mode-map-control-c-prefix)
  '(;; simulate `suppress-keymap'
    (self-insert-command . undefined)
    (("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") . digit-argument)
    ("-" .      negative-argument)
    ;; various
    ;; (undo .  cvs-mode-undo)
    ("?" .      cvs-help)
    ("h" .      cvs-help)
    ("q" .      cvs-bury-buffer)
    ("z" .      kill-this-buffer)
    ("F" .      cvs-mode-set-flags)
    ;; ("\M-f" .        cvs-mode-force-command)
    ("!" .      cvs-mode-force-command)
    ("\C-c\C-c" . cvs-mode-kill-process)
    ;; marking
    ("m" .      cvs-mode-mark)
    ("M" .      cvs-mode-mark-all-files)
    ("S" .      cvs-mode-mark-on-state)
    ("u" .      cvs-mode-unmark)
    ("\C-?".    cvs-mode-unmark-up)
    ("%" .      cvs-mode-mark-matching-files)
    ("T" .      cvs-mode-toggle-marks)
    ("\M-\C-?" .        cvs-mode-unmark-all-files)
    ;; navigation keys
    (" " .      cvs-mode-next-line)
    ("n" .      cvs-mode-next-line)
    ("p" .      cvs-mode-previous-line)
    ;; M- keys are usually those that operate on modules
    ;;("\M-C".  cvs-mode-rcs2log) ; i.e. "Create a ChangeLog"
    ;;("\M-t".  cvs-rtag)
    ;;("\M-l".  cvs-rlog)
    ("\M-c".    cvs-checkout)
    ("\M-e".    cvs-examine)
    ("g" .      cvs-mode-revert-buffer)
    ("\M-u".    cvs-update)
    ("\M-s".    cvs-status)
    ;; diff commands
    ("=" .      cvs-mode-diff)
    ("d" .      cvs-mode-diff-map)
    ;; keys that operate on individual files
    ("\C-k" .   cvs-mode-acknowledge)
    ("A" .      cvs-mode-add-change-log-entry-other-window)
    ;;("B" .    cvs-mode-byte-compile-files)
    ("C" .      cvs-mode-commit-setup)
    ("O" .      cvs-mode-update)
    ("U" .      cvs-mode-undo)
    ("I" .      cvs-mode-insert)
    ("a" .      cvs-mode-add)
    ("b" .      cvs-set-branch-prefix)
    ("B" .      cvs-set-secondary-branch-prefix)
    ("c" .      cvs-mode-commit)
    ("e" .      cvs-mode-examine)
    ("f" .      cvs-mode-find-file)
    ("\C-m" .   cvs-mode-find-file)
    ("i" .      cvs-mode-ignore)
    ("l" .      cvs-mode-log)
    ("o" .      cvs-mode-find-file-other-window)
    ("r" .      cvs-mode-remove)
    ("s" .      cvs-mode-status)
    ("t" .      cvs-mode-tag)
    ;;("v" .    cvs-mode-diff-vendor)
    ("x" .      cvs-mode-remove-handled)
    ;; cvstree bindings
    ("+" .      cvs-mode-tree)
    ;; mouse bindings
    ([mouse-2] . cvs-mode-find-file)
    ([(down-mouse-3)] . cvs-menu)
    ;; dired-like bindings
    ("\C-o" .   cvs-mode-display-file)
    ;; Emacs-21 toolbar
    ;;([tool-bar item1] . (menu-item "Examine" cvs-examine :image (image :file 
"/usr/share/icons/xpaint.xpm" :type xpm)))
    ;;([tool-bar item2] . (menu-item "Update" cvs-update :image (image :file 
"/usr/share/icons/mail1.xpm" :type xpm)))
    )
  "Keymap for `cvs-mode'."
  :dense t)

Reply via email to