首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

在prog-mode中添加除特定模式之外的钩子

,可以通过使用add-hook函数来实现。钩子是一种在特定事件发生时执行的函数或代码片段,它可以用于自定义和扩展编辑器的行为。

在prog-mode中,可以使用以下代码将钩子添加到除特定模式之外的所有编程模式:

代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook
          (lambda ()
            (unless (derived-mode-p 'specific-mode1 'specific-mode2)
              ;; 在这里添加你的钩子函数或代码
              )))

上述代码中,specific-mode1specific-mode2是特定的模式,你可以将其替换为你想要排除的具体模式。在lambda函数中,你可以添加任何你想要执行的钩子函数或代码。

以下是一些常见的钩子函数和代码示例:

  1. 添加自动补全功能:
代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook 'company-mode)
  1. 设置缩进风格为4个空格:
代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook
          (lambda ()
            (setq-default indent-tabs-mode nil)
            (setq-default tab-width 4)
            (setq-default c-basic-offset 4)))
  1. 启用语法检查:
代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook 'flycheck-mode)
  1. 添加代码折叠功能:
代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook 'hs-minor-mode)
  1. 设置显示行号:
代码语言:emacs-lisp
复制
(add-hook 'prog-mode-hook 'display-line-numbers-mode)

这些只是一些示例,你可以根据自己的需求添加任何其他钩子函数或代码。记得在每个钩子函数之后使用run-hooks函数来运行钩子。

希望以上信息对你有帮助!如果你需要了解更多关于Emacs的信息,可以参考腾讯云的Emacs产品介绍

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

emacs配置文件3

;;普通设置 (setq inhibit-startup-message t);关闭起动时闪屏 (setq visible-bell t);关闭出错时的提示声 (show-paren-mode t);显示括号匹配 ;(set-default-font "-adobe-courier-medium-r-normal--14-100-100-100-m-90-iso10646-1");;字体设置 (column-number-mode t);显示列号 (setq frame-title-format "%n%F/%b");在窗口的标题栏上显示文件名称 (mouse-avoidance-mode 'animate);光标靠近鼠标指针时,让鼠标指针自动让开 (setq default-frame-alist '((height . 25) (width . 80) (menu-bar-lines . 80) (tool-bar-lines . 80)));设置窗口启动大小 (fset 'yes-or-no-p 'y-or-n-p);以 y/n代表 yes/no (setq-default make-backup-files nil);;不要生成临时文件 (setq x-select-enable-clipboard t);;允许emacs和外部其他程序的粘贴 (setq mouse-yank-at-point t);支持中键粘贴 ;(show-paren-mode 't); 高亮显示匹配括号 ;;自动插入匹配的括号 ;; enable skeleton-pair insert globally (setq skeleton-pair t) (global-set-key (kbd "(") 'skeleton-pair-insert-maybe) (global-set-key (kbd "[") 'skeleton-pair-insert-maybe) (global-set-key (kbd "{") 'skeleton-pair-insert-maybe) ;;热键设置 (global-set-key [f9] 'delete-window);F9 关闭d当前窗口 (global-set-key [f8] 'other-window);F8窗口间跳转 (global-set-key [(f2)] 'ansi-term);F2 切换到shell模式 ;(global-set-key [f3] 'split-window-vertically);F3分割窗口 (global-set-key [f12] 'my-fullscreen);F12 全屏 (global-set-key [(f4)] 'compile);编译 (global-set-key [f5] 'gdb);启动gdb (global-set-key [(f6)] 'gdb-many-windows);启动窗口gdb (global-set-key [f1] 'goto-line);设置M-g为goto-line ;(global-set-key [f7] 'other-frame);跳到其它窗格 (global-set-key [(f3)] 'speedbar);打开speedbar ;;显示行号 (load-file "~/dos/emacs/display-line-number.el") ;;(autoload `display-line-number-mode-on "display-line-number" "display mode" t) (require 'display-line-number) (global-display-line-number-mode t) ;;鼠标滚轮,默认的滚动太快,这里改为3行 (defun up-slightly () (interactive) (scroll-up 3)) (defun down-slightly () (interactive) (scroll-down 3)) (global-set-key [mouse-4] 'down-slightly) (global-set-key [mouse-5] 'up-slightly) ;;代码折 (add-hook 'c-mode-hook 'hs-minor-mode) (add-hook 'c++-mode-hook 'hs-minor-mode)   ;全屏 (defun my-fullscreen ()   (interactive)   (x-send-client-message    nil 0 nil "_NET_WM_STATE" 32    '(

03
领券