2

我正在尝试编写一个非常基本的 emacs 主要模式来编辑汇编源文件（针对特定的微控制器）。我使用https://www.emacswiki.org/emacs-test/ModeTutorial作为起点。它有效，但我想改变两件事但找不到解决方案。

是的，我渴望随着时间的推移对 eLisp 有更透彻的理解，但我也尝试快速破解我的工作模式定义，因为我现在需要它（没有真正理解错综复杂 - 我知道，RTFM ...... ）。

无论如何，我希望得到两个问题的答案：

1）虽然语法突出显示有效，但我不认为它不区分大小写。我尝试添加(setq font-lock-keywords-case-fold-search t)到下面的功能，但它似乎没有达到预期的效果。

(defun xasm-mode ()
   (interactive)
   (kill-all-local-variables)
   (use-local-map xasm-mode-map)         
   (set-syntax-table xasm-mode-syntax-table)
   ;; set up font-lock
   (set (make-local-variable 'font-lock-defaults) '(xasm-font-lock-keywords)) 
   (setq font-lock-keywords-case-fold-search t)
   (setq major-mode 'xasm-mode)
   (setq mode-name "XASM")       
   (run-hooks 'xasm-mode-hook))

2）第二个问题肯定证明了我的无知......基本上，在具有以下结构的表达式中，我想用变量中的值替换“正则表达式”文字（有效）（这里：x , x 是 (正确) 由 regexp-opt 计算的)...但我不知道如何在此处插入 x 的值:-(

(setq x 'xyz)
(defconst v2
  (list
     '( "regexp" . foo)
))

感谢您的提示。

4

2 回答 2

3

虽然语法突出显示有效，但我认为它不区分大小写。我尝试将 (setq font-lock-keywords-case-fold-search t) 添加到下面的函数中，但它似乎没有达到预期的效果。

也许是因为您使用defun而不是使用更现代的define-derived-mode：

(define-derived-mode xasm-mode prog-mode "XASM"
  ;; set up font-lock
  (set (make-local-variable 'font-lock-defaults) '(xasm-font-lock-keywords)) 
  (set (make-local-variable 'font-lock-keywords-case-fold-search) t))

如果这不起作用，我想您只需要手动使其不敏感，[a-z]->[a-zA-Z]等。

第二个问题肯定证明了我的无知......基本上，在具有以下结构的表达式中，我想用变量中的值替换“正则表达式”文字（有效）（这里：x，用x （正确）由 regexp-opt 计算）...但我不知道如何在此处插入 x 的值:-(

正如legoscia指出的那样使用逗号运算符。在您的情况下，它将如下所示：

(defconst v2
  `(
    ( "regexp" . ,foo)
    ))

为了foo在反引号内求值，我们在它前面加了一个逗号，,foo.

于 2016-03-03T04:33:12.190 回答
3

检查文档C-h v font-lock-defaults RET：

...默认值应采用以下形式：

（关键字 [仅关键字 [CASE-FOLD [SYNTAX-ALIST ...]]]）...

这告诉您可以在此处设置“case-fold”行为：

(set (make-local-variable 'font-lock-defaults)
     '(xasm-font-lock-keywords nil t))

另外，请帮自己一个忙并使用 define-derived-mode （并更新您发现指向您的任何文档，defun+interactive+setqmode-name+...以便它也引用define-derived-mode）。

于 2016-03-04T18:37:06.313 回答