Ihor Radchenko <[email protected]> writes: > "Christopher M. Miles" <[email protected]> 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
signature.asc
Description: PGP signature
