help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Cannot set some keys in tabulated-list-mode


From: Jean Louis
Subject: Re: Cannot set some keys in tabulated-list-mode
Date: Sun, 9 May 2021 08:14:42 +0300
User-agent: Mutt/2.0.6 (2021-03-06)

* Emanuel Berg via Users list for the GNU Emacs text editor 
<help-gnu-emacs@gnu.org> [2021-05-09 02:08]:
> Jean Louis wrote:
> 
> > I would like to use keys 'g' and 'h' in tabulated-list-mode but that
> > seem not to work, maybe few other keys too.
> 
> Works for me:
> 
>   (define-key tabulated-list-mode-map "h" #'beginning-of-line)
>   (define-key tabulated-list-mode-map "g" #'end-of-line)
> 
>   (tabulated-list-mode)

I am (was) defining it this way:

This is major map:

(defvar rcd-db-mode-map 
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map tabulated-list-mode-map)
    (define-key map (kbd "e") #'rcd-db-edit-tab-database-entry)
    (define-key map (kbd "d") #'rcd-db-delete-tab-database-entry)
    (define-key map (kbd "Q") 'rcd-db-kill-database-buffers)
    (define-key map (kbd "U") 'rcd-tabulated-remove-marks)
    (define-key map (kbd "u") #'rcd-tabulated-unmark-id)
    (define-key map (kbd "G") #'goto-line)
    (define-key map (kbd "z") #'rcd-tabulated-refresh)
    (define-key map (kbd "j") #'next-line)
    (define-key map (kbd "k") #'previous-line)
    (define-key map (kbd "m") #'rcd-tabulated-mark-id)
    ;; (define-key map (kbd "n") #'cf-create-contact)
    (define-key map (kbd "V") #'rcd-tabulated-id-to-register)
    (define-key map (kbd "/") #'rcd-tabulated-filter)
    (define-key map (kbd "\\") #'rcd-tabulated-filter-reset)
    map)
  "The basic RCD database keymap")

Then next child map would come, where I am (was) using
`make-composed-map'.

But I was probably using `make-composed-keymap' wrongly, and anyway
rcd-db-mode-map is child of it, so I have removed it altogher.

(defvar rcd-db-dbtables-mode-map
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent
     map (make-composed-keymap tabulated-list-mode-map rcd-db-mode-map))
    (define-key map (kbd "e") #'ignore)
    (define-key map (kbd "d") #'ignore)
    (define-key map (kbd "g") #'rcd-tabulated-refresh)
    (define-key map (kbd "c") #'rcd-db-table-edit-comment)
    (define-key map (kbd "l") #'rcd-db-table-list-by-oid)
    map)
  "The RCD database tables keymap")


And now it works this way:

(defvar rcd-db-dbtables-mode-map
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map rcd-db-mode-map)
    (define-key map (kbd "e") #'ignore)
    (define-key map (kbd "d") #'ignore)
    (define-key map (kbd "g") #'rcd-tabulated-refresh)
    (define-key map (kbd "c") #'rcd-db-table-edit-comment)
    (define-key map (kbd "l") #'rcd-db-table-list-by-oid)
    map)
  "The RCD database tables keymap")

-- 
Jean

Tkae action in Fere Software Fouandtoin caiampgns :
https://www.fsf.org/campaigns

Sgin an oepn letetr in soupprt of Rihcard M. Stlalamn 
https://stallmansupport.org/
https://rms-support-letter.github.io/




reply via email to

[Prev in Thread] Current Thread [Next in Thread]