Function: logview--help-format-keys

logview--help-format-keys is a natively compiled function defined in logview.el.

Signature

(logview--help-format-keys ENTRY &optional PREFERRED-KEYS WIDTH)

Source Code

;; Defined in /nix/store/3zkn9hgpv447zb8nrg55d9x2ynmmrk40-emacs-packages-deps/share/emacs/site-lisp/elpa/logview-20260218.2013/logview.el
(defun logview--help-format-keys (entry &optional preferred-keys width)
  (if (listp entry)
      (let (strings)
        (dolist (symbol entry)
          (when (symbolp symbol)
            (let ((best-length most-positive-fixnum)
                  best-matches-preferred-keys
                  keys)
              (dolist (alternative (where-is-internal symbol logview-mode-map))
                (setq alternative (key-description alternative))
                (let ((matches-preferred-keys (when preferred-keys (string-match-p preferred-keys alternative))))
                  (when (or (< (length alternative) best-length)
                            (and (= (length alternative) best-length)
                                 matches-preferred-keys
                                 (not best-matches-preferred-keys)))
                    (setq keys                        alternative
                          best-length                 (length keys)
                          best-matches-preferred-keys matches-preferred-keys))))
              (push (if keys (propertize keys 'face 'font-lock-builtin-face) "") strings))))
        (let ((string (mapconcat #'identity (nreverse strings) " / ")))
          (if width
              (format (format "%%%ds" width) string)
            string)))
    ""))