浏览代码

Globalize the minor mode so it persists through major-mode changes

mikeshulman 12 年之前
父节点
当前提交
3f2c87c763
共有 1 个文件被更改,包括 9 次插入0 次删除
  1. 9 0
      edit-server.el

+ 9 - 0
edit-server.el

@@ -244,6 +244,15 @@ send a response back to the client."
   :init-value nil
   :keymap edit-server-edit-mode-map)
 
+(defun turn-on-edit-server-edit-mode-if-server ()
+  "Turn on `edit-server-edit-mode' if in an edit-server buffer."
+  (when edit-server-proc
+    (edit-server-edit-mode t)))
+
+(define-globalized-minor-mode global-edit-server-edit-mode
+  edit-server-edit-mode turn-on-edit-server-edit-mode-if-server)
+(global-edit-server-edit-mode t)
+
 
 ;; Edit Server socket code