pkg update and first config fix
org-brain not working, add org-roam
This commit is contained in:
@@ -4,8 +4,8 @@
|
||||
|
||||
;; Author: Lars Andersen <expez@expez.com>
|
||||
;; URL: https://www.github.com/expez/company-quickhelp
|
||||
;; Package-Version: 20211115.1335
|
||||
;; Package-Commit: 3ca2708b4e5190205aca01d65fe1b391963a53f9
|
||||
;; Package-Version: 20221212.534
|
||||
;; Package-Commit: 9505fb09d064581da142d75c139d48b5cf695bd5
|
||||
;; Keywords: company popup documentation quickhelp
|
||||
;; Version: 2.2.0
|
||||
;; Package-Requires: ((emacs "24.3") (company "0.8.9") (pos-tip "0.4.6"))
|
||||
@@ -100,7 +100,7 @@ be triggered manually using `company-quickhelp-show'."
|
||||
(defun company-quickhelp--skip-footers-backwards ()
|
||||
"Skip backwards over footers and blank lines."
|
||||
(beginning-of-line)
|
||||
(while (and (not (= (point-at-eol) (point-min)))
|
||||
(while (and (not (= (line-end-position) (point-min)))
|
||||
(or
|
||||
;; [back] appears at the end of the help elisp help buffer
|
||||
(looking-at-p "\\[back\\]")
|
||||
@@ -119,9 +119,9 @@ be triggered manually using `company-quickhelp-show'."
|
||||
"Fetch docstring from START."
|
||||
(goto-char start)
|
||||
(company-quickhelp--goto-max-line)
|
||||
(let ((truncated (< (point-at-eol) (point-max))))
|
||||
(let ((truncated (< (line-end-position) (point-max))))
|
||||
(company-quickhelp--skip-footers-backwards)
|
||||
(list :doc (buffer-substring start (point-at-eol))
|
||||
(list :doc (buffer-substring start (line-end-position))
|
||||
:truncated truncated)))
|
||||
|
||||
(defun company-quickhelp--completing-read (prompt candidates &rest rest)
|
||||
@@ -175,9 +175,9 @@ currently active `company' completion candidate."
|
||||
(pos-tip-hide)))
|
||||
|
||||
(defun company-quickhelp--show ()
|
||||
(company-quickhelp--cancel-timer)
|
||||
(when (and (company-quickhelp-pos-tip-available-p)
|
||||
company-selection)
|
||||
(company-quickhelp--cancel-timer)
|
||||
(while-no-input
|
||||
(let* ((selected (nth company-selection company-candidates))
|
||||
(doc (let ((inhibit-message t))
|
||||
|
||||
Reference in New Issue
Block a user