如何让Org模式mode hook中的提示消息在文件加载后停留显示

解决方案 #

你的问题核心是org-mode-hook的执行时机早于缓冲区渲染完成的时机，触发消息时回显区还会被后续的缓冲区加载日志覆盖，导致用户看不到提示。可以通过延迟触发+主动控制停留时长的方式解决，以下是可直接使用的修改代码：

(defun course-export-org-mode-hook ()
    (define-key org-mode-map (kbd "C-x .") 'my-custom-func)
    ;; 延迟到Emacs空闲0.1秒后执行，确保缓冲区已完全渲染显示
    (run-with-idle-timer 0.1 nil
        (lambda ()
            (message "Remember that we can use 'C-x .' to run my custom func.")
            ;; 主动让消息在回显区停留3秒，可自行调整时长
            (sit-for 3))))

可选优化 #

• 如果需要更醒目的提示、避免被其他消息覆盖，可以把message替换为lwarn，会弹出独立的提示框需要用户确认后才消失：

  (lwarn nil :notice "快捷键提示：C-x . 已绑定到自定义函数 my-custom-func")
  

• 如果不需要每次打开Org文件都弹出提示，可以加全局变量控制整个Emacs会话只提示一次：

  (defvar my-org-key-hint-shown nil "Org自定义快捷键提示是否已展示")
  (defun course-export-org-mode-hook ()
    (define-key org-mode-map (kbd "C-x .") 'my-custom-func)
    (unless my-org-key-hint-shown
      (run-with-idle-timer 0.1 nil
          (lambda ()
            (message "Remember that we can use 'C-x .' to run my custom func.")
            (sit-for 3)
            (setq my-org-key-hint-shown t)))))
  

内容的提问来源于stack exchange，提问作者rje