Emacs 高效開發：智能頭文件自動補全與路徑補全配置

打造 Emacs C/C++ 專屬頭文件補全神器：從輸入 `inc` 到全路徑智能補全

在 Emacs 中編寫 C/C++ 代碼時，頻繁輸入 `#include <...>` 或 `#include "..."` 既繁瑣又易錯。本文提供一套完整的 Emacs Lisp 配置，實現：**輸入 `inc` + 空格觸發補全 → Minibuffer 顯示系統/項目頭文件列表 → TAB 補全文件名 → 自動判斷 `<>` 或 `""` 包裹 → 支持子目錄遞歸補全**。基於 `abbrev-mode` + `skeleton-mode` + 動態補全表構建。

核心功能演示

/* 操作流程 */
inc␣          ; 輸入 inc 並按空格 (abbrev 展開)
Include File: stdio.h␣  ; Minibuffer 提示，輸入 stdio 後 TAB 補全 stdio.h，回車
→ #include     ; 自動判斷為系統頭文件，用 <> 包裹

inc␣
Include File: mylib/␣   ; 輸入目錄名 + 斜槠 /
→ 列表自動更新顯示 mylib/ 下文件
Include File: mylib/config.h␣
→ #include "mylib/config.h"  ; 相對路徑/項目內文件自動用 "" 包裹

完整配置代碼 (放入 `.emacs` / `init.el`)

;;; === 1. 定義 abbrev 觸發器：inc → skeleton-include ===
(mapc
 (lambda (mode)
   (define-abbrev-table mode
     '(("inc" "" skeleton-include 1))))  ; 1 表示展開後保留點在 minibuffer
 '(c-mode-abbrev-table c++-mode-abbrev-table))

;;; === 2. 動態獲取編譯器標準包含路徑 (需 CEDET/semantic 支持) ===
(defconst yc/inc-dir-list
  (append (semantic-gcc-get-include-paths "c++") '("./"))
  "C/C++ 頭文件搜索路徑列表：系統路徑 + 當前目錄")

(defvar inc-minibuffer-compl-list nil "動態補全候選列表")

;;; === 3. 核心骨架：生成 #include 並處理補全邏輯 ===
(define-skeleton skeleton-include
  "Generate #include with smart completion"
  ""
  "> \"#include |XXX|"                    ; 佔位符 |XXX| 稍後替換為 <> 或 ""
  (completing-read                        ; 彈出 Minibuffer 讀取文件名
   "Include File: "
   (mapcar                                 ; 構建初始候選列表
    (lambda (f) (list f))
    (apply 'append
     (mapcar
      (lambda (dir)
        (directory-files dir nil "\\(\\.h\\)?$"))  ; 只列 .h 文件
      yc/inc-dir-list))))                  ; 遍歷所有搜索路徑
  "|XXX|"
  (yc/update-inc-marks))                  ; 後處理：根據路徑決定 <> 或 ""

;;; === 4. Minibuffer 斜槠鍵綁定：輸入 / 時動態展開子目錄 ===
(defun yc/update-minibuffer-complete-table ()
  "Minibuffer 中輸入 / 時，掃描對應子目錄並追加到補全列表"
  (interactive)
  (let ((prompt (minibuffer-prompt))
        (comp-part (minibuffer-contents-no-properties)))
    (when (and (string= "Include File: " prompt)
               (> (length comp-part) 0))
      (setq minibuffer-completion-table
            (append minibuffer-completion-table
                    (let ((inc-files nil)
                          (dirname nil)
                          (tmp-name nil))
                      (mapc
                       (lambda (d)
                         (setq dirname (format "%s/%s" d comp-part))
                         (when (file-exists-p dirname)
                           (mapc
                            (lambda (x)
                              (unless (or (string= "." x) (string= ".." x))
                                (setq tmp-name (format "%s/%s" comp-part x))
                                (add-to-list 'inc-files tmp-name)))
                            (directory-files dirname))))
                       yc/inc-dir-list)
                      inc-files)))))
  (insert "/"))  ; 實際插入斜槠字符

;; 綁定 / 鍵到上述函數 (僅在 minibuffer 補全模式生效)
(let ((map minibuffer-local-completion-map))
  (define-key map "/" 'yc/update-minibuffer-complete-table))

;;; === 5. 後處理：根據文件路徑自動決定包裹符號 ===
(defconst yc/re-include
  (rx "#include" (+ ascii) "|XXX|" (group (+ ascii)) "|XXX|"))

(defun yc/update-inc-marks ()
  "將佔位符 |XXX| 替換為 <> 或 \"\""
  (let ((statement (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
        (inc-file nil)
        (to-begin nil)
        (to-end nil))
    (when (string-match yc/re-include statement)
      (setq inc-file (match-string 1 statement))
      ;; 判斷邏輯：當前目錄下存在 → 本地文件用 ""；否則系統文件用 <>
      (if (file-exists-p (format "./%s" inc-file))
          (setq to-begin "\"" to-end "\"")
        (setq to-begin "<" to-end ">"))
      (move-beginning-of-line 1)
      (kill-line)
      (insert (format "#include %s%s%s" to-begin inc-file to-end))
      (move-end-of-line 1))))

(provide 'yc-include)
;;; yc-include.el 結束

關鍵技術點解析

使用前置依賴

1. CEDET / semantic-mode：提供 `semantic-gcc-get-include-paths`。現代 Emacs (28+) 內建或可通過 `package-install` 安裝 `cedet`。
2. 啟用 abbrev-mode：配置中已自動為 `c-mode`/`c++-mode` 定義 abbrev 表，確保 `(abbrev-mode 1)` 在 hook 中啟用。

效果截圖

擴展建議

• 集成 Company-mode / Corfu：替換內建 `completing-read`，獲得模糊匹配、異步補全、候選預覽等現代體驗。
• 項目級路徑：增加 `.dir-locals.el` 或 `compile_commands.json` 解析，自動添加 `-I` 指定的項目包含路徑。
• 系統頭文件緩存：首次掃描系統路徑較慢，可序列化緩存到 `~/.emacs.d/cache/inc-cache.el`，啟動時載入。
• C++ 模塊/標準庫：支援 `import std;` 等 C++20 模塊語法補全。

總結

這套配置僅 80 行 Elisp，利用 Emacs 內建 `abbrev`/`skeleton`/`minibuffer` 機制，構建了**零延遲、上下文感知、約定優於配置**的頭文件補全體驗。對於堅持 Emacs 原生風格、不願引入重型 LSP/Company 的開發者，是極具性價比的生產力加速器。

1. 上一篇文章： C語言進階技巧大全：指定初始化、宏列表、編譯期斷言與結構體技巧
2. 下一篇文章： C語言 switch-case 穿透特性深度解析與實戰驗證

關於C語言

C# Visio 二次開發：管理下拉清單屬性（一）——固定/可變清單類型與資料庫驅動架構

Visio 屬性類型完整對照 值類型說明.NET 對應 0

C語言結構體與動態內存：鏈表實戰指南

C語言結構體與動態內存：鏈表實戰指南 聲明：原創作品，轉載時

C# 委託與事件機制 深度解析：從函數指針到異步調用模式

委託 是 C# 中類型安全的「函數指針」，事件 是基於委託的

Linux 核心風格泛型鏈表在 C 語言中的實現原理與完整實作

前言：為什麼 C 語言需要泛型鏈表？ C 語言缺乏模板與泛型