Ihor Radchenko <yanta...@posteo.net> writes: > "Christopher M. Miles" <numbch...@gmail.com> writes: > >>> It would be great if you can come up with a patch. >>> 1. Keeping tags with explicitly assigned key binding indeed makes sense >>> 2. If we limit the number of displayed tags (on top of explicitly >>> assigned), it should be a defcustom. >> >> Here is the patch. >> - (setq tbl fulltable char ?a cnt 0) >> + (setq tbl (seq-filter 'cdr fulltable) char ?a cnt 0) > > Thanks, but it will make the tag selection useless for people who did > not customize explicit tag bindings. > > You should instead only filter when the number of tags exceeds some > customized value.
What about like this? #+begin_src emacs-lisp (setq tbl (let ((bound-tags (seq-filter 'cdr fulltable))) (if (length> shortkeys 0) bound-tags (seq-take fulltable 26))) char ?a cnt 0) #+end_src -- [ stardiviner ] I try to make every word tell the meaning that I want to express without misunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
Description: PGP signature