Преглед на файлове

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