Bind two commands with one key to toggle between them for the same company local keymap.

[hongyi-zhao]

I'm using the following use-packatge configuration for company:

(use-package company
:bind
(:map company-active-map
    ("<tab>" . company-search-candidates)
    ("<f1>" . company-search-abort)

    :map company-search-map
    ("<tab>" . company-search-candidates)
    ("<f1>" . company-search-abort))

With the above configuration, <tab> and <f1> will call the corresponding interactive Lisp closure correctly, but I have to use two different keys. So, I want to bind these two commands to one key, say, <tab>, to toggle between them. Any hints for achieving this aim?

Regards,
HZ

[dgutov]

company-search-candidates is incremental (like isearch), so it's not going to exit when you call it a second time.

You can write your own command easily enough, though.

[hongyi-zhao]

You can write your own command easily enough, though.

Thank you for your comment. I checked the definitions of these two functions:

(defun company-search-abort ()
  "Abort searching the completion candidates."
  (interactive)
  (company--search-assert-enabled)
  (company-search-mode 0)
  (company-set-selection company--search-old-selection t)
  (setq company-selection-changed company--search-old-changed))
  
  
(defun company-search-candidates ()
  "Start searching the completion candidates incrementally.

\\<company-search-map>Search can be controlled with the commands:
- `company-search-repeat-forward' (\\[company-search-repeat-forward])
- `company-search-repeat-backward' (\\[company-search-repeat-backward])
- `company-search-abort' (\\[company-search-abort])
- `company-search-delete-char' (\\[company-search-delete-char])

Regular characters are appended to the search string.

Customize `company-search-regexp-function' to change how the input
is interpreted when searching.

The command `company-search-toggle-filtering' (\\[company-search-toggle-filtering])
uses the search string to filter the completion candidates."
  (interactive)
  (company-search-mode 1))

And figured out the following solution:

(use-package company
  :bind (
	 :map company-active-map
         ("<tab>" . (lambda ()
                    (interactive)
                    (if company-search-mode (company-search-abort)
                      (company-search-candidates))))

         :map company-search-map
         ("<tab>" . (lambda ()
                    (interactive)
                    (if company-search-mode (company-search-abort)
                      (company-search-candidates))))
	 )

See here and here for some related discussions.