Changeset 28643 for lang/elisp/init-loader

Timestamp:

01/19/09 10:43:53 (4 years ago)

Author:

typester

Message:

cocoa emacs用の設定を追加

Files:

• lang/elisp/init-loader/init-loader.el (modified) (2 diffs)

lang/elisp/init-loader/init-loader.el

@@ -69 +69 @@
 (defcustom init-loader-carbon-emacs-regexp "^carbon-emacs-"
   "carbon-emacs 使用時に読み込まれる設定ファイルにマッチする正規表現"
+  :group 'init-loader
+  :type 'regexp)
+
+(defcustom init-loader-cocoa-emacs-regexp "^cocoa-emacs-"
+  "cocoa-emacs 使用時に読み込まれる設定ファイルにマッチする正規表現"
   :group 'init-loader
   :type 'regexp)
@@ -88 +93 @@
     (and (featurep 'carbon-emacs-package)
          (init-loader-re-load init-loader-carbon-emacs-regexp init-dir))
+    ;; cocoa emacs
+    (and (equal window-system 'ns)
+         (init-loader-re-load init-loader-cocoa-emacs-regexp init-dir))
     ;; no window
     (and (null window-system)