瀏覽代碼

Update

master
10sr 5 年之前
父節點
當前提交
82faff8072
簽署人: 10sr GPG 金鑰 ID: 7BEC428194130EB2
共有 1 個檔案被更改,包括 5 行新增3 行删除
  1. +5
    -3
      emacs.el

+ 5
- 3
emacs.el 查看文件

@@ -1054,15 +1054,17 @@ found, otherwise returns nil."
(define-key company-active-map (kbd "C-i") 'company-complete-selection)
(define-key company-active-map (kbd "C-f") 'company-complete-selection)

(defvar company-mode)
(defvar company-candidates)
(defvar company-candidates-length)
;; (popup-tip "Hello, World!")
(require 'popup nil t)
(defun my-company-length-popup-tip ()
"Show tooltip of candidate length."
(interactive)
;; Do nothing when already in company completion
(unless company-candidates
(when (and (require 'popup nil t)
company-mode
;; Do nothing when already in company completion
(not company-candidates))
(let ((l nil))
(unwind-protect
(progn


Loading…
取消
儲存